پس زمینه رندوم پنل

[vistamobile 1,700]

سلام. یه کد تو انجمن بود که میشد مثلا بین 10 تا عکس رندوم کرد واسه پس زمینه ایمیج ویو.

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

[Alireza.Ghafari 2,104]

سلام 

Sub bg_img 
	Dim img_id As Int
	img_id = Rnd(1,10)
	Dim pnl As Panel
	pnl.SetBackgroundImage(LoadBitmap(File.DirAssets,img_id&".jpg"))
End Sub

این ساب رو همینطوری نوشتم تا ساختار کلی رو بهت بگم و شما پنل خودتو جای گزین کن... 

در ضمن 10 تا عکس با نام هایی از 1 تا 10 هم در پوشه Assets قرار بده ... 

موفق باشی