perchè non mi funge?
Private Sub Form_Load()
flex.Col = 0
flex.Row = 0
flex.Text = "Data"
flex.Col = 1
flex.Row = 0
flex.Text = "Tempo"
flex.Col = 2
flex.Row = 0
flex.Text = "SeiMinuti"
flex.Col = 3
flex.Row = 0
flex.Text = "UnMinuto"
flex.Col = 4
flex.Row = 0
flex.Text = "Picco"
End Sub
Private Sub menu0apri_Click(Index As Integer)
On Error GoTo Errore
Dim strPercorsoFile As String
cd.CancelError = True
cd.ShowOpen
strPercorsoFile = cd.FileName
Exit Sub
Errore:
If Err.Number <> cdlCancel Then
MsgBox Err.Number & " " & Err.Description
End If
End Sub
Private Sub menu0esci_Click(Index As Integer)
End
End Sub
Private Sub menu1mostra_Click(Index As Integer)
fn = FreeFile
x.id = 0
Open cd.FileName For Input As fn
Do While Not EOF(fn)
Line Input #fn, x.dati
x.id = x.id + 1
If x.id >= 17 Then
List1.AddItem x.dati
valori = x.id - 17
For i = 1 To valori
For j = 0 To 4
flex.Row = i
flex.Col = j
flex.Text = x.dati
Next j
Next i
End If
Loop
End Sub
Rispondi quotando
