forsterm
Erfahrenes Mitglied
Hallo,
ich habe eine ini Datei die wie folgend aufgebaut ist:
Nun habe ich am Anfang meines Codes folgendes deklariert:
So, nun möchte ich die Daten die in der ini Datei stehen in die Listbox einlesen.
Dazu wollte ich wie folgend vorgehen:
Leider funktioniert das so jedoch nicht. Weiß jemand, mein Fehler ist?
mfg
forsterm
ich habe eine ini Datei die wie folgend aufgebaut ist:
Code:
[Empfaenger]
count=4
0=Zeile1
1=Zeile2
2=Zeile3
3=Zeile4
Nun habe ich am Anfang meines Codes folgendes deklariert:
Code:
Private Dateiname AsString
PrivateDeclareUnicodeFunction WritePrivateProfileString _
Lib "Kernel32" Alias "WritePrivateProfileStringW" ( _
ByVal sApplication AsString, _
ByVal sKey AsString, _
ByVal sValue AsString, _
ByVal sIniName AsString) As Int32
PrivateDeclareUnicodeFunction GetPrivateProfileInt _
Lib "Kernel32" Alias "GetPrivateProfileIntW" ( _
ByVal sApplication AsString, _
ByVal sKey AsString, _
ByVal iDefault AsInteger, _
ByVal sIniName AsString) As Int32
PrivateDeclareUnicodeFunction GetPrivateProfileString _
Lib "Kernel32" Alias "GetPrivateProfileStringW" ( _
ByVal sApplication AsString, _
ByVal sKey AsString, _
ByVal sDefault AsString, _
ByVal sReturn AsString, _
ByVal iReturnSize As Int32, _
ByVal sIniName AsString) As Int32
So, nun möchte ich die Daten die in der ini Datei stehen in die Listbox einlesen.
Dazu wollte ich wie folgend vorgehen:
Code:
Dateiname = Application.StartupPath & "\iniDateien.ini"
Dim i As Short
For i = 0 To GetPrivateProfileInt("Empfaenger", "count", 0, Dateiname) - 1
Me.ListBox1.Items.Add(GetPrivateProfileString("Empfaenger", i, 0, Dateiname))
Next
Leider funktioniert das so jedoch nicht. Weiß jemand, mein Fehler ist?
mfg
forsterm
Zuletzt bearbeitet: