تصاوير تصادفي

[mohammadsamadi1377]

با سلام من يك برنامه دارم كه 20 تا عكس توش هست
حالا ميخوام وقتي دكمه اي را ميزنم يكي از تصاوير به صورت تصادفي ببينم !؟؟

[SlowCode]

سلام
به تعداد عکسهات از کنترل پیکچرباکس آرایه کنترلی درست کن بعد یه عدد تصادفی درست کن و کنترل با ایندکس اون عدد تصادفی رو نشون بده:لبخند:

[mohammadsamadi1377]

خواهشا اگه ميشه كد بزاريد

[mohammadsamadi1377]

آغا كسي نيست ؟

[mehran901]

خب این اصلا مسئله ای نداره که!...
آقا محسن ی روشی گفتند منم دو روش دیگه میگم ...
1- همون که آقا محسن فرمودند ، ی مشت تصویر باکس بذارید و آرایه ای از کنترل ها بسازین و بینشون سوییچ کنین
2- اسم فایل های تصویریتون رو از عدد 1 تا 20 بذارید و با استفاده از picturebox1.picture = loadpicture("c:\" & i & ".jpg") ، و با زیاد کردن متغییر i تصویر های مختلف رو لود کنید ! حالا این متغیره i رو میتونید با استفاده از )i =int( rnd * 3 و دستور randomize جهت به دست آوردن عدد تصادفی که منجر به نمایش تصاویر تصادفی میشه بهینه کنید یا
3- از کنترل imagelist استفاده کنید ، بعد از افزودن به کامپوننت ها ، روش راست کلیک کنید برید به propertice و 20 30 هر چند تا عکس دارید داخل کنترل لود کنید ، بعد در برنامه با نوشتن ی خط کد تصاویر اونو داخل یک کنترل تصویر نمایش بدین

نمونه :

Option Explicit
Option Base 1
Private Sub Command1_Click()
Static i%
Debug.Print i
If i > 1 Then i = 0
Picture1.Picture = ImageList1.ListImages.Item(i + 1).Picture
i = i + 1
End Sub

[mehran901]

با اون کد ، با هر بار کلیک شدن روی دکمه1 ، بین 2 تصویری که من داخل imagelist گذاشته بودم سوییچ میشه.... شما بنا به تعداد عکس ها میتونید تغییرات ایجاد کنید

[mohammadsamadi1377]

very mer30

[mehran901]

از دکمه تشکر استفاده کنید چون روش های دیگه تشکر کردن بلاک میشن :D