Page 1 sur 1
enregistrer un listviewgadget
Publié : dim. 17/déc./2006 15:36
par venom
bonjour,
voila j'ai chercher sur le forum et de moi meme, mais je n'est pas trouver comment enregistrer le resultat d'un listviewgadget en fichier texte.
voici un petit exemple
Code : Tout sélectionner
;- Window Constants
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
Enumeration
#Button_0
#Listview_0
EndEnumeration
If OpenWindow(#Window_0, 220, -1, 600, 300, "essaie", #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
If CreateGadgetList(WindowID(#Window_0))
ButtonGadget(#Button_0, 20, 10, 100, 30, "enregistrer sous...")
ListViewGadget(#Listview_0, 20, 50, 560, 230)
For a=1 To 10
AddGadgetItem (#Listview_0,-1,Str(a)+" enregistrer sous") ; défini le contenu de la boîte de liste
Next
EndIf
EndIf
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
Select EventGadget()
Case #Button_0
EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
merci. si vous avez au moin un tuto ou lien sa serait cool.
@++
Publié : dim. 17/déc./2006 17:03
par Kwai chang caine
Bonjour venom
Je n'ai pas vraiment compris le sens de ta question?
Que veux tu enregistrer exactement dans le fichier texte ?
Qu'appelle tu "résultat"
La selection dans la listview ????
La listview complete ???
Publié : dim. 17/déc./2006 17:11
par Jacobus
Code : Tout sélectionner
;- Window Constants
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
Enumeration
#Button_0
#Listview_0
EndEnumeration
If OpenWindow(#Window_0, 220, -1, 600, 300, "essaie", #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
If CreateGadgetList(WindowID(#Window_0))
ButtonGadget(#Button_0, 20, 10, 100, 30, "enregistrer sous...")
ListViewGadget(#Listview_0, 20, 50, 560, 230)
For a=1 To 10
AddGadgetItem (#Listview_0,-1,Str(a)+" enregistrer sous") ; défini le contenu de la boîte de liste
Next
EndIf
EndIf
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
Select EventGadget()
Case #Button_0
Fichier.s = SaveFileRequester("Enregistrer sous...","c:\Listview","*.txt",0)
If Fichier = ""
Else
If GetExtensionPart(Fichier) = ""
Fichier = Fichier + ".txt"
EndIf
Enregistrer = #True
EndIf
If Enregistrer
If CreateFile(0,Fichier.s)
NbItems = CountGadgetItems(#Listview_0)
For n = 0 To NbItems - 1
Item.s = GetGadgetItemText(#Listview_0,n,0)
WriteStringN(0,Item)
Next
CloseFile(0)
MessageRequester("Enregistrement","La liste a été sauvegardée dans : "+Fichier,#MB_ICONINFORMATION)
EndIf
EndIf
EndSelect
EndIf
Until EventID = #PB_Event_CloseWindow
Publié : dim. 17/déc./2006 17:25
par venom
Bonjour venom
Je n'ai pas vraiment compris le sens de ta question?
Que veux tu enregistrer exactement dans le fichier texte ?
Qu'appelle tu "résultat"
La selection dans la listview ????
La listview complete ???
oui je me suis surement mal expliquer bin comme Jacobus vien juste de codé je souhaité sauvegarder tout le contenu. merci a toi Jacobus
c'est super cool
façon tout les personnes de ce forum le sont aussi
@++
Publié : dim. 17/déc./2006 17:31
par Kwai chang caine
De rien, j'ai meme pas eu le temps de le faire, pour une fois que cela aurait été de mon niveau.
@Jacobus
C'est plus jacobus qu'on va t'appeler, mais FlashCobus
Bonne soirée à tous