Привет.
Такая головоломка: есть 4 CheckBox-а. Можно или нет сделать проверку их поля ".Value" через Select Case.
Вообщем, смотря какой активен - делаем действия. Если можно, то просьба пример синтиксиса. Или все же ТОЛЬКО через "ифы"?
Благодарю.
1-е. Где вы видели у Checkbox-са свойство Value?
2-е. Вот код для действия над всеми Checkbox-сами на форме(Form1)
Для примера выводятся их имена
Option Strict On
Option Explicit On
Public Class Form1
Private Shared m_oCheckBox As System.Windows.Forms.CheckBox = Nothing
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For Each oCheckBox As Object In MyBase.Controls
If TypeOf (oCheckBox) Is System.Windows.Forms.CheckBox Then
m_oCheckBox = CType(oCheckBox, CheckBox)
MsgBox(m_oCheckBox.Name)
End If
Next
End Sub
End Class
в шестом васике используется свойство Value. Если речь идет именно о
нем, то можно создать массив CheckBox-ов, т.е. CheckBox-ы с одинаковыми
именами и установленным свойством Index. проверять состояние через
цикл, типа
for i = 0 to UBound(CheckBox1)
if CheckBox1(i).Velue = vbChecked Then MsgBox("ok"
next i