لیست باکس

[asadolah]

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

[xxnagin]

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

 

If ListBox1.SelectedItems.Count > 0 Then

 

Dim Index AsInteger = ListBox1.SelectedIndex

 

EndIf

EndSub

[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