کد گرفتن Random عکس از گالری

[Salar82 901]

سلام

با کد زیر میتونید یه عکس رو بطور تصادفی از گالری انتخاب کنید:

Dim MB As MediaBrowser
MB.Initialize("MB")
Dim tmp_m As Map = MB.GetMediaImageList(True, "datetaken DESC")
img1.Bitmap = LoadBitmapResize(tmp_m.Get("Location" & Rnd(0,tmp_m.Size/7)),"",img1.Width,img1.Height,True)