Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic listbox

listbox

6 réponses
Avatar
Richer
Bonjour a tous.
si quelqu'un a une idée

voici mon probleme:

j ai un listbox avec des données provenant d un fichier text, j ai un bouton
pour effacer une donnee du listbox.

mais je ne trouve pas la facon pour effacer la donne du fichier il l
efface du listbox mais pas du ficher car il ajoute des "".

ex:
""
"""fhsgfhsfg"""

Merci de votre aide
Richer
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ng
Salut,

Peut-on voir ton code ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Richer wrote:
Bonjour a tous.
si quelqu'un a une idée

voici mon probleme:

j ai un listbox avec des données provenant d un fichier text, j ai un
bouton pour effacer une donnee du listbox.

mais je ne trouve pas la facon pour effacer la donne du fichier
il l efface du listbox mais pas du ficher car il ajoute des "".

ex:
""
"""fhsgfhsfg"""

Merci de votre aide
Richer


Avatar
Richer
Voici le code

LsIP = mon listBox


Private Sub CmdEffacer_Click()
'Vérouiller le bouton si la liste est vide
If LsIP.ListCount = 0 Then
CmdEffacer.Enabled = False
Exit Sub
End If

LsIpValeurIndex = LsIP.ListIndex
'Si un élément est sélectionné, le supprimer et afficher le nombre
If LsIpValeurIndex > -1 Then
LsIP.RemoveItem LsIpValeurIndex
lblAffichage.Caption = LsIpValeurIndex
Else
Beep
End If

LsIP.AddItem Templist
LsIP.Clear



Open "C:PROGRA~1MODEMC~1IPCHEC~1.txt" For Append As
#1
'Input #1, templist
'LsIP.AddItem templist
Do
'Line Input #1, Templist
'Input #1, templist
'LsIP.AddItem Templist
Write #1, Templist
'LsIpValeurIndex = LsIP.ListCount
Loop While Not EOF(1)

Close #1

RefreshForm

End Sub



Merci de votre regard
Richer




"ng" a écrit dans le message de
news:
Salut,

Peut-on voir ton code ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Richer wrote:
> Bonjour a tous.
> si quelqu'un a une idée
>
> voici mon probleme:
>
> j ai un listbox avec des données provenant d un fichier text, j ai un
> bouton pour effacer une donnee du listbox.
>
> mais je ne trouve pas la facon pour effacer la donne du fichier
> il l efface du listbox mais pas du ficher car il ajoute des "".
>
> ex:
> ""
> """fhsgfhsfg"""
>
> Merci de votre aide
> Richer




Avatar
ng
Salut,

Il suffit de recreer ton fichier, soit à chaque suppression, soit à la
fermeture du programme.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Richer wrote:
Voici le code

LsIP = mon listBox


Private Sub CmdEffacer_Click()
'Vérouiller le bouton si la liste est vide
If LsIP.ListCount = 0 Then
CmdEffacer.Enabled = False
Exit Sub
End If

LsIpValeurIndex = LsIP.ListIndex
'Si un élément est sélectionné, le supprimer et afficher le
nombre If LsIpValeurIndex > -1 Then
LsIP.RemoveItem LsIpValeurIndex
lblAffichage.Caption = LsIpValeurIndex
Else
Beep
End If

LsIP.AddItem Templist
LsIP.Clear



Open "C:PROGRA~1MODEMC~1IPCHEC~1.txt" For
Append As #1
'Input #1, templist
'LsIP.AddItem templist
Do
'Line Input #1, Templist
'Input #1, templist
'LsIP.AddItem Templist
Write #1, Templist
'LsIpValeurIndex = LsIP.ListCount
Loop While Not EOF(1)

Close #1

RefreshForm

End Sub



Merci de votre regard
Richer




"ng" a écrit dans le message de
news:
Salut,

Peut-on voir ton code ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Richer wrote:
Bonjour a tous.
si quelqu'un a une idée

voici mon probleme:

j ai un listbox avec des données provenant d un fichier text, j ai
un bouton pour effacer une donnee du listbox.

mais je ne trouve pas la facon pour effacer la donne du fichier
il l efface du listbox mais pas du ficher car il ajoute des "".

ex:
""
"""fhsgfhsfg"""

Merci de votre aide
Richer






Avatar
Richer
comment


Richer

"ng" a écrit dans le message de
news:
Salut,

