SVP HELP !!! sauvegarde et restitution combobox + saisie automatique
beardedman
-
1 avril 2001 à 01:46
ludovicanceaux Messages postés 440 Date d'inscription mardi 21 octobre 2003 Statut Membre Dernière intervention 6 mai 2010 - 2 avril 2004 à 00:05
ludovicanceaux Messages postés 440 Date d'inscription mardi 21 octobre 2003 Statut Membre Dernière intervention 6 mai 2010 - 2 avril 2004 à 00:05
A voir également:
- SVP HELP !!! sauvegarde et restitution combobox + saisie automatique
- Erreur de saisie - Conseils pratiques -C / C++ / C++.NET
- Défilement automatique page web - Forum Javascript / DHTML
- Test saisie alphanumérique - Forum Java
- Defilement automatique pdf en boucle - Forum Javascript / DHTML
- Un seul champ automatique est permis et il doit être indexé ✓ - Forum SQL
4 réponses
Voila comment faire pour sauvegarder et restituer le contenue d'une ComboBox,
Private Sub Form_Unload(Cancel As Integer)
Dim I As Long
Dim lFile As Long
If Combo1.ListCount > 0 Then
lFile = FreeFile
Open "C:\Sauvegarde Combo.txt" For Output As #lFile
For I = 0 To Combo1.ListCount - 1
Print #lFile, Combo1.List(I)
Next I
Close #lFile
End If
End Sub
'========================================================'
Private Sub Form_Load()
Dim lFile As Long
Dim Temp As String
lFile = FreeFile
Open "C:\Sauvegarde Combo.txt" For Intput As #lFile
Do
Line Input #lFile, Temp
' Trim$() c'est pour éviter d'ajouter une ligne vide dans la ComboBox mais ce n'est pas obligatoire ;)
If Trim$(Temp) <> "" Then Combo1.AddItem Temp
Loop Until EOF(lFile)
Close #lFile
End Sub
Pour ce qui est de ton " écriture automatique " tu peut le faire avec les API's ou avec le code, j'ai pris ton email en note et je vais t'envoyer les 2 exemples(avec API's et avec le code) et tu garderas celui que tu préfère ;)
En passant c'est vraiment super les couleurs et tout le reste mais c'est long!!!!!!!!!!!!!
:big)
NitRic28@Hotmail.com
VB_MAN
Private Sub Form_Unload(Cancel As Integer)
Dim I As Long
Dim lFile As Long
If Combo1.ListCount > 0 Then
lFile = FreeFile
Open "C:\Sauvegarde Combo.txt" For Output As #lFile
For I = 0 To Combo1.ListCount - 1
Print #lFile, Combo1.List(I)
Next I
Close #lFile
End If
End Sub
'========================================================'
Private Sub Form_Load()
Dim lFile As Long
Dim Temp As String
lFile = FreeFile
Open "C:\Sauvegarde Combo.txt" For Intput As #lFile
Do
Line Input #lFile, Temp
' Trim$() c'est pour éviter d'ajouter une ligne vide dans la ComboBox mais ce n'est pas obligatoire ;)
If Trim$(Temp) <> "" Then Combo1.AddItem Temp
Loop Until EOF(lFile)
Close #lFile
End Sub
Pour ce qui est de ton " écriture automatique " tu peut le faire avec les API's ou avec le code, j'ai pris ton email en note et je vais t'envoyer les 2 exemples(avec API's et avec le code) et tu garderas celui que tu préfère ;)
En passant c'est vraiment super les couleurs et tout le reste mais c'est long!!!!!!!!!!!!!
:big)
NitRic28@Hotmail.com
VB_MAN
Voila comment faire pour sauvegarder et restituer le contenue d'une ComboBox,
Private Sub Form_Unload(Cancel As Integer)
Dim I As Long
Dim lFile As Long
If Combo1.ListCount > 0 Then
lFile = FreeFile
Open "C:\Sauvegarde Combo.txt" For Output As #lFile
For I = 0 To Combo1.ListCount - 1
Print #lFile, Combo1.List(I)
Next I
Close #lFile
End If
End Sub
'========================================================'
Private Sub Form_Load()
Dim lFile As Long
Dim Temp As String
lFile = FreeFile
Open "C:\Sauvegarde Combo.txt" For Intput As #lFile
Do
Line Input #lFile, Temp
' Trim$() c'est pour éviter d'ajouter une ligne vide dans la ComboBox mais ce n'est pas obligatoire ;)
If Trim$(Temp) <> "" Then Combo1.AddItem Temp
Loop Until EOF(lFile)
Close #lFile
End Sub
Pour ce qui est de ton " écriture automatique " tu peut le faire avec les API's ou avec le code, j'ai pris ton email en note et je vais t'envoyer les 2 exemples(avec API's et avec le code) et tu garderas celui que tu préfère ;)
En passant c'est vraiment super les couleurs et tout le reste mais c'est long!!!!!!!!!!!!!
:big)
NitRic28@Hotmail.com
VB_MAN
Private Sub Form_Unload(Cancel As Integer)
Dim I As Long
Dim lFile As Long
If Combo1.ListCount > 0 Then
lFile = FreeFile
Open "C:\Sauvegarde Combo.txt" For Output As #lFile
For I = 0 To Combo1.ListCount - 1
Print #lFile, Combo1.List(I)
Next I
Close #lFile
End If
End Sub
'========================================================'
Private Sub Form_Load()
Dim lFile As Long
Dim Temp As String
lFile = FreeFile
Open "C:\Sauvegarde Combo.txt" For Intput As #lFile
Do
Line Input #lFile, Temp
' Trim$() c'est pour éviter d'ajouter une ligne vide dans la ComboBox mais ce n'est pas obligatoire ;)
If Trim$(Temp) <> "" Then Combo1.AddItem Temp
Loop Until EOF(lFile)
Close #lFile
End Sub
Pour ce qui est de ton " écriture automatique " tu peut le faire avec les API's ou avec le code, j'ai pris ton email en note et je vais t'envoyer les 2 exemples(avec API's et avec le code) et tu garderas celui que tu préfère ;)
En passant c'est vraiment super les couleurs et tout le reste mais c'est long!!!!!!!!!!!!!
:big)
NitRic28@Hotmail.com
VB_MAN
ludovicanceaux
Messages postés
440
Date d'inscription
mardi 21 octobre 2003
Statut
Membre
Dernière intervention
6 mai 2010
2 avril 2004 à 00:05
2 avril 2004 à 00:05
Bjr je voudrai savoir si il existe ce code pour vb.net
merci bcp pour l'aide
merci bcp pour l'aide