Sign In
Create Account
Conversie Save/load item from listbox to listview
Last Updated: Jul 05 2010 13:22, Started by
Dancezar09
, Jul 05 2010 13:22
·
0
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 |
Back to topAnunturi
Bun venit pe Forumul Softpedia!
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users
-
- Change Theme
- English
- Mark Community Read
- Termene & conditii
- Confidentialitate
- Consimtamant
- Cookies
- Help
© 2001-2024 Softpedia. All rights reserved. Softpedia® and the Softpedia logo are registered trademarks of SoftNews Net SRL.
Ora implicita a Forumului Softpedia este ora standard a Romaniei (GMT+2). Mai multe informatii →
⚠ Postarile afisate pe Forumul Softpedia reprezinta o opinie subiectiva a membrilor care le-au publicat si nu a SoftNews Net SRL.