قرار دادن اطلاعات چند ستون از یک رکورد در دکمه ها به شکل رندوم

[mohsen m 156]

با سلام خدمت همه

من میخوام به صورت رندوم اطلاعات هر ستون از رکوردامو تو دکمه هام بزارم. کدم به شکل زیرِ

...
Button1.Text=cur.GetString("test1")
Button2.Text=cur.GetString("test2")
Button3.Text=cur.GetString("test3")
Button4.Text=cur.GetString("test4")
...

نمیدونم rnd را چطوری باید استفاده کنم. البته تکراریم نشه رندوم کردنم

ممنون

[manoochehr_sh 55]

اول اعداد رو بصورت رندم بدون تکرار تو یه ارایه بریز

مثلا به این روش:

Dim arr(5) As Int
	Dim i,j As Int
	For i=1 To 4
		arr(i)=0
	Next
	i=1
	Do While i<=4
		j=Rnd(1,5)
		If arr(j)=0 Then
			arr(j)=i
			i=i+1
		End If
	Loop

بعد :

Button1.Text=cur.GetString("test" & arr(1))
Button2.Text=cur.GetString("test" & arr(2))
Button3.Text=cur.GetString("test" & arr(3))
Button4.Text=cur.GetString("test" & arr(4))

[mohsen m 156]

باتشکر فراوان