جابه جایی عکس ها در فرم

[majidbahrami]

دروووووووووووود...

بچه ها من یه فرم دارم توش 10 تا image هست که کنار هم دیگه قرار دارن..
عکس ها به ترتیب مثلا = ماه-خورشید-ستاره و.. هستند

حالا من میخوام هر بار که فرم رو لود میکنم جای این عکس ها عوض بشه...یعنی جابه جا بشن عکس های توی image ...
کسی میتونه نمونه ای بزاره اینجا؟

ممنون

[MohammadGh2011]

دروووووووووووود...

بچه ها من یه فرم دارم توش 10 تا image هست که کنار هم دیگه قرار دارن..
عکس ها به ترتیب مثلا = ماه-خورشید-ستاره و.. هستند

حالا من میخوام هر بار که فرم رو لود میکنم جای این عکس ها عوض بشه...یعنی جابه جا بشن عکس های توی image ...
کسی میتونه نمونه ای بزاره اینجا؟

ممنون

سلام عليکم
نيازي نيست براي جابجايي عکسها ،کنترل Image رو تغيير مکان بديد ميتونيد از دستور ()Image1.Picture=Loadpicture استفاده کنيد که عکسها رو تغيير بده.

[majidbahrami]

میشه بیشتر توضیح بدی...
من میخوام فقط هر بار که فرم لود میشه عس ها با روشی خاصی ترتیب بشن ..یعنی قبلا بوده عکس 1..عکس 2. عکس3 .. حالا میخوام مثلا 3 تا 3تا ترتیب شه ..یعنی 3 ..6..9..
یه همچین حالی

[SlowCode]

سلام
این سوالت:

میخوام هر بار که فرم رو لود میکنم جای این عکس ها عوض بشه
با این فرق میکنه

میخوام مثلا 3 تا 3تا ترتیب شه
واسه اولی باید یه متغیر با مقدار راندوم داشته باشی و اسم عکس ها رو داخل یه آرایه بریزی بعد جزء صحیح عدد راندوم رو پیدا کنی و عضو آرایه با همون عدد رو نشون بدی. فارسیش یکم پیچیده شد، منظورم اینه:
Dim ar(10) as string
randomize
r = Int(Rnd * 10)
picture1.Loadpicture(app.path & "\images\" & ar(r))

واسه دومی هم باید یه متغیر با مقدار راندوم داشته باشی ولی تفاوتش اینه که باید به تعداد مقدارش پیکچرباکس درست کنی و تصویر رو توش لود کنی.
هر کجاش رو که متوجه نمیشی بگو تا با مثال توضیح بدیم.

[majidbahrami]

سلام
این سوالت:

با این فرق میکنه

واسه اولی باید یه متغیر با مقدار راندوم داشته باشی و اسم عکس ها رو داخل یه آرایه بریزی بعد جزء صحیح عدد راندوم رو پیدا کنی و عضو آرایه با همون عدد رو نشون بدی. فارسیش یکم پیچیده شد، منظورم اینه:
Dim ar(10) as string
randomize
r = Int(Rnd * 10)
picture1.Loadpicture(app.path & "\images\" & ar(r))

واسه دومی هم باید یه متغیر با مقدار راندوم داشته باشی ولی تفاوتش اینه که باید به تعداد مقدارش پیکچرباکس درست کنی و تصویر رو توش لود کنی.
هر کجاش رو که متوجه نمیشی بگو تا با مثال توضیح بدیم.
اگه میشه برا دومی مثال بزن محسن جان..
سوال: میشه کاری کرد که مثلا چندتا الگوریتم درست کنیم .. مثلا 3تا 3تا ...4تا 4تا .. 5تا 5تا .. بعد هر بار لود فرم یکی از این روند ها اجرا بشه...

[SlowCode]

یه دونه picture1 با ایندکس 0 بزار روی فرم بعد چندتا تصویر با اسامی 1 تا 10 بزار کناربرنامت بعد کد زیر رو بنویس:(البته می تونی واسه آزمایش خط 10 رو حذف کنی)

Private Sub Form_Load()
WindowState = 2
Randomize
r = Int(Rnd * 10)
For i = 1 To r
Load Picture1(i)
Picture1(i).Width = Picture1(0).Width
Picture1(i).Height = Picture1(i).Width
Picture1(i).Top = Picture1(0).Top
Picture1(i).Left = Picture1(i - 1).Left + Picture1(i - 1).Width + 20
Picture1(i).Picture = LoadPicture(App.Path & "\" & i & ".jpg")
Picture1(i).Visible = True
Next
End Sub

[majidbahrami]

این جاش که مشکلی نیست چطوری بهش بگیم یه سری از عکس هارو نشون .. مثلا 3.6.9 ؟
یعنی تصادفی هم که نشون میده اعداد بخش پذیر بر یا 3 رو نشون بده .. مثل عکس شماره 3 نشون بده چون بر خودش بخش پذیره..

[SlowCode]

باید از mod استفاده کنی مثلا:

if i mod 3=0 then
'code
End if