Programalama > VISUAL BASIC

KULLANILAN BUTONLAR

4 ADET COMMAND
1 ADET PİCTURE

KODLAR:

'resimleri değiştirmek istiyorsanızload pictureden sonra olan("C:\Documents and Settings\All Users\Belgeler\Resimlerim\Örnek Resimler\Mavi tepeler.jpg") bölümüne kendi resminizin adresini yazabilirsiniz.

Private Sub Command1_Click()
Picture1.Picture = LoadPicture("C:\Documents and Settings\All Users\Belgeler\Resimlerim\Örnek Resimler\Günbatımı.jpg")
End Sub

Private Sub Command2_Click()
Picture1.Picture = LoadPicture("C:\Documents and Settings\All Users\Belgeler\Resimlerim\Örnek Resimler\Kış.jpg")
End Sub

Private Sub Command3_Click()
Picture1.Picture = LoadPicture("C:\Documents and Settings\All Users\Belgeler\Resimlerim\Örnek Resimler\Mavi tepeler.jpg")
End Sub

Private Sub Command4_Click()
MsgBox " ÇIKIŞ İŞLEMİNİZ BAŞARI İLE GERÇEKLEŞTİRİLMİŞTİR."
End
End Sub