High-Tech
Santé-Médecine
Droit-Finances
CodeS-SourceS
Inscription
Plan
Connexion
Rechercher un code, un tuto, une réponse
Accueil
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Tous les langages
Delphi / Pascal
Java
Python
SQL
RegEx
Flash
ASM
IRC
Graphisme
PDA
ColdFusion
Foxpro
Flex
Visual Basic / VB.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
PHP
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C/C++/C++.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Javascript
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C#/.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
ASP/ASP.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Accueil
Connexion
Déposer un code
Code
Recherche
Haut
Accueil
Forum Codes-Sources
Visual Basic
Sujet Précédent
Sujet Suivant
Alimenté combobox
Résolu
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
- 29 déc. 2005 à 17:28
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
-
29 déc. 2005 à 18:00
bonsoir
est ce possible d'alimenté un combobox en allant chercher les données dans un fichier ini,si oui comment .
merci
@ plus
petchy
Afficher la suite
A voir également:
Alimenté combobox
Combobox selecteditem
✓
-
Forum C# / .NET
Combobox delphi
✓
-
Forum Delphi / Pascal
Combobox
✓
-
Forum Delphi / Pascal
Combobox : afficher la premiere ligne
✓
-
Forum Delphi / Pascal
Combobox
✓
-
Forum VB.NET
2
réponses
Réponse 1 / 2
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
29 déc. 2005 à 17:47
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.
Réponse 2 / 2
cs_petchy
Messages postés
710
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
19 mai 2015
3
29 déc. 2005 à 18:00
Re
merci jpleroisse,nickel
petchy
Rejoignez-nous
A voir également
Combobox html
Combobox vb.net
Récupérer valeur combobox vba
Combobox php
C# combobox selectedvalue