چگونه از Rnd در ListBox استفاده کنم

[iranian-pc]

سلام دو تا سوال دارم

1- من متن هایی در لیست باکس دارم که میخوام به صورت تصادفی Rnd توی یک تکست باکس نمایش پیدا کنه کسی میتونه کمک کنه

2- میخوام یه متن رو توی تکس باکس از چپ به حرکت در بیارم بیاد وسط یه مدت زمان مشخص توقف داشته باشه در وسط تکست باکس سپس از وسط به سمت راست حرکت بکنه

با تشکر اگر امکانش هست مثال برنامش رو برام درست کنید

[aryasoft2872]

اولیش که می شه:

Randomize
Dim RndSel As Integer
RndSel = Int(Rnd * (List.ListCount - 1))
Text.Text = List.List(RndSel)
دومیش هم:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim i As Integer
Const TextShw As String = "Hello!!!!!"

Private Sub Form_Load()
i = 0
End Sub

Private Sub Timer_Timer()
i = i + 1
Text.Text = Space(i) & TextShw
If i = 30 Then Sleep 1500
End Sub

[iranian-pc]

[quote=aryasoft2872;997954]اولیش که می شه:

Randomize
Dim RndSel As Integer
RndSel = Int(Rnd * (List.ListCount - 1))
Text.Text = List.List(RndSel)

کار نمیده میشه پروژه اش کنی بهم بدی

[daniyal_1363]

سلام

این نمونه کوچک هم برای جابه جایی متن میتونه کمکت کنه

فقط شما با توجه به اندازه textbox ی که میخوان نوشته رو توش حرکت بدین باید اعداد رو تغییر بدین

موفق باشین

[aryasoft2872]

..........

[xxxxx_xxxxx]

از مطرح کردن دو یا چند سؤال در یک تاپیک خودداری کنید.

با تشکر
تاپیک قفل شد/