لیست باکس

[asadolah]

سلام
دو تا سوال دارم
اول اینکه چطور میتونم آیتمی مثلا با ایندکس n ام از یک لیست باکس رو آیتم جاری قرار بدمش یا همون انتخابش کنم؟
دوم هم اینکه چطور میشه ایندکس آیتم انتخاب شده رو در یک متغییر قرار بدم
از همیاریتان سپاسگذارم.

[xxnagin]

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

If ListBox1.SelectedItems.Count > 0 Then

Dim Index As Integer = ListBox1.SelectedIndex

End If
End Sub

[headshoter]

این هم برای سوال اولتون :
Public Class Form1
Dim index As Integer
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
For i As Integer = 0 To 20
Me.ListBox1.Items.Add("Item number = " + i.ToString())
Next
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
index = Convert.ToInt16(TextBox1.Text)
If ListBox1.Items.Count > index Then
ListBox1.SelectedIndex = index
End If
End Sub
End Class

[asadolah]

سلام
ممنونم من جواب خودم رو گرفتم اما این یک خط کد رو بی زحمت توضیح بدین کارش چیه؟

index = Convert.ToInt16(TextBox1.Text

[xxnagin]

این کد رشته رو به ToInt16 یا همون integer تبدیل میکنه
index = Convert.ToInt16(TextBox1.Text)


Public Class Form1
Dim index As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 0 To 20
Me.ListBox1.Items.Add(i.ToString())
Next
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
If ListBox1.Items.Count > 0 Then
TextBox1.Text = ListBox1.SelectedIndex
End If
End Sub
End Class