CommontButton' Resim Getirme

[HACI46]

Arkadaşlar Herkese merhaba,

Aynı CommontButton’ a Şarta göre, İsim ve Resim çağırabiliyor muyuz.

İsmi şarta göre Değiştire biliyoruz, sanırım Resmi de Değiştire biliriz,

Bana bunu Kodlayacak (Formülleyecek) Bir arkadaşımız var mıdır, İlgilenen yardımcı olan arkadaşlara şimdiden iliğiler i ve bilgileri için çok Teşekkürler.

Sağlıklı günler dileği ile Herkese Selamlar.



Şartımız, (FrmFatraListesi)'n de

If CbFaturaTuru.ListIndex = 0 Then CommontButton ( CbFaturaTuru )

(Resim Yolu : Masa Üstü, Loglar, İkonlar = incele)
Caption : İNCELE


Else CommontButton ( CbFaturaTuru )

(Resim Yolu : Masa Üstü, Loglar, İkonlar = Ekle)

Caption : FATURA EKLE

Exit Sub

End If

 

[YUSUF44]

Örnek dosya olsa daha iyi olurdu ama şöyle yardımcı olmaya çalışayım:

Her iki resmi de commandbutton üzerine ekleyin ve visible özelliğine false yapın. Sonra belirttiğiniz şartlarda

if .... then
image1.visible = true
image2.visible = false
commandbutton1.caption = "İNCELE"
else
image1.visible = false
image2.visible = true
commandbutton1.caption = "FATURA EKLE"
end if

şeklinde (tabi ki nesne isimlerine dikkat ederek) düzenleme yapın.

 

[AdemCan]

Merhaba,
İlgili kodlar için örnek, CommandButton1 'i kullandığınız buton ismi ile değiştiriniz.

If CbFaturaTuru.ListIndex < 0 Then
    CommandButton1.Picture = LoadPicture("C:\Users\" & Environ("UserName") & "\Desktop\Loglar\İkonlar\incele.jpg")
    CommandButton1.PicturePosition = fmPicturePositionLeftCenter
    CommandButton1.Caption = "İNCELE"
Else
    CommandButton1.Picture = LoadPicture("C:\Users\" & Environ("UserName") & "\Desktop\Loglar\İkonlar\ekle.jpg")
    CommandButton1.PicturePosition = fmPicturePositionLeftCenter
    CommandButton1.Caption = "FATURA EKLE"
    Exit Sub
End If

 

[YUSUF44]

Bu arada commandbutton'un picture/resim özelliği olduğunu bilmiyordum, sayın faye_efsane'nin cevabıyla öğrenmiş oldum.

 

[HACI46]

Örnek dosya olsa daha iyi olurdu ama şöyle yardımcı olmaya çalışayım:

Her iki resmi de commandbutton üzerine ekleyin ve visible özelliğine false yapın. Sonra belirttiğiniz şartlarda

if .... then
image1.visible = true
image2.visible = false
commandbutton1.caption = "İNCELE"
else
image1.visible = false
image2.visible = true
commandbutton1.caption = "FATURA EKLE"
end if

şeklinde (tabi ki nesne isimlerine dikkat ederek) düzenleme yapın.

Çok Teşekkür ediyorum Yusuf kardeş, bir deneyeyim ,Sağlıklı günler dileği ile Selamlar.

 

[HACI46]

Merhaba,
İlgili kodlar için örnek, CommandButton1 'i kullandığınız buton ismi ile değiştiriniz.

If CbFaturaTuru.ListIndex < 0 Then
    CommandButton1.Picture = LoadPicture("C:\Users\" & Environ("UserName") & "\Desktop\Loglar\İkonlar\incele.jpg")
    CommandButton1.PicturePosition = fmPicturePositionLeftCenter
    CommandButton1.Caption = "İNCELE"
Else
    CommandButton1.Picture = LoadPicture("C:\Users\" & Environ("UserName") & "\Desktop\Loglar\İkonlar\ekle.jpg")
    CommandButton1.PicturePosition = fmPicturePositionLeftCenter
    CommandButton1.Caption = "FATURA EKLE"
    Exit Sub
End If

Merhaba,
İlgili kodlar için örnek, CommandButton1 'i kullandığınız buton ismi ile değiştiriniz.

If CbFaturaTuru.ListIndex < 0 Then
    CommandButton1.Picture = LoadPicture("C:\Users\" & Environ("UserName") & "\Desktop\Loglar\İkonlar\incele.jpg")
    CommandButton1.PicturePosition = fmPicturePositionLeftCenter
    CommandButton1.Caption = "İNCELE"
Else
    CommandButton1.Picture = LoadPicture("C:\Users\" & Environ("UserName") & "\Desktop\Loglar\İkonlar\ekle.jpg")
    CommandButton1.PicturePosition = fmPicturePositionLeftCenter
    CommandButton1.Caption = "FATURA EKLE"
    Exit Sub
End If

Çok Teşekkür ediyorum kardeş, bir deneyeyim ,Sağlıklı günler dileği ile Selamlar.