Checkbox ve etiketi

[tamer42]

Merhabalar,

Form üzerinde 10 kadar checkbox ve bunların yanında adlarının yazdığı label (etiketleri) mevcut

chc : checkbox
lbl : Label

chckaaa >>>> lblaaa
chckbbb >>>> lblbbb
chckccc >>>> lblccc
chckddd>>>> lblddd
chckeee >>>> lbleee
chckfff >>>> lblfff
chckggg >>>> lblggg
chckhhh>>>> lblhhh
....
......

Form açıkken;
hangi checkbox seçili(true) ise yanındaki etiketin fontu bold olacak.

hangi checkbox seçili değil (False) ise yanındaki etiketin fontu normal (bold değil) olacak.

her bir checkbox event.... ine yazmadan aşağıdaki kod aralığında nasıl çözebilirim.


İyi Çalışmalar.


----------------------------------------------------
For Each kontrol In Me.Controls

If TypeOf kontrol Is CheckBox Then

......

.......

end if

next

---------------------------------------------------

 

[hedefkaya]

kod

kod aşağıda ama içinden çıkamasan ve acil değilsenyarın sana bir örnek gönderirim şuan yanımda yok

Private Sub Label56_Click()
On Error GoTo Err_Label56_Click

If Me.Label56.Caption = " CARİ ADI " & Me.lblDn.Caption Then
Me.Label56.Caption = " CARİ ADI " & Me.LblUp.Caption

Else
Me.Label56.Caption = " CARİ ADI " & Me.lblDn.Caption

End If

Me.Label55.BackColor = 12615680
Me.Label56.BackColor = 8421376
Me.Label57.BackColor = 12615680
Me.Label59.BackColor = 12615680

Me.Label55.Caption = " CARİ KODU"
Me.Label57.Caption = " BAKİYE"
Me.Label59.Caption = " Usefulness"



Exit_Label56_Click:
Exit Sub

Err_Label56_Click:
MsgBox Err.Description, , " GV Health"
Resume Exit_Label56_Click

End Sub

 

[modalı]

Sayın tamer42,

Üç onaylı bir form hazırladım ve çalıştı.

Private Sub Form_Current()
subLabelFormat
End Sub
Private Sub Form_Load()
subLabelFormat
End Sub
Private Sub Onay0_Click()
subLabelFormat
End Sub

Private Sub Onay4_Click()
subLabelFormat
End Sub
Private Sub Onay6_Click()
subLabelFormat
End Sub
Public Sub subLabelFormat()
x = 0
For Each kontrol In Me.Controls
If TypeOf kontrol Is CheckBox Then
    
    If Me.Controls(x) = -1 Then
       Me.Controls(x + 1).FontBold = 1
    Else
       Me.Controls(x + 1).FontBold = 0
    End If
End If
x = x + 1
Next
End Sub

İyi çalışmalar:hey:

 

[tamer42]

Acil değil, Yarın da olur.

benim düşündüğüm: checkbox ile etiketini bir şekilde birbiriyle ilişkilendirilmesi üzeri

yani checkbox değeri değişince (true/False) etiketinde de bir değişiklik olması...

Teşekkürler...

 

[modalı]

Sayın tamer42,

Zaten etiketin yazısı kalın oluyor chekbox dolu iken. Denemeden hemen olmaz diyorsunuz.

If [B]Me.Controls(x) = -1[/B] Then
       [B]Me.Controls(x + 1).FontBold = 1[/B]
    Else
       Me.Controls(x + 1).FontBold = 0
    End If

İyi çalışmalar

 

[tamer42]

Sn Modalı

önce Sn. hedefkaya nın mesajına bakmıştım.

ben sizin mesajını sonra gördüm, İlginize teşekkürler...tam istediğim gibi,

kodların çalışmasıyla ilgili Kafama takılan birkaç noktayı sorabilirmiyim.

Private Sub Form_Current()
subLabelFormat
End Sub

Form_Current: çalışma koşullarını öğrenebilir miyim? form açıkken bu kodun otomatik (kendiliğinden) çalışması gerekmezmi?

    If Me.Controls(x) = -1 Then
       Me.Controls(x + 1).FontBold = 1
.........
Next
End Sub

buradaki "x" ve "x+1" durumlarının mantığını çözemedim.

tekrar teşekkürler, İyi Çalışmalar.

 

[modalı]

Sayın tamer42,

Form current olayı form bir tablo ilişkili iken kayıtlar arasında gezinirken oluşan bir olay. Kayıt değiştiğinde chekboxlar kontrol edilip etiketleri yeniden formatlanıyor.

Forma chekbox eklerken yanına bir de etiket ekliyor. Her elemanın bir de sıra numarası ver. chekbox eklendiğinde etiketin sıra numarası onay kutusunun bir fazlası oluyor.

iyi çalışmalar

 

[tamer42]

Teşekkürler...