COMO SALVAR O CONTEUDO DE UM LISTBOX
Como eu posso salvar o conteúdo de uma ListBox??
( [S62] Por Favor, não expliquem em API e não façam eu croar um módulo)
[S31] (Eu sou Newbie ainda)
[S90] [S61]
( [S62] Por Favor, não expliquem em API e não façam eu croar um módulo)
[S31] (Eu sou Newbie ainda)
[S90] [S61]
O exemplo abaixo salva o conteúdo do ListBox em arquivo txt.
Sub SaveList (lstBox as ListBox, sFilePath as String)
Dim i as Integer
Dim sTexto as String
Open sFilePath OutputAs #1
For i = 0 To lstBox.ListCount -1
sText = lstBox,List(i)
Print #1, sText
Next i
Close 1
End Sub
Sub SaveList (lstBox as ListBox, sFilePath as String)
Dim i as Integer
Dim sTexto as String
Open sFilePath OutputAs #1
For i = 0 To lstBox.ListCount -1
sText = lstBox,List(i)
Print #1, sText
Next i
Close 1
End Sub
Po meu, valeu, mas me add do MSN [S30] ( ferdn4ndo@hotmail.com )
[S27]
[S33] [S67] [S98]
[S27]
[S33] [S67] [S98]
Tópico encerrado , respostas não são mais permitidas