A voir également:
- Alimenté combobox
- Linq - Alimenter un DataGridView suite à choix d'un ComboBox ✓ - Forum - VB.NET
- ComboBox qui alimente une feuil ✓ - Forum - VB.NET
- Combobox alimenté depuis une table ✓ - Forum - VB.NET
- Connexion et alimentation d'un combobox ✓ - Forum - C# / .NET
- [access] Alimentation d'une listebox par le choix d'une valeur dans une combobox ✓ - Forum - VB.NET
2 réponses
jpleroisse
- Messages postés
- 1788
- Date d'inscription
- mardi 7 novembre 2000
- Statut
- Membre
- Dernière intervention
- 11 mars 2006
Bonsoir,
Essaye ceci
Private Sub Command3_Click()
Dim FileName As String
Dim r As Long, c As Integer
Dim txt As String, Char As String * 1
Dim Data
Dim i As Integer
On Error Resume Next
FileName = "C:\Test.ini"
Open FileName For Input As #1
If Err <> 0 Then
MsgBox "Introuvable : " & FileName, vbCritical, "ERREUR"
Exit Sub
End If
r = 0
c = 0
txt = ""
Do Until EOF(1)
Line Input #1, Data
For i = 1 To Len(Data)
Char = Mid(Data, i, 1)
If Char = "," Then
c = c + 1
txt = ""
ElseIf i = Len(Data) Then
If Char <> Chr(34) Then txt = txt & Char
Combo1.AddItem txt
txt = ""
ElseIf Char <> Chr(34) Then
txt = txt & Char
End If
Next i
c = 0
r = r + 1
Loop
Close #1
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
Essaye ceci
Private Sub Command3_Click()
Dim FileName As String
Dim r As Long, c As Integer
Dim txt As String, Char As String * 1
Dim Data
Dim i As Integer
On Error Resume Next
FileName = "C:\Test.ini"
Open FileName For Input As #1
If Err <> 0 Then
MsgBox "Introuvable : " & FileName, vbCritical, "ERREUR"
Exit Sub
End If
r = 0
c = 0
txt = ""
Do Until EOF(1)
Line Input #1, Data
For i = 1 To Len(Data)
Char = Mid(Data, i, 1)
If Char = "," Then
c = c + 1
txt = ""
ElseIf i = Len(Data) Then
If Char <> Chr(34) Then txt = txt & Char
Combo1.AddItem txt
txt = ""
ElseIf Char <> Chr(34) Then
txt = txt & Char
End If
Next i
c = 0
r = r + 1
Loop
Close #1
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
cs_petchy
- Messages postés
- 710
- Date d'inscription
- jeudi 20 février 2003
- Statut
- Membre
- Dernière intervention
- 19 mai 2015
Re
merci jpleroisse,nickel
petchy
merci jpleroisse,nickel
petchy