Butonu tıklayınca resim çağırma

[exnor]

Herkese Merhaba

Ricam şu kısaca anlatmaya çalışıyorum sayfamda bir buton olucak adı turunçgiller olacak bu butona bastığımda mevcut bir klasördeki limon,portakal,mandalina,turunç gibi mevyelerin resimleri sayfaya gelecek tekrar butona bastığımda ise kaybolacak mümkünmüdür acaba. Şimdiden teşekkür ederim.
Konu ilkokul öğrencilerine eğitim amaçlı kullanılacaktır.
Saygılar.

 

[İhsan Tank]

dosya ve resimleri gönderseniz

 

[exnor]

İhsan bey ben resim dosyayı ekledim ilginiz için teşekkür ederim, Tekrar ifade etmek gerekirse mevcut butona basılınca ekteki resimlerim sayfada görünmesi gerekli.

 

[İhsan Tank]

şimdi bu nasıl olacak
izah edermisiniz.
turunçgiller butonuna tıklarsam ne olacak diğer butonlara tıklarsam ne olacak

 

[exnor]

İhsan Bey Turunçgiller butonuna tıkladığınızda butonun altından itibaren aşağıya doğru klasördeki resimlerin hepsini aynı anda gösterecek. Tekrar basıldığında ya da başka bir buton aracılığıylada ekrandan kaldıracak.

 

[İhsan Tank]

İhsan Bey Turunçgiller butonuna tıkladığınızda butonun altından itibaren aşağıya doğru klasördeki resimlerin hepsini aynı anda gösterecek. Tekrar basıldığında ya da başka bir buton aracılığıylada ekrandan kaldıracak.

resimleri D:\ sürücüne alın
3. tane Image oluşturun
bir tooglebutton oluşturun

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.Picture = LoadPicture("[COLOR="Red"]D:\turunçgiller\mandalina.jpg[/COLOR]")
Image2.PictureSizeMode = fmPictureSizeModeZoom
Image2.Picture = LoadPicture("[COLOR="red"]D:\turunçgiller\portakal.jpg[/COLOR]")
Image3.PictureSizeMode = fmPictureSizeModeZoom
Image3.Picture = LoadPicture("[COLOR="red"]D:\turunçgiller\turunç.jpg[/COLOR]")
ToggleButton1.Caption = "Resimleri Kaldır"
MsgBox "Resimler Çıktı", vbInformation
Else
Image1.Picture = LoadPicture("")
Image2.Picture = LoadPicture("")
Image3.Picture = LoadPicture("")
ToggleButton1.Caption = "Resimleri Çıkart"
MsgBox "Resimler Kalktı", vbInformation
End If
End Sub

bu kodu çalıştırın. kırmızı olan yer dosyanın yolu istediğiniz şekilde değiştirin.
dosyayı inceleyin.
Kodu'nu Yürüttüğüm yurttaş hocam'a teşekkür ederim.

 

[exnor]

resimleri D:\ sürücüne alın
3. tane Image oluşturun
bir tooglebutton oluşturun

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.Picture = LoadPicture("[COLOR="Red"]D:\turunçgiller\mandalina.jpg[/COLOR]")
Image2.PictureSizeMode = fmPictureSizeModeZoom
Image2.Picture = LoadPicture("[COLOR="red"]D:\turunçgiller\portakal.jpg[/COLOR]")
Image3.PictureSizeMode = fmPictureSizeModeZoom
Image3.Picture = LoadPicture("[COLOR="red"]D:\turunçgiller\turunç.jpg[/COLOR]")
ToggleButton1.Caption = "Resimleri Kaldır"
MsgBox "Resimler Çıktı", vbInformation
Else
Image1.Picture = LoadPicture("")
Image2.Picture = LoadPicture("")
Image3.Picture = LoadPicture("")
ToggleButton1.Caption = "Resimleri Çıkart"
MsgBox "Resimler Kalktı", vbInformation
End If
End Sub

bu kodu çalıştırın. kırmızı olan yer dosyanın yolu istediğiniz şekilde değiştirin.
dosyayı inceleyin.
Kodu'nu Yürüttüğüm yurttaş hocam'a teşekkür ederim.

İhsan bey çok teşekkür ederim harika oldu ellerinize sağlık

 

[İhsan Tank]

İhsan bey çok teşekkür ederim harika oldu ellerinize sağlık

rica ederim
:yazici: