Hi leute.
Ich möchte gerne von einem Programm aus, das in Visual Studion 2003 .Net entwickelt wird, einstellungen in ein INI-File schreiben. Nun habe ich diese tollen snippets im Netz gefunden:
Funktionsaufrufe
Nun sagt mir das .net studio aber folgende punkte:
-"As Any" wird in "Declare"-Anweisungen nicht unterstützt. (bei API definitionen)
- Ein Schlüsselwort darf kein Typzeichen enthalten. (Wegen dem "$-Zeichen" hinter String$ und Left$
- "Public Property Left() As Integer" hat keine Parameter, und der Rückgabetyp kann nicht indiziert werden. (existieren mehrere versionen der funktion "Left"?)
Was mus ich tun, damit das alles funktioniert? muss ich irgendwelche erweiterungen oder sowas einbinden, damit das funktioniert?
bin nicht so ein genie in vb, habe die snippets wirklich 1:1 reinkopiert und als nix lief, habe ich ein wenig herumprobiert, damit die fehlermeldungen verschwanden und das programm wenigstens kompiliert werden konte. funktioniert hats dann aber nicht.
Die obenstehen snippets sind original von shadoware.de/vb/ini.html
hoffe ihr könnt mir helfen, ich komme echt nicht weiter
thx und gruss
Shitmaker
Ich möchte gerne von einem Programm aus, das in Visual Studion 2003 .Net entwickelt wird, einstellungen in ein INI-File schreiben. Nun habe ich diese tollen snippets im Netz gefunden:
VB.NET-Quellcode
- 'API-Funktionen deklarieren
- Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As Any, ByVal lsString As Any, ByVal lplFilename As String) As Long
- Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Funktionsaufrufe
VB.NET-Quellcode
- Sub SaveINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal Value As Variant)
- Call WritePrivateProfileString(Key, Setting, Value, Filename)
- End Sub
- Function GetINISetting(ByVal Filename As String, ByVal Key As String, ByVal Setting As String, ByVal Default As Variant) As Variant
- Dim Temp As String * 1024
- Call GetPrivateProfileString(Key, Setting, Default, Temp, Len(Temp), Filename)
- GetINISetting = Mid(Temp, 1, InStr(1, Temp, Chr(0)) - 1)
- End Function
Nun sagt mir das .net studio aber folgende punkte:
-"As Any" wird in "Declare"-Anweisungen nicht unterstützt. (bei API definitionen)
- Ein Schlüsselwort darf kein Typzeichen enthalten. (Wegen dem "$-Zeichen" hinter String$ und Left$
- "Public Property Left() As Integer" hat keine Parameter, und der Rückgabetyp kann nicht indiziert werden. (existieren mehrere versionen der funktion "Left"?)
Was mus ich tun, damit das alles funktioniert? muss ich irgendwelche erweiterungen oder sowas einbinden, damit das funktioniert?
bin nicht so ein genie in vb, habe die snippets wirklich 1:1 reinkopiert und als nix lief, habe ich ein wenig herumprobiert, damit die fehlermeldungen verschwanden und das programm wenigstens kompiliert werden konte. funktioniert hats dann aber nicht.
Die obenstehen snippets sind original von shadoware.de/vb/ini.html
hoffe ihr könnt mir helfen, ich komme echt nicht weiter
thx und gruss
Shitmaker