Formda koşullu icon değiştirme

27/03/2016, 14:23

umuttk

Merhaba değerli ustalar ve sayın üyeler

Forumda aradım ama bir türlü buna benzer bir örnek bulamadığım için bu konuyu açmak zorunda kaldım. Öncelikle buna benzer bir örnek varsa ve ben görememişsem öncelikle adminden özür dilemek isterim.

Benim sorunum ekte örneğini vermiş olduğum formda geçis durumu 0 olduğunda kırmızı icon, 1 olduğunda ise yeşil icon aktif olsun istiyorum. Yada buna benzer bir icon ile aktif ve pasif olduğunda renk değiştiren bir uygulama olsun istiyorum.

Yardımlarınız için şimdiden teşekkür eder, saygılar sunarım.
27/03/2016, 16:34

atoz112

sayın umuttk,

bahsettiğiniz talebinize yönelik olarak;
eklediğiniz örneği kendi adıma inceleme imkanım ve zamanın olmadı fakat ilk etapta bir cevap verebilmek üzere,ilgili formun GEÇERLİ OLDUĞUNDA olay yordamına aşağıdaki iki yöntemi içeren kod ifadelerini ekleyerek deneyebilirsiniz.

YÖNTEM 1


(Geçiş Durumu değerini,iki seçenekli olacağı düşüncesi ile SAYI veri türü olarak var sayılmak sureti ile)

Kod:
If Me.geçis_durumu_denetimi_adi = 1 Then

Me.yesil_ikon_denetim_adi.Visible = True
Me.kirmizi_ikon_denetim_adi.Visible = False

Else

Me.yesil_ikon_denetim_adi.Visible = False
Me.kirmizi_ikon_denetim_adi.Visible = True

End If

YÖNTEM 2

Kod:
Me.Me.geçis_durumu_denetimi_adi.SetFocus
Select Case Me.Me.geçis_durumu_denetimi_adi.Text
Case 0
Me.yesil_ikon_denetim_adi.Visible = False
Me.kirmizi_ikon_denetim_adi.Visible = True

Case 1
Me.yesil_ikon_denetim_adi.Visible = True
Me.kirmizi_ikon_denetim_adi.Visible = False
End Select

bilginize...iyi çalışmalar,saygılar.
27/03/2016, 17:06

umuttk

(27/03/2016, 16:34)atoz112 yazdı: sayın umuttk,

bahsettiğiniz talebinize yönelik olarak;
eklediğiniz örneği kendi adıma inceleme imkanım ve zamanın olmadı fakat ilk etapta bir cevap verebilmek üzere,ilgili formun GEÇERLİ OLDUĞUNDA olay yordamına aşağıdaki iki yöntemi içeren kod ifadelerini ekleyerek deneyebilirsiniz.

YÖNTEM 1


(Geçiş Durumu değerini,iki seçenekli olacağı düşüncesi ile SAYI veri türü olarak var sayılmak sureti ile)


Kod:
If Me.geçis_durumu_denetimi_adi = 1 Then

Me.yesil_ikon_denetim_adi.Visible = True
Me.kirmizi_ikon_denetim_adi.Visible = False

Else

Me.yesil_ikon_denetim_adi.Visible = False
Me.kirmizi_ikon_denetim_adi.Visible = True

End If

YÖNTEM 2


Kod:
Me.Me.geçis_durumu_denetimi_adi.SetFocus
Select Case Me.Me.geçis_durumu_denetimi_adi.Text
Case 0
Me.yesil_ikon_denetim_adi.Visible = False
Me.kirmizi_ikon_denetim_adi.Visible = True

Case 1
Me.yesil_ikon_denetim_adi.Visible = True
Me.kirmizi_ikon_denetim_adi.Visible = False
End Select

bilginize...iyi çalışmalar,saygılar.
Sayın atoz112

desteğiniz için tesekkür ederim.

Ben 1. yöntemi daha önce denemiştim.
Ancak sekmeli veri görünümündeki formda tüm satırdaki iconlar hepsi birlikte değişmektedir.
Bilginize...

Teşekkürler
29/03/2016, 06:49

ozanakkaya

Sürekli formda, satırda buton gösterip gizleme olayını yapamazsınız. Aktif satır ne ise o satırdaki veriye göre tüm butonlar görünür veya gizlenir.


Koşullu biçimlendirme ile 0 yerine diğer metin kutusuna "Aktif" veya "Pasif" yazdırıp koşullu biçimlendirme ile arkaplan rengini yeşil veya kırmızı yapabilirsin. 
30/03/2016, 20:42

umuttk

(29/03/2016, 06:49)ozanakkaya yazdı: Sürekli formda, satırda buton gösterip gizleme olayını yapamazsınız. Aktif satır ne ise o satırdaki veriye göre tüm butonlar görünür veya gizlenir.


Koşullu biçimlendirme ile 0 yerine diğer metin kutusuna "Aktif" veya "Pasif" yazdırıp koşullu biçimlendirme ile arkaplan rengini yeşil veya kırmızı yapabilirsin. 
Sayın ozanakkaya

İlginize teşekkür ederim. Bunu dikkate alacağım.

Saygılarımla...