Страница: 1 |
Вопрос: Выбор CheckBox-ов | Добавлено: 17.01.07 12:15 |
Автор вопроса: ![]() |
Привет.
Такая головоломка: есть 4 CheckBox-а. Можно или нет сделать проверку их поля ".Value" через Select Case. Вообщем, смотря какой активен - делаем действия. Если можно, то просьба пример синтиксиса. Или все же ТОЛЬКО через "ифы"? Благодарю. |
Ответы | Всего ответов: 2 |
Номер ответа: 1 Автор ответа: ![]() ![]() Вопросов: 9 Ответов: 115 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 17.01.07 12:34 |
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 |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() black admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 17.01.07 12:47 |
1-е. Где вы видели у Checkbox-са свойство Value?
в шестом васике используется свойство Value. Если речь идет именно о нем, то можно создать массив CheckBox-ов, т.е. CheckBox-ы с одинаковыми именами и установленным свойством Index. проверять состояние через цикл, типа for i = 0 to UBound(CheckBox1)
if CheckBox1(i).Velue = vbChecked Then MsgBox("ok" ![]() next i |
Страница: 1 |
|