مشكل با ليست باكس

[mostafaserial]

با سلام
من در روي يك فرم يك ليست باكس و يه دكمه دارم
داخل ليست باكس از قبل يكسري داده نوشته شده مثلا علي- رضا و... كه ميخوام با فشار دكمه از اولين كلمه كه مثلا علي تا آخرين كلمه كه حسينه به صورت پيام پشت هم بيان
مثلا اگه 10 تا كلمه توي ليست باكس دارم به تر تيب شماره اسامي رو نشون بدن و بعد هم با زدن دكمه ok اسم بعدي نمايش داده بشه.
بيشتر منظور من خوندن خط به خط و پشت سر هم محتويات ليست باكسه
مثل يه كامپايلر كه دستور رو خط به خط اجرا ميكنه اميدوارم كه متوجه شده باشين.

با تشكر

[ACorvinus]

سلام .

منظورتون اینه:



Dim x As New System.Text.StringBuilder

For Index As Integer = 0 To Me.ListBox1.Items.Count - 1
x.AppendLine(Me.ListBox1.Items(Index))
Next

MessageBox.Show(x.ToString)



اگه منظورتون این نیست پس لااقل یه شکل کلی از خروجی ای که میخواین داشته باشین رو بگین لطفا. موفق باشین .

[mostafaserial]

سلام .

منظورتون اینه:



Dim x As New System.Text.StringBuilder

For Index As Integer = 0 To Me.ListBox1.Items.Count - 1
x.AppendLine(Me.ListBox1.Items(Index))
Next

MessageBox.Show(x.ToString)



اگه منظورتون این نیست پس لااقل یه شکل کلی از خروجی ای که میخواین داشته باشین رو بگین لطفا. موفق باشین .

سلام
ايني كه شما گفتين فقط محتويات ليست باكس رو نمايش ميده
http://up.iranblog.com/4/1259752219.bmp
من ميخوام محتويات ليست باكس رو به صورت خط به خط بخونه
مثلا خط اول 1 پيام بده 1 خط دوم 2 پيام بده 2 و خط سوم reza پيام بده reza
, ....
ممنون از توجهتون

[ACorvinus]

یعنی هر بار که رو دکمه کلیک می کنین خط بعدی رو به شما بگه ؟

اگه داشته باشیم:

1
2
3
رضا

بار اول که کلیک می کنیم بگه 1 بار دوم بگه 2 بار سوم بگه 3 و بار چهارم بگه رضا ؟

[mostafaserial]

یعنی هر بار که رو دکمه کلیک می کنین خط بعدی رو به شما بگه ؟

اگه داشته باشیم:

1
2
3
رضا

بار اول که کلیک می کنیم بگه 1 بار دوم بگه 2 بار سوم بگه 3 و بار چهارم بگه رضا ؟

سلام
ببين با يك كليك به صورت پشت سر هم به طوري كه مثلا با وفقه نيم ثانيه
مثلا بعد از زدن دكمه متن 1 رو نشون بده بعد از اينكه دكمه ok رو زدم 2 رو و همينجور تا آخرين كلمه. اميدوارم متوجه شده باشيد شرمده:افسرده:

[ACorvinus]

در بخش Declarations بنویسین:


Private CurrentRowIndex As Integer = 0


اینم کدی که باید دز Button_Click بنویسین:



Me.ListBox1.SelectedIndex = CurrentRowIndex
Me.ListBox1.Focus()
MessageBox.Show(Me.ListBox1.Items(CurrentRowIndex) )
If CurrentRowIndex < Me.ListBox1.Items.Count - 1 Then
CurrentRowIndex += 1
Else
CurrentRowIndex = 0
End If



امیدوارم منظورتون این بوده باشه !!!

[ACorvinus]

سلام
ببين با يك كليك به صورت پشت سر هم به طوري كه مثلا با وفقه نيم ثانيه
مثلا بعد از زدن دكمه متن 1 رو نشون بده بعد از اينكه دكمه ok رو زدم 2 رو و همينجور تا آخرين كلمه. اميدوارم متوجه شده باشيد شرمده:افسرده:


اینم چیزی که شما میخواین:


For Index As Integer = 0 To Me.ListBox1.Items.Count - 1
Me.ListBox1.SelectedIndex = Index
Me.ListBox1.Focus()
MessageBox.Show(Me.ListBox1.Items(Index))
System.Threading.Thread.Sleep(1000)
Next


موفق باشین .

[mostafaserial]

سلام
عالي بود دستت درد نكنه انشا الله هر چي از خدا ميخواي بهت بده
ممنوووووووووووووووووووووو ووووووووووووووووون