Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: list box 2 ini
Autor: Klaus-Werner
Datum: 28.05.03 17:33
'Hallo Gamewalker 'Wenn Du eine "echte" .ini Datei mit Werten aus einer ListBox anlegen willst kannst 'Du wie im folgenden Beispiel vorgehen 'NG.:28.05.03.do ' Private Declare Function WritePrivateProfileString Lib "kernel32" _ Alias "WritePrivateProfileStringA" _ (ByVal lpAppName As String, _ ByVal lpKeyName As Any, _ ByVal lpString As Any, _ ByVal lpFileName As String) _ As Long Private Sub Command1_Click() Call WriteIniFile(List1, "Test", App.Path & "\test.ini") End Sub Private Sub WriteIniFile(ByRef Source As ListBox, ByVal Section As String, _ ByVal Filename As String) Dim n As Integer On Error Resume Next With Source If .ListCount > 0 Then For n = 0 To .ListCount - 1 Call WritePrivateProfileString(Section, CStr(n), .List(n), Filename) Next Else Call MsgBox("Keine Werte zum speichern vorhanden", vbInformation, "Info...") Exit Sub End If End With End Sub Private Sub Form_Load() Dim n As Integer For n = 0 To 9 With List1 Call .AddItem("Gruß an das vbarchiv aus Hannover " & CStr(n)) End With Next End Sub 'MfG 'Frank

list box 2 ini	405	Gamewalker	28.05.03 16:48
Re: list box 2 ini	250	Ibex	28.05.03 16:56
Re: list box 2 ini	41	Klaus-Werner	28.05.03 17:33
Re: list box 2 ini	243	Gamewalker	28.05.03 17:55

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen