Visual Basic Forum

big earl_ · Coder Anmeldedatum: 11.05.2007 Beiträge: 208

also ich hab hier ein problem mit der ini datei

wie das geht versteh ich ja aber der will den code hier nicht annehmen

[vb:1:404ef02c5c]'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
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

Private Sub Command1_Click()
SaveINISetting "C:\Datei.ini", "text1", "save", Text1.Text
End Sub
[/vb:1:404ef02c5c]