Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
casa verde 2024

Intrerupator cu N - doza doar cu ...

Incalzire casa fara gaz/lemne

Incalzire in pardoseala etapizata
 Suprataxa card energie?!

Cum era nivelul de trai cam din a...

probleme cu ochelarii

Impozite pe proprietati de anul v...
 teava rezistenta panou apa calda

Acces in Curte din Drum National

Sub mobila de bucatarie si sub fr...

Rezultat RMN
 Numar circuite IPAT si prindere t...

Pareri brgimportchina.ro - teapa ...

Lucruri inaintea vremurilor lor

Discuții despre TVR Sport HD.
 

Conversie Save/load item from listbox to listview

- - - - -
  • Please log in to reply
No replies to this topic

#1
Dancezar09

Dancezar09

    Junior Member

  • Grup: Members
  • Posts: 27
  • Înscris: 11.02.2010
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

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate