If Text1.Text = "" Then
MsgBox "attention", vbCritical, " Information"
Else
Form2.Text1.Text = Text1.Text
Form2.Show
Open "C:\NOTE.TXT" For Append As #1
Print #1, Text1.Text
Close #1
Text1.Text = ""
End If
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionQu'entends-tu par fichier structuré ?
Private Sub Form_Load()
ListViewFiles.ColumnHeaders.Add , , "Lignes"
ListViewFiles.ColumnHeaders.Add , , "Alarmes"
ListViewFiles.ColumnHeaders.Add , , "Date"
ListViewFiles.ColumnHeaders.Add , , "Heure"
ListViewFiles.View = lvwReport
Dim ligne As String
Dim nFic
Dim itmX As ListItem
Dim i As Integer
nFic = FreeFile
Open "C:\NOTE.TXT" For Input As nFic
'On Error GoTo ErrOuv
Do While Not EOF(nFic)
Line Input #nFic, ligne
For i = 0 To 15
Set itmX = ListViewFiles.ListItems.Add()
itmX.Text = ligne
'itmX.SubItems(1) = "2"
'itmX.SubItems(2) = "3"
Next i
Loop
Close nFic
Exit Sub
End Sub
29 nov. 2015 à 15:39