Koşula Bağlı Togglebutton Lullanımı

Label25 "Bekar" değil ise
Frame2 true yap
Frame2 içinde ki Textbox2 ye veri girişini zorunlu yap
Textbox2' ye veri girildiği an Togglebutton

aşağıda ki kodu çalıştırsın.
ToggleButton1.Caption = " A Ç "
ToggleButton1.BackColor = QBColor(7)
ToggleButton1.ForeColor = QBColor(12)
ToggleButton1.FontBold = False
UserForm1.Height = 357


Label25 "Bekar" isse
Frame2 False yap
Frame2 içinde ki Textbox2 ye veri girişine gerek yok
Togglebutton

aşağıda ki kodu çalıştırsın.
ToggleButton1.Caption = " A Ç "
ToggleButton1.BackColor = QBColor(7)
ToggleButton1.ForeColor = QBColor(12)
ToggleButton1.FontBold = False
UserForm1.Height = 357





yukarıda ki işlemi bir türlü yapamadım. Rica etsem yardımcı olabilir misiniz?

label için caption kullandınız mı?
if label25.caption="bekar" .... gibi

Yok Ustam

Siz belirttiğim şekilde deneyin yapamazsanız çalışmanızı ekleyin inceleyelim.

Ustam
Listbox2 seçimine bağlı Label25 Bekar durumuna göre göster gizle durumu olmadı. Beceremedim.
If Label25.Caption = "Bekar" Then
  TextBox1.Visible = False
  Label29.Visible = False
Else
TextBox1.Visible = True
  Label29.Visible = True
End If


Bakabilir misiniz? Saygılarımla




İlgili Dosya

1 - dosyanızı şifresiz yükleyin
2 - sorunun hangi formda hangi durumda oluştuğunu da belirtseydiniz çözümü bulmak daha kolay olurdu

sorun kodda kullandığını BEKAR koşulundan kaynaklanıyor
label25.captıon'a atadığınız bekar kelimesinin sonunda bir kaç boşluk var o nedenle sorun çıkıyor, eğer kodu aşağıdaki gibi düzenlerseniz düzelebilir

If  Label25.Caption= "Bekar" Then

yerine aşağıdaki gibi dener misiniz?

If InStr(1, Label25.Caption, "Bekar") > 0 Then