Il suffit de recreer ton fichier, soit à chaque suppression, soit à la
fermeture du programme.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Richer wrote:
> Voici le code
>
> LsIP = mon listBox
>
>
> Private Sub CmdEffacer_Click()
> 'Vérouiller le bouton si la liste est vide
> If LsIP.ListCount = 0 Then
> CmdEffacer.Enabled = False
> Exit Sub
> End If
>
> LsIpValeurIndex = LsIP.ListIndex
> 'Si un élément est sélectionné, le supprimer et afficher le
> nombre If LsIpValeurIndex > -1 Then
> LsIP.RemoveItem LsIpValeurIndex
> lblAffichage.Caption = LsIpValeurIndex
> Else
> Beep
> End If
>
> LsIP.AddItem Templist
> LsIP.Clear
>
>
>
> Open "C:PROGRA~1MODEMC~1IPCHEC~1.txt" For
> Append As #1
> 'Input #1, templist
> 'LsIP.AddItem templist
> Do
> 'Line Input #1, Templist
> 'Input #1, templist
> 'LsIP.AddItem Templist
> Write #1, Templist
> 'LsIpValeurIndex = LsIP.ListCount
> Loop While Not EOF(1)
>
> Close #1
>
> RefreshForm
>
> End Sub
>
>
>
> Merci de votre regard
> Richer
>
>
>
>
> "ng" a écrit dans le message de
> news:
>> Salut,
>>
>> Peut-on voir ton code ?
>>
>> --
>> Nicolas G.
>> FAQ VB : http://faq.vb.free.fr
>> API Guide : http://www.allapi.net
>> Google Groups : http://groups.google.fr/
>> MZ-Tools : http://www.mztools.com/
>>
>> Richer wrote:
>>> Bonjour a tous.
>>> si quelqu'un a une idée
>>>
>>> voici mon probleme:
>>>
>>> j ai un listbox avec des données provenant d un fichier text, j ai
>>> un bouton pour effacer une donnee du listbox.
>>>
>>> mais je ne trouve pas la facon pour effacer la donne du fichier
>>> il l efface du listbox mais pas du ficher car il ajoute des "".
>>>
>>> ex:
>>> ""
>>> """fhsgfhsfg"""
>>>
>>> Merci de votre aide
>>> Richer




Avatar
ng
Salut,

Private Sub Form_Unload(Cancel As Integer)
Dim k As Integer, i As Integer
k = FreeFile
Open "c:mon fichier.txt" For Output As #k
For i = 1 To List1.ListCount - 1
Print #k, List1.List(i)
Next
Close #k
End Sub

Par ailleurs pour la lecture, je te recommande plutot :

Private Sub Form_Load()
Dim k As Integer, strBuffer As String, tblLine() As String

k = FreeFile
Open "c:mon fichier.txt" For Binary As #k
strBuffer = String$(LOF(k), vbNullChar)
Get #k, , strBuffer
Close #k

tblLine = Split(strBuffer, vbCrLf): strBuffer = ""

Call List1.Clear
For k = 0 To UBound(tblLine)
If tblLine(k) <> "" Then
Call List1.AddItem(tblLine(k))
End If
Next

Erase tblLine

End Sub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Richer wrote:
comment


Richer

"ng" a écrit dans le message de
news:
Salut,

Il suffit de recreer ton fichier, soit à chaque suppression, soit à
la fermeture du programme.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Richer wrote:
Voici le code

LsIP = mon listBox


Private Sub CmdEffacer_Click()
'Vérouiller le bouton si la liste est vide
If LsIP.ListCount = 0 Then
CmdEffacer.Enabled = False
Exit Sub
End If

LsIpValeurIndex = LsIP.ListIndex
'Si un élément est sélectionné, le supprimer et afficher le
nombre If LsIpValeurIndex > -1 Then
LsIP.RemoveItem LsIpValeurIndex
lblAffichage.Caption = LsIpValeurIndex
Else
Beep
End If

LsIP.AddItem Templist
LsIP.Clear



Open "C:PROGRA~1MODEMC~1IPCHEC~1.txt" For
Append As #1
'Input #1, templist
'LsIP.AddItem templist
Do
'Line Input #1, Templist
'Input #1, templist
'LsIP.AddItem Templist
Write #1, Templist
'LsIpValeurIndex = LsIP.ListCount
Loop While Not EOF(1)

Close #1

RefreshForm

End Sub



Merci de votre regard
Richer




"ng" a écrit dans le message de
news:
Salut,

Peut-on voir ton code ?

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Richer wrote:
Bonjour a tous.
si quelqu'un a une idée

voici mon probleme:

j ai un listbox avec des données provenant d un fichier text, j ai
un bouton pour effacer une donnee du listbox.

mais je ne trouve pas la facon pour effacer la donne du
fichier il l efface du listbox mais pas du ficher car il ajoute
des "".

ex:
""
"""fhsgfhsfg"""

Merci de votre aide
Richer










Avatar
Richer
Merci de votre aide voici lcode qui a fonctionner.

Private Sub CmdAjout_Click()
On Error GoTo ErreurAjout
'Ajouter une entrée
If TxtIpAjout = "" Then
msg = "Vous devez saisir une valeur!"
MsgBox msg
Exit Sub
'Vérouiller le bouton si la liste est vide
Else
'If LsIP.ListCount = 0 Then
CmdEffacer.Enabled = False
'Else
Open "C:PROGRA~1MODEMC~1IPCHEC~1.txt" For Append As #1
Print #1, TxtIpAjout
Close #1
RefreshForm
CmdEffacer.Enabled = True
'End If
End If

