نمایش عکس

[ahmadfononi]

در این برنامه هم می توان رنگ زمینه را به طور تصادفی تغییر داد و هم نمایش عکسها را عوض و یا پاک کرد.

ابتدا شش عکس حیوان را با نام های متمایز در نظر گرفته و یک فرم طراحی می کنیم که شامل یک image و سه command باشد و کدهای زیر را وارد می نماییم

کد:
​

Dim i As Integer
Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
Image1.Picture = LoadPicture("")
Command4.Caption = "Show Picture"
End Sub

Private Sub Command3_Click()
Randomize
frm_pic.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
End Sub

Private Sub Command4_Click()
Command4.Caption = "Next Picture"
Select Case i
Case 1:
i = i + 1
Image1.Picture = LoadPicture(App.Path + "\animal1.jpg")
Case 2:
i = i + 1
Image1.Picture = LoadPicture(App.Path + "\animal2.jpg")
Case 3:
i = i + 1
Image1.Picture = LoadPicture(App.Path + "\animal3.jpg")
Case 4:
i = i + 1
Image1.Picture = LoadPicture(App.Path + "\animal4.jpg")
Case 5:
i = i + 1
Image1.Picture = LoadPicture(App.Path + "\animal5.jpg")
Case 6:
i = 1
Image1.Picture = LoadPicture(App.Path + "\animal6.jpg")
End Select
End Sub

Private Sub Form_Load()
i = 1
End Sub​