PDA

View Full Version : لود شدن فرم و عوض شدن عکس



abi_sarab
سه شنبه 26 آذر 1387, 18:37 عصر
سلام!
خوبید؟
یه سؤال درگیرم کرده عجیب!
من یه فرم دارم که یه Picturebox روش fill شده با یه عکس که توی این picturebox هست.
حالا می خوام وقتی فرمم رو برای بار دوم که لود می کنم این بار picturebox با یه عکس دیگه لود بشه.
نمی دونم تونستم درست منظورمو بیان کنم یا نه.
می خوام هر بار که برنامه لود می شه picturebox با یه عکس جدید لود بشه.
مثلاً دفعه اول با یه عکس.
دفعه دوم با یه عکس دیگه.
حالا تا 4 -5 دفعه هم بشه خوبه.
مرسی!

mostafaaa
سه شنبه 26 آذر 1387, 18:48 عصر
سلام دوست من
میتونی از تابع راندوم به این شکل استفاده کنی که در هر بار لود فرمت به صورت تصادفی عکسی از لیست عکسهات رو انتخاب کنه و نشون بده.

abi_sarab
چهارشنبه 27 آذر 1387, 13:15 عصر
تابع راندوم چیه؟
نمی دونم چیه؟

mostafaaa
چهارشنبه 27 آذر 1387, 17:30 عصر
سلام دوست من
فرض رو بر این میگیریم که عکسهات رو توی یه لیست ریختی یا اینکه توی یه فولدری همراه برنامته یا ...
که اونش مهم نیست .
حالا من اولیش رو در نظر میگیرم

Private ImageList(10) As Image
با استفاده از تابع راندوم یکی از عکسهای درون لیستمون رو به صورت تصادفی انتخاب میکنیم.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim RND As New Random
Me.PictureBox1.Image = ImageList(RND.Next(10))
End Sub

abi_sarab
پنج شنبه 28 آذر 1387, 09:00 صبح
آقا مصطفی مرسی!
ولی من از resource استفاده می کنم. و هر کاری می کنم نمی تونم کد شما رو با resource بنویسم.

mostafaaa
پنج شنبه 28 آذر 1387, 09:22 صبح
خوب دوست من اول عکسهات رو بریز توی یه لیست یا آرایه :

Dim MineFrame As New List(Of Image)
MineFrame.Add(My.Resources._2)
MineFrame.Add(My.Resources._3)
MineFrame.Add(My.Resources._4)
MineFrame.Add(My.Resources._5)

Dim LIST(10) As Image
LIST(0) = My.Resources._1
LIST(1) = My.Resources._2

abi_sarab
پنج شنبه 28 آذر 1387, 11:24 صبح
آقا مصطفی بازم ممنون.
ولی شما خودت تست کردی؟
این ها هیچ کدوم کار نمی کنن!

mostafaaa
جمعه 29 آذر 1387, 17:54 عصر
ولی شما خودت تست کردی؟
این ها هیچ کدوم کار نمی کنن!
سلام دوست من
من هیچوقت تا کدی رو امتحان نکنم اینجا قرارش نمیدم.

abi_sarab
شنبه 30 آذر 1387, 17:58 عصر
ولی من هر چی تست می کنم. کار نمی کنه. یه ضمیمه می تونی بذاری؟

mostafaaa
شنبه 30 آذر 1387, 18:41 عصر
ولی من هر چی تست می کنم. کار نمی کنه. یه ضمیمه می تونی بذاری؟
سلام دوست من
اینو ببین (http://www.youshare.com/Guest/5670cd69206690e4.rar.html)