Soru Geçmişi

Dim i As Integer i = ListBox1.SelectedIndex With ListBox1.Items If i < ListBox1.Items.Count - 1 Or TextBox3.Text > listboxcount - 1 Then TextBox3.Text = TextBox3.Text + 1 ListBox1.SelectedIndex = TextBox3.Text Label1.Text = ListBox1.SelectedItem.Text Label1.Text = Label1.Text.Substring(0, Label1.Text.Length - 5) End If End With button içindeki böyle bir kodla litsbox daki itemleri secerek başka bir yere aktarıyorum ama textbox3deki sayı litbox item sayılarından büyük olunca hata veriyor sizce cözüm ne olmalı "with " yapısı işe yara gibi ama çözüm bulamadım.

... Dim i As Integer i = ListBox1.SelectedIndex With ListBox1.Items If i < ListBox1.Items.Count - 1 Or TextBox3.Text > listboxcount - 1 Then TextBox3.Text = TextBox3.Text + 1 ListBox1.SelectedIndex = TextBox3.Text Label1.Text = ListBox1.SelectedItem.Text Label1.Text = Label1.Text.Substring(0, Label1.Text.Length - 5) End If End With button içindeki böyle bir kodla litsbox daki itemleri secerek başka bir yere aktarıyorum ama textbox3deki sayı litbox item sayılarından büyük olunca hata veriyor sizce cözüm ne olmalı "with " yapısı işe yara gibi ama çözüm bulamadım.

... With ListBox1.Items If i < ListBox1.Items.Count - 1 Or TextBox3.Text > listboxcount - 1 Then TextBox3.Text = TextBox3.Text + 1 ListBox1.SelectedIndex = TextBox3.Text Label1.Text = ListBox1.SelectedItem.Text Label1.Text = Label1.Text.Substring(0, Label1.Text.Length - 5) End If End With button içindeki böyle bir kodl a litsbox daki itemleri secerek başka bir yere aktarıyorum ama textbox3deki sayı litbox item sayılarından büyük olunca hata veriyor sizce cözüm ne olmalı "with " yapısı işe yara gibi ama çözüm bulamadım.