HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
Merhaba arkadaşlar bugün yep yeni zorlandığınız bir konu üzerinde vermeye hazırım. Hemen derse geçelim.
Örnek olarak bir forma istediğiniz kadar fark etmez checkbox koymayı deneyin.
Ardından CTRL ile checkbox'ları seçin ardından ENTER tuşuna basınız.
Gelen yere en aşağıda vereceğim kodları yapıştırınız. Örnek olarak aşağıdaki resmi gösterebilirim.
Örnek olarak bir forma istediğiniz kadar fark etmez checkbox koymayı deneyin.
Ardından CTRL ile checkbox'ları seçin ardından ENTER tuşuna basınız.
Gelen yere en aşağıda vereceğim kodları yapıştırınız. Örnek olarak aşağıdaki resmi gösterebilirim.
Dim i, CheckBox_Sayisi As Integer
Try
For Each _chkBox As CheckBox In Me.Controls
CheckBox_Sayisi += 1
Next
Catch ex As System.InvalidCastException
End Try
Try
For Each chkBox As CheckBox In Me.Controls
If chkBox.CheckState = CheckState.Unchecked And i <> CheckBox_Sayisi Then
chkBox.Enabled = False
i += 1
End If
If i = CheckBox_Sayisi Then
For Each _chkBox As CheckBox In Me.Controls
_chkBox.Enabled = True
Next
End If
Next
i += 1
Catch ex As System.InvalidCastException
i = 0
End Try
Try
For Each _chkBox As CheckBox In Me.Controls
CheckBox_Sayisi += 1
Next
Catch ex As System.InvalidCastException
End Try
Try
For Each chkBox As CheckBox In Me.Controls
If chkBox.CheckState = CheckState.Unchecked And i <> CheckBox_Sayisi Then
chkBox.Enabled = False
i += 1
End If
If i = CheckBox_Sayisi Then
For Each _chkBox As CheckBox In Me.Controls
_chkBox.Enabled = True
Next
End If
Next
i += 1
Catch ex As System.InvalidCastException
i = 0
End Try
