Conversie Save/load item from listbox to listview
Last Updated: Jul 05 2010 13:22, Started by
Dancezar09
, Jul 05 2010 13:22
·
0
#1
Posted 05 July 2010 - 13:22
Am doua functii
Private Sub LoadList(lst As ListBox, file As String) On Error GoTo error Dim a As String Open file For Input As #1 Do Until EOF(1) Input #1, a lst.AddItem a Loop Close 1 Exit Sub error: MsgBox "File Not Found", vbOKOnly, "Error" End Sub Private Sub SaveList(lst As ListBox, file As String) On Error GoTo error Dim I As Integer Dim a As String Open file For Output As #1 For I = 0 To lst.ListCount - 1 a = lst.List(I) Print #1, a Next Close 1 Exit Sub error: MsgBox "There has been a error!", vbOKOnly, "Error" End Sub este adaptat pentru listbox dar as dori sa convertesc aceste doua functii pentru un list view cu doua categorii ms mult |
Anunturi
Bun venit pe Forumul Softpedia!
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users