terrornl helped... i need too

[Knower 0]

Das mein code zum erstellen einer Ini datei

 

Private Declare Ansi Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" ( _

ByVal lpApplicationName As String, _

ByVal lpKeyName As String, _

ByVal lpString As String, _

ByVal lpFileName As String) _

As Integer

 

Public Sub SetINIString(ByVal INIFile As String, ByVal Section As String, ByVal Key As String, ByVal Value As String)

WritePrivateProfileString(Section, Key, Value, INIFile)

End Sub

 

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

WritePrivateProfileString("favoriten", ComboBox1.Text, TextBox1.Text, "c:\omg.ini")

End Sub

 

die form hier

download

 

meine frage: button 2 soll den von der section "favoriten" , key " combobox1.text" in textbox1 machn wie mache ich das?

 

 

hatte schon

 

Private Declare Ansi 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 Integer, _

ByVal lpFileName As String) _

As Integer

 

Public Function GetINIString(ByVal INIFile As String, ByVal Section As String, ByVal Key As String, Optional ByVal DefaultValue As String = "", Optional ByVal BufferSize As Integer = 1024) As String

Dim sTemp As String = Space(BufferSize)

Dim Length As Integer = GetPrivateProfileString(Section, Key, DefaultValue, sTemp, BufferSize, INIFile)

Return Left(sTemp, Length)

End Function

 

 

aber da gibts error beim return left...

natürlich muss die datei bei vista als administrator gestartet werden

Edited August 25, 2009 by Knower