merhaba arkadaşlar benim şoyle bi isteğim var listbox eklediğim itemleri kayıt etmesini textboxıda aynı şekilde kayıt etmesini istiyorum zamanında başka bi forumdan birinden rica etmiştim yapmıştı fakat 1-2 sorun vardı onuda ozel mesajla soyleyip duzeltmiştim daha sonra projem silindi ve gene o kayıt sistemi gerekli eski sorunlu proje var elimde fakat 2008 vb.net te sorunsuz calışıyo ama 2012 de sorunlu şekilde calışmıyor sorunuda şu kayıt etme işlemini gercekleştiriyo fakat okutma yapınca 25 olarak okuyo listbox ıda aynı şekilde textbox ıda aynı şekilde kayıt işlemi yapıyo ama 25 olarka okuyo yardımcı olan arkadşlar olursa sevinirim kodlar bunlar

proje download adresi
http://yadi.sk/d/9l8yNgs86tDfM

Kod:
Public Class Form1 Public 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 Long, ByVal lpFileName As String) As Long 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 ListeCount As Integer Private Sub AyarYaz(ByVal Baslik As String, ByVal Aciklama As String, ByVal Veri As String, ByVal Path As String) Call WritePrivateProfileString(Baslik, Aciklama, Veri, Path) End Sub Public Function AyarOku(ByVal Baslik As String, ByVal Aciklama As String, ByVal Path As String) On Error Resume Next Dim sRet As String : sRet = String.Format(255, Chr(0)) AyarOku = Microsoft.VisualBasic.Left(sRet, GetPrivateProfileString(Baslik, Aciklama, "", sRet, Len(sRet), Path)) End Function Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click AyarYaz("Check ayar işlemi", "Değer", CheckBox1.CheckState, Application.StartupPath & "\Check.ini") End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click AyarYaz("Text ayar işlemi", "Değer", TextBox1.Text, Application.StartupPath & "\Text.ini") End Sub Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click AyarYaz("List ayar işlemi", "Count", ListBox1.Items.Count - 1, Application.StartupPath & "\List.ini") Dim a As Integer : For a = 0 To ListBox1.Items.Count - 1 AyarYaz("List ayar işlemi", "Değer(" & a & ")", ListBox1.Items(a), Application.StartupPath & "\List.ini") Next End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click ListBox1.Items.Add(TextBox2.Text) End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click CheckBox1.Capture = AyarOku("Check ayar işlemi", "Değer", Application.StartupPath & "\Check.ini") TextBox1.Text = AyarOku("Text ayar işlemi", "Değer", Application.StartupPath & "\Text.ini") ListeCount = AyarOku("List ayar işlemi", "Count", Application.StartupPath & "\List.ini") ListBox1.Items.Clear() Dim a As Integer : For a = 0 To ListeCount ListBox1.Items.Add(AyarOku("List ayar işlemi", "Değer(" & a & ")", Application.StartupPath & "\List.ini")) Next End Sub End Class

__________________