PDA

View Full Version : انتقال محتویات لیست به تکست بصورت تکی تکی



xrezax
سه شنبه 30 آبان 1391, 16:45 عصر
دوستان من یک لیست باکس دارم و یک تکست باکس
میخوام یکی یکی لیستو بندازم توی تکست باکس چطور این کارو انجام بدم. بوسیله یک حلقه

xxnagin
سه شنبه 30 آبان 1391, 16:55 عصر
سلام

تو رویداد SelectedIndexChanged این کد زیر باید بذاری

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For i = 0 To 10
ListBox1.Items.Add(i)
Next
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
If ListBox1.Items.Count > 0 Then
TextBox1.Text = ListBox1.SelectedItem
End If
End Sub
End Class

xrezax
سه شنبه 30 آبان 1391, 20:32 عصر
می خوام وقتی بزنم روی کامند بره برای بعدی بدون دخالت موس

xxnagin
سه شنبه 30 آبان 1391, 21:05 عصر
Private Sub PlayPrev()
If ListBox1.SelectedIndex = 0 Then
ListBox1.SelectedIndex = ListBox1.Items.Count - 1
Else
ListBox1.SelectedIndex = ListBox1.SelectedIndex - 1
End If
TextBox1.Text = ListBox1.SelectedItem
End Sub
Private Sub PlayNext()
If ListBox1.SelectedIndex = (ListBox1.Items.Count - 1) Then
ListBox1.SelectedIndex = 0
Else
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
End If
TextBox1.Text = ListBox1.SelectedItem
End Sub

xrezax
سه شنبه 30 آبان 1391, 21:10 عصر
دقیق همون چیزییه که من میخوام. فقط مشکلش اینه عدد سطرو نشون میده توی تکست بحای نشون دادن کلمه انتخاب شده.
بعد میخوام به آخر لیست که رسید اعلام کنه پایان

xrezax
سه شنبه 30 آبان 1391, 21:24 عصر
مرسی خودم حلش کردم.
کدو میزارم دوستان شاید بکارشون اومد


If ListBox1.SelectedIndex = (ListBox1.Items.Count - 1) Then
ListBox1.SelectedIndex = 0
End
Else
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
End If
TextBox1.Text = ListBox1.SelectedItem