Coklu Checkbox Örnek Amaçlıdır... 6 tane checkbox olsun ve hepsinin adı aynı olsun bölece bir index oluşturulmuş olunur.. 1 > name : chkHoby index : 0 caption : Araba 2 > name : chkHoby index : 1 caption : Pc 3 > name : chkHoby index : 2 caption : Yüzmek 4 > name : chkHoby index : 3 caption : Spor 5 > name : chkHoby index : 4 caption : Müzik 6 > name : chkHoby index : 5 caption : Futbol 'Code : sub command1_Click 'neler seçmişiz bakalım.. Dim Mesaj as string for x=0 to 5 if chkHoby =true then Mesaj=Mesaj & chkHoby . caption & " , " end if next x Msgbox Mesaj & " hobbyleri seçildi..." end sub

index olayına girmen güzel olmuş saol

private sub form_load Text1. Visible = False end sub Private Sub Check1_Click If Check1. Value = 1 Then Check1. Caption = "Seçildim " Text1. Visible = True Text1. Text = "Nie seçtin anlat bakam" Else Check1. Caption = "Seçilmedim " Text1. Visible = False End If End Sub

Private Sub Check1_Click If Check1. Value = 1 Then Check1. Caption = "Seçildim " Else Check1. Caption = "Seçilmedim " End If End Sub Check Seçildiği zaman başlığı seçildim oluyo. işareti kaldırdığında seçilmedim zaten bunda fazla bişey yapamazsın sadece value ve caption özelliği önemli value seçili olup olmadığı 0 ise seçili değil 1 se seçili 2 ise seçili ama sanki enabled özelliği false gibi ha bide enabled özelliği önemli captionda zaten başlığı

aynı örnekte ; Sub chkHoby_Click msgbox chkHoby . caption end sub 'eger index vermeseydik tek tek hepsi için code yazacaktık...

arkadaşlar olayı kawramak için bana checkboxla ilgili küçücük 1 örnek verirmisiniz?

Private Sub Check1_Click If Check1. Value = 1 Then msgbox "Nie seçion beni ya " Check1. Value=0 end if End Sub daha yazalım mı