Как да използвате булеви флагове във VB
Стъпка 1
Кликнете върху бутона "Старт", който се намира в лентата на задачите на Windows. Изберете "Програми", "Microsoft Visual Studio 6.0" и "Microsoft Visual Basic 6.0".
Стъпка 2
Изберете "Standard.EXE" в раздела "New" и кликнете върху бутона "Open", за да създадете ново приложение VB 6.
Стъпка 3
Щракнете двукратно върху иконата на текстовото поле в панела с инструменти, за да създадете иконата "Text1" във формуляра "Form1".
Стъпка 4
Щракнете двукратно върху иконата на командния бутон в панела с инструменти, за да създадете иконата "Command1" във формуляра "Form1".
Стъпка 5
Щракнете двукратно върху иконата на командния бутон в панела с инструменти, за да създадете иконата "Command2" във формуляра "Form1".
Стъпка 6
Щракнете двукратно върху прозореца с надпис "Form1", за да отворите прозореца за редактиране на кода.
Стъпка 7
Изберете "Общи" в падащото меню в горния ляв ъгъл. Напишете следния код: "Dim bflag as Boolean".
Стъпка 8
Изберете "Command1" в падащото меню в горния ляв ъгъл и напишете следния код: bflag = True Text1.Text = bflag
Стъпка 9
Изберете "Command2" в падащото меню в горния ляв ъгъл и напишете следния код: bflag = False Text1.Text = bflag
Стъпка 10
Натиснете бутона "F5", за да изпълните кода в режим на отстраняване на грешки. Кликнете върху бутона "Command1" и в текстовото поле ще се покаже "True", което е стойността на булевия флаг. Кликнете върху бутона "Command2" и в текстовото поле ще видите "False" (false), което е стойността на булевия флаг.