Программирование
Веб программирование

Объекты vb. Флажок и Переключатель

 
 

Флажки - это такой же объект как кнопка, текстовое поле, метка..., и на этом шаге я научу тебя ими пользоваться. Он выглядит примерно так: .Ну что впечатляет? Отлично! Тогда войди в VB(как всегда Standart EXE), на форму кинь 1 флажок, и наверное хорош. Теперь сделаем программу, чтоб при убирании или ставке флажка комп выводил сообщение о состоянии флажка. Ну, короче смотри и запоминай:

Private Sub Check1_Click() 'При нажатии на флажок:
'О щет, я чуть не забыл тебе рассказать о свойстве Value, это свойство определяет стоит флажок или нет, если Value равен 1 то он стоит, если 0 то он убран
If Check1.Value = 0 Then 'Так вот, если свойство Value равно 0(флажок убран) то:
MsgBox "Флажок убран" 'Выскакивает ошибка с сообщением, что флажок убран
End If
If Check1.Value = 1 Then 'А если свойство Value равно 1(флажок поставлен) то:
MsgBox "Флажок поставлен" 'Выскакивает ошибка с сообщением, что флажок поставлен
End If
End Sub

А с переключателями такая же петрушка!

Переключатель тоже объект, и у него тоже есть свойство Value, и оно почти также работает. Флажки выглядят так: . В предыдущий проект добавим 2 переключателя, у первого переключателя свойство Caption сделай 1, а у второй 2.Теперь о свойстве Value - если у флажков там можно ставить 0 или 1,а у переключателя True или False. Не помню, говорил я о True и False, но на всякий случай скажу. True - переводится как Истина, это означает что у переключателя черная пипка будет поставлена, а False - это Ложь, если это свойство будет стоять, то пипки не будет. Так вот, сделаем программу, у которой при выборе переключателя 1 выскакивает ошибка о его выборе, и так же со вторым.

Private Sub Option1_Click() 'При нажатии на переключатель 1:
If Option1.Value = True Then 'Если у переключателя 1 стоит черная пипка то:
MsgBox "1" 'Выскакивает ошибка с надписью 1
End If

Private Sub Option2_Click() 'При нажатии на переключатель 2:
If Option2.Value = True Then 'Если у переключателя 2 стоит черная пипка то:
MsgBox "2" 'Выскакивает ошибка с надписью 2
End If

Исходник можешь скачать отсюда


Есть вопросы? Спроси на нашем форуме!!
Алина [09.01.2011 21:07]

А как сделать чтобы при нажатиях на кнопку все флажки на форме переходили в установленное и не установленное состояние поочередно?? Флажков 4-ре... Помогите пожалуйста!

дмитрий [17.03.2011 14:47]

if ` ом,или подобной конструкцией

антон (ответ алине) [28.06.2011 14:31]

копируем флажки, на выскочившее сообщение
отвечаем да делаем кнопку и пишем код
Option Explicit
Private Sub command1_click()
Dim i As Byte
For i = 0 To 3'тут кол-во флажков - 1
If Check1(i).Value = 0 Then
Check1(i).Value = 1
ElseIf Check1(i).Value = 1 Then
Check1(i).Value = 0
End If
Next i
End Sub
вот и все))

Skela [01.07.2011 18:02]

а как написать что бы переключатели сами переключались с задаваемой частотой (на пример 3-4 переключателя)
+ еще одновременно привязать их включение флажков

З.Ы.
просто я занимался VB6 еще в детстве и все забыл. спасибо если напишите пример кода.

леша [16.08.2011 20:18]

у меня ошибка при компиляции вылазит в MsgBox

Atomik (Когда то учился тут )))) [10.12.2011 19:11]

А чё он написал у второго тоже True там надо Falce

Юлия [23.11.2012 21:46]

Как сделать флажки инверсивными?

Samou4120 [05.03.2013 17:05]

Заменил MsgBox на две Label :


Private Sub check1click()

If Check1.Value = 0 Then
Label1.Caption = "флажок убран"
End If

If Check1.Value = 1 Then
Label1.Caption = "флажок стоит"
End If

End Sub

Private Sub Option1
Click()

If Option1.Value = True Then
Label2.Caption = "опция 1"
End If

End Sub

Private Sub Option2_Click()

If Option2.Value = True Then
Label2.Caption = "опция 2"
End If

End Sub



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.