merhaba arkadaşlar vb.nette bir textboxı yada checkboxı kayıt.ini şeklinde kayıt edip programı actığımda goruntuluyorum fakat listbox ta kayıt yapamıyorum yardımcı olurmusunuz bende olan kodlar şunlar bu formatta listbox kaydı nasıl yapabilirim acaba ?

Kod:
Dim inifile As IniFiles = New IniFiles("C:\Client.ini") Public Class IniFiles Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As System.Text.StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer Private Declare Ansi Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer Private Declare Ansi Function GetPrivateProfileInt Lib "kernel32.dll" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer Private Declare Ansi Function FlushPrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As Integer, ByVal lpKeyName As Integer, ByVal lpString As Integer, ByVal lpFileName As String) As Integer Private strFilename As String = "" Public Sub New(ByVal Filename As String) strFilename = Filename End Sub Public Property FileName(ByVal strFilename As String) As String Get Return strFilename End Get Set(ByVal value As String) strFilename = value End Set End Property Public Function Getir(ByVal Section As String, ByVal Key As String, ByVal [Default] As String) As String Dim Sonuc As String = "" Dim intCharCount As Integer Dim objResult As New System.Text.StringBuilder(1024) intCharCount = GetPrivateProfileString(Section, Key, [Default], objResult, objResult.Capacity, strFilename) If intCharCount > 0 Then Sonuc = (objResult.ToString) Getir = Sonuc End Function Public Function GetirSayi(ByVal Section As String, ByVal Key As String, ByVal [Default] As Integer) As Integer Return GetPrivateProfileInt(Section, Key, [Default], strFilename) End Function Public Sub Yaz(ByVal Section As String, ByVal Key As String, ByVal Value As String) WritePrivateProfileString(Section, Key, Value, strFilename) Flush() End Sub Public Sub YazSayi(ByVal Section As String, ByVal Key As String, ByVal Value As Integer) Yaz(Section, Key, CStr(Value)) Flush() End Sub Private Sub Flush() FlushPrivateProfileString(0, 0, 0, strFilename) End Sub End Class Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ListBox1.Items.Add(TextBox1.Text) End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click inifile.Yaz("Client Yolu", "Client1", TextBox1.Text) 'String !!!!!!!!!!!!!!!! Listbox kayıt yapmak istiyorum !!!!!!!!!!!!!!!!!!! Next End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load TextBox1.Text = inifile.Getir("Client Yolu", "Client1", TextBox1.Text) End Sub End Sub

__________________