ErreurAjout:

' MsgBox "Erreur D'ajout", vbCritical ' Control erreur

' trim , ltrim , rtrim pour enlever les guillemets

End Sub

Private Sub CmdEffacer_Click()
Dim i As Integer

'Vérouiller le bouton si la liste est vide
If LsIP.ListCount = 0 Then
CmdEffacer.Enabled = False
Exit Sub
End If

'Si un élément est sélectionné, le supprimer et afficher le nombre
If LsIP.ListIndex > -1 Then
LsIP.RemoveItem LsIP.ListIndex
lblAffichage.Caption = LsIP.ListIndex
Else
Beep
End If

'LsIP.AddItem Templist
'LsIP.Clear


Open "C:PROGRA~1MODEMC~1IPCHEC~1.txt" For Output As #1
For i = 0 To LsIP.ListCount - 1
Print #1, LsIP.List(i)
Next i
Close #1


RefreshForm

End Sub



Richer





"ng" a écrit dans le message de
news:
Salut,

Private Sub Form_Unload(Cancel As Integer)
Dim k As Integer, i As Integer
k = FreeFile
Open "c:mon fichier.txt" For Output As #k
For i = 1 To List1.ListCount - 1
Print #k, List1.List(i)
Next
Close #k
End Sub

Par ailleurs pour la lecture, je te recommande plutot :

Private Sub Form_Load()
Dim k As Integer, strBuffer As String, tblLine() As String

k = FreeFile
Open "c:mon fichier.txt" For Binary As #k
strBuffer = String$(LOF(k), vbNullChar)
Get #k, , strBuffer
Close #k

tblLine = Split(strBuffer, vbCrLf): strBuffer = ""

Call List1.Clear
For k = 0 To UBound(tblLine)
If tblLine(k) <> "" Then
Call List1.AddItem(tblLine(k))
End If
Next

Erase tblLine

End Sub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Richer wrote:
> comment
>
>
> Richer
>
> "ng" a écrit dans le message de
> news:
>> Salut,
>>
>> Il suffit de recreer ton fichier, soit à chaque suppression, soit à
>> la fermeture du programme.
>>
>> --
>> Nicolas G.
>> FAQ VB : http://faq.vb.free.fr
>> API Guide : http://www.allapi.net
>> Google Groups : http://groups.google.fr/
>> MZ-Tools : http://www.mztools.com/
>>
>> Richer wrote:
>>> Voici le code
>>>
>>> LsIP = mon listBox
>>>
>>>
>>> Private Sub CmdEffacer_Click()
>>> 'Vérouiller le bouton si la liste est vide
>>> If LsIP.ListCount = 0 Then
>>> CmdEffacer.Enabled = False
>>> Exit Sub
>>> End If
>>>
>>> LsIpValeurIndex = LsIP.ListIndex
>>> 'Si un élément est sélectionné, le supprimer et afficher le
>>> nombre If LsIpValeurIndex > -1 Then
>>> LsIP.RemoveItem LsIpValeurIndex
>>> lblAffichage.Caption = LsIpValeurIndex
>>> Else
>>> Beep
>>> End If
>>>
>>> LsIP.AddItem Templist
>>> LsIP.Clear
>>>
>>>
>>>
>>> Open "C:PROGRA~1MODEMC~1IPCHEC~1.txt" For
>>> Append As #1
>>> 'Input #1, templist
>>> 'LsIP.AddItem templist
>>> Do
>>> 'Line Input #1, Templist
>>> 'Input #1, templist
>>> 'LsIP.AddItem Templist
>>> Write #1, Templist
>>> 'LsIpValeurIndex = LsIP.ListCount
>>> Loop While Not EOF(1)
>>>
>>> Close #1
>>>
>>> RefreshForm
>>>
>>> End Sub
>>>
>>>
>>>
>>> Merci de votre regard
>>> Richer
>>>
>>>
>>>
>>>
>>> "ng" a écrit dans le message de
>>> news:
>>>> Salut,
>>>>
>>>> Peut-on voir ton code ?
>>>>
>>>> --
>>>> Nicolas G.
>>>> FAQ VB : http://faq.vb.free.fr
>>>> API Guide : http://www.allapi.net
>>>> Google Groups : http://groups.google.fr/
>>>> MZ-Tools : http://www.mztools.com/
>>>>
>>>> Richer wrote:
>>>>> Bonjour a tous.
>>>>> si quelqu'un a une idée
>>>>>
>>>>> voici mon probleme:
>>>>>
>>>>> j ai un listbox avec des données provenant d un fichier text, j ai
>>>>> un bouton pour effacer une donnee du listbox.
>>>>>
>>>>> mais je ne trouve pas la facon pour effacer la donne du
>>>>> fichier il l efface du listbox mais pas du ficher car il ajoute
>>>>> des "".
>>>>>
>>>>> ex:
>>>>> ""
>>>>> """fhsgfhsfg"""
>>>>>
>>>>> Merci de votre aide
>>>>> Richer