چطوری عکس شانسی تو ویبی6 بیاریم ؟

[mkvisual]

بازم سلام ... من این برنامه رو می خوام ...

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

[butterfly8528]

سلام .

فرض بر این هست که شما میخوای یکی از دو عکس موجود در پوشه برنامه در نمایش دهید :



Private Sub Command1_Click()
Dim M
Randomize
M = Int((2 * Rnd) + 1)

If M = 1 Then
Image1.Picture = LoadPicture(App.Path & "\a.jpg")
End If

If M = 2 Then
Image1.Picture = LoadPicture(App.Path & "\b.jpg")
End If

End Sub

[.:KeihanCPU:.]

البته میشه اسم عکس ها رو همون اعداد گذاشت که نیازی به شرط های اضافی نباشه

[parselearn]

http://www.barnamenevis.org/forum/showthread.php?t=178680