Макросы. Дальнейшая информация об объектах

CheckBox, OptionButton, Frame

CheckBox - флажок

Набор элементов управления CheckBox позволяет выбрать одновременно несколько опций. Важнейшим является событие Click; важным свойством является Value. Value принимает значения: 1 - флажок помечен, 0 - не помечен, 2 - помечен, но не доступен.

Контейнер Frame - рамка

Контейнер Frame (рамка) служит для группирования в нeм других объектов. Элементы управления CheckBox, помещeнные в рамку, работают независимо.

OptionButton - переключатель

Обеспечивается выбор одной опции из нескольких с помощью набора элементов управления OptionButton, помещаемых в контейнер , например в элемент управления Frame. Важным событием является Click, важным свойством - Value. Если Value есть True, то OptionButton включeн, иначе - выключен.

Практическая работа 34. CheckBox, OptionButton, Frame

34а. CheckBox

Private Sub Check1_Click()
If Check1 Then
Label1.BackColor = RGB(255, 0, 0)
Else
Label1.BackColor = RGB(255, 255, 255)
End If
End Sub

Private Sub Check2_Click()
If Check2 Then
Label2.BackColor = RGB(0, 255, 0)
Label1.BackColor = RGB(0, 255, 255)
Else
Label2.BackColor = RGB(0, 0, 255)
End If
End Sub

34в. OptionButton

Создать на форме:

Private Sub Command1_Click()
If Option1(0) Then
' присоединить текст, если выбран первый переключатель
Text2.Text = Text2.Text + Text1.Text 
Else
' заменить текст, если выбран второй' переключатель
Text2.Text = Text1.Text 
End If
Text1.Text = ""
End Sub

Элемент управления Animation

Здесь рассматривается использование элемента управления Animation для воспроизведения файла с расширением .avi. Элемент управления Animation входит в состав набора Microsoft Windows Common Controls-2 6.0. Для того, чтобы поместить его на панель элементов управления нужно выполнить следующее: меню Проект $$\to$$ Компоненты : $$\to$$ Управления $$\to$$ Microsoft Windows Common Controls-2 6.0 $$\to$$ ОК. На панели элементов появляются пять новых элементов управления и среди них Animation. В работе нужно использовать объект CommonDialog ; в данном случае он обеспечивает вывод стандартного окна Windows Открытие файла.

Практическая работа 35. Элемент управления Animation

(General) (Declarations) 
Dim FileName As String, Filemove As String 

Private Sub Command1_Click() ' воспроизведение файла
CommonDialog1.ShowOpen
Filemove$ = CommonDialog1.FileName
Animation1.Open Filemove
Animation1.Play 
End Sub

Private Sub Command2_Click() ' закончить воспроизведение
Animation1.Close
End Sub

Генерация текста - использование набора объектов

Рассматривается конструирование строки текста, при этом составляющие строки выбираются с использованием набора элементов управления. Результирующая фраза образуется конкатенацией составляющих.

Практическая работа 36. Генерация текста

Ниже описано назначение элементов управления (рис. 5.5), используемых в примере:

табл. 5.4 содержит список используемых элементов управления и значений некоторых свойств.

При выполнении процедуры Form_Load (), см. код ниже, создаeтся список (lstPartei - список названий партий) ListBox и список (мест проведения митингов, партсобраний) ComboBox (Name = cboOrt), см. две инструкции With : End With. Соответствие подлежащее - сказуемое обеспечивается соответствием нумерации элементов списков strVerb() и lstPartei(). Маркированные на экране после старта проекта элементы списков определяются заданием значений свойства ListIndex.

Процедура Private Sub ausgeben () формирует текст (strausgabe) с использованием параметров набора управляющих элементов.

Определениями в предложении могут быть одно, два или три значения свойства Caption элементов массива объектов CheckBox (i) (см. цикл For i = 0 To 2:); возможность обработки в цикле обеспечена наличием массива объектов. Далее в процедуре Private Sub ausgeben () проводится анализ состояния переключателей optAussehen(), что позволяет сделать выбор следующего (уже из группы взаимоисключающих) определения в искомом предложении.

При конструировании искомого предложения (strausgabe) используются элементы списков ListBox (lstPartei - список имеющихся партий) и ComboBox (cboOrt - место проведения митингов, партсобраний). Для вывода на экран сказуемого используется конструкция ( lstPartei.ListIndex ), см. конец процедуры Private Sub ausgeben (), возвращающая номер выбранного элемента.

Следующие процедуры служат для:

Во всех случаях вызывается процедура Private Sub ausgeben (), что позволяет при выборе пользователем значений параметров элементов управления/элементов списков конструировать предложение. Учeт особенностей построения предложения в английском, немецком, русском и т.д. языках может быть реализован в данном примере при конструировании строки strausgabe.

Последовательность действий:

(General) (Declarations) 
Dim strausgabe As String, strattribut As String, i As Integer
' описание массива сказуемых с дополнениями
Dim strVerb(6) As String 

Private Sub Form_Load()

With lstPartei
.AddItem ("большевиков")
.AddItem ("меньшевиков")
.AddItem ("эсеров")
.AddItem ("бундовцев")
.AddItem ("кадетов")
.AddItem ("анархистов")
.ListIndex = 0
End With

With cboOrt
.AddItem ("на Красной площади")
.AddItem ("на улицах")
.AddItem ("в подъездах")
.AddItem ("в пивной")
.AddItem ("в переулках")
.ListIndex = 0
End With

strVerb(0) = "выкрикивают "Да здравствует Коммунизм !!""
strVerb(1) = "порицают большевиков"
strVerb(2) = "произносят пламенные речи"
strVerb(3) ="поносят всех"
strVerb(4) = "кричат "Ура !!"
strVerb(5) = "кричат: "Анархия - мать порядка !!"
lbl1.Caption = "Присутствовало: "  Str(hsbMenge.Value)
End Sub

Private Sub ausgeben()
strattribut = ""
For i = 0 To 2
If chkattribut(i).Value = 1 Then
If strattribut = " Then
strattribut = chkattribut(i).Caption
Else
strattribut = strattribut ", "  chkattribut(i).Caption
End If
End If
Next i
If optAussehen(0).Value Then
If strattribut = "" Then
strattribut = "респектабельных"
Else
strattribut = strattribut  ", " "респектабельных"
End If
Else
If strattribut = " Then
strattribut = "оборванных"
Else
strattribut = strattribut  ", "  "оборванных"
End If
End If
strausgabe = Str(hsbMenge.Value)  " "
strausgabe = strausgabe  strattribut  " "
strausgabe = strausgabe  lstPartei.List(lstPartei.ListIndex)  " "
strausgabe = strausgabe  cboOrt.List(cboOrt.ListIndex)  " "
strausgabe = strausgabe  strVerb(lstPartei.ListIndex)  " "
txt1.Text = strausgabe
End Sub

' задание места проведения митинга, партсобрания
Private Sub cboOrt_Click() 
ausgeben
End Sub

' задание одновременно возможных характеристик членов 
' партий
Private Sub chkattribut_click(index As Integer)
ausgeben
End Sub

' задание количества присутствующих на митинге, собрании
Private Sub hsbMenge_Change()
lbl1.Caption = "Присутствовало: "  Str(hsbMenge.Value)
ausgeben
End Sub

' задание количества присутствующих на митинге, собрании
Private Sub hsbMenge_scroll() 
lbl1.Caption = "Присутствовало: "  Str(hsbMenge.Value)
End Sub

Private Sub lstPartei_Click() ' выбор из списка имеющихся 
' партий
ausgeben
End Sub

' задание взаимоисключающих характеристик членов партий
Private Sub optAussehen_Click(index As Integer) 
ausgeben
End Sub

Объект меню

Объект меню имеет около 15 свойств; действия, выполняемые при выборе команды меню должны быть запрограммированы в процедуре меню события Click; объект не имеет методов. Свойства доступны в режиме конструирования, но только при использовании редактора меню (см. ниже). Элементы первого уровня меню могут содержать список меню второго уровня и т.д.

Имеется редактор меню для создания меню, для работы с всплывающими меню. Редактор можно стартовать щелчком на соответствующей кнопке панели инструментов Стандартная, с помощью команды Инструменты $$\to$$ Редактор меню или с использованием комбинации клавиш CTRL + E, рис. 5.6. Объект меню может быть выведен на форму в том случае, если она маркирована. При создании меню должны быть определены свойства меню Name - имя меню в коде программы и Caption - надпись, рис. 5.6. Свойство Index (см. рис. 5.6) используется при создании массива меню. Если в рассматриваемой ситуации некоторая команда меню не имеет смысла, то свойству Enabled нужно присвоить значение False. Если свойству Visible присвоить значение False, то пункт меню становится невидимым.

Структура создаваемого меню отображается при его формировании в нижней части окна редактора меню, рис. 5.6; кнопки с вертикальными стрелками позволяют переместить выбранный пункт меню на одну позицию вверх/вниз, при этом остаeтся неизменным уровень вложенности, кнопка со стрелкой вправо перемещает пункт на один уровень вложенности вниз, кнопка со стрелкой влево перемещает пункт на один уровень вложенности вверх. Команда Next включает в меню ещeодин пункт, команда Insert вставляет новый пункт меню перед текущим, команда Delete удаляет текущий элемент меню. Символ в названии пункта меню обеспечивает подчeркивание первой буквы названия команды меню (возможность использования горячей клавиши для вызова команды).

Private Sub Form_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)
If button = 2 Then
frmStudium.PopupMenu mnuBeruf
End If
End Sub

Практическая работа 37. Меню

Создать меню, команда которого позволяет вывести системную информацию Мicrosoft; ниже дана последовательность действий:

Private Sub mnuSysInfMicrosoft_Click()
frmAbout.Show vbModal
End Sub

Private Sub mnuEnd_Click()
End
End Sub

Клавиатура и мышь - генераторы событий для других объектов

Клавиатура и мышь обеспечивают взаимодействие пользователя с операционной системой и приложением. Клавиатура - средство ввода данных. Мышь позволяет пользователю управлять средой разработки.

Мышь

Основные события, связанные с мышью даны, в табл. 5.5

Private Sub Command1_dragover(source As Control, x As Single, y As Single, 
 state As Integer)
state=0 - объект входит в границы источника, state=1 - объект покидает источник, 
state=2 - объект перетаскивается внутри границ источника

Практическая работа 38. Мышь

38а. Мышь; некоторые события

Должно быть установлено значение свойства одной из меток DragMode = 1, что обеспечивает возможность еe перемещения после старта проекта (альтернативное значение - 0). Свойство Tag, см. код, используется в данном случае для вывода названия объекта. В двух процедурах обработки события DragOver (см. код Form_DragOver(:) и txt1_DragOver(:) используется параметр source - объект).

Private Sub Form_Load()
lbl1.Tag = "Label1"
End Sub

Private Sub Form_DragOver(source As Control, x As Single, y As Single, state As Integer)
txt1.Text = source.Tag  "above the Form"
End Sub

Private Sub txt1_DragОver(source As Control, x As Single, y As Single, state As Integer)
txt1.Text = source.Tag  "above the TextBox"
End Sub

Private Sub Form_MouseMove(button As Integer, shift As Integer, x As Single, y As Single)
lbl2.Caption = Str(x)  ";"  Str(y)
End Sub

38в. Мышь; перетаскивание элементов списков

Пояснения: процедура Form_Load () обеспечивает создание элементов списка первого поля списка. Две процедуры Private Sub lstK_DragDrop(Source As Control, X As Single, Y As Single) обеспечивают возможность перетаскивания элемента списка в другое поле списка и удаление его из первого поля. В процедурах:

Private Sub lstК_MouseDown(Button As Integer, Shift As Integer,_
X As Single, Y As Single),

см. ниже, используется параметр 1 ("ListК.Drag 1").

Private Sub Form_Load()
lst1.AddItem "Buch"
lst1.AddItem "Heft"
lst1.AddItem "Bleistift"
End Sub

Private Sub lst1_DragDrop(Source As Control, X As Single, Y As Single)
If Source = lst2 Then
lst1.AddItem lst2
lst2.RemoveItem lst2.ListIndex
End If
End Sub

Private Sub lst1_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
lst1.Drag 1
End Sub

Private Sub lst2_DragDrop(Source As Control, X As Single, Y As Single)
If Source = lst1 Then
lst2.AddItem lst1
lst1.RemoveItem lst1.ListIndex
End If
End Sub

Private Sub lst2_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
lst2.Drag 1
End Sub

Клавиатура

События, генерируемые клавиатурой, получает объект, имеющий фокус (форма получает событие, если ни один объект не имеет фокуса). Нажатие клавиши ТАВ игнорируется, т.к. она служит для перемещения фокуса . В табл. 5.6 представлены события, связанные с клавиатурой.

Параметр Shift даeт информацию о состоянии клавиш Shift, Ctrl, Alt.

При обработке 2-х последних событий используются клавишные константы (например, vbKeyLeft, vbKeyUp и.т.д), а не ANSI-код. Список KeyCodeConstants находится в каталоге объектов (Members of KeyCodeConstants; Class: KeyCodeConstans).

Практическая работа 39. Клавиатура; обработка событий KeyPress, KeyDown

Последовательность действий:

(General) (Declarations)
Dim x As Integer, y As Integer

Private Sub Form_KeyPress(keyascii As Integer)
lbl1.Caption = Chr(keyascii)
End Sub

Private Sub Form_KeyDown(keycode As Integer, shift As Integer)
Select Case keycode
Case vbKeyLeft
x = x - 350
If x <= 0 Then
x = frm.Width - img1.Width
End If
Case vbKeyUp
y = y - 350
If y <= 0 Then
y = frm.Height - img1.Height
End If
Case vbKeyRight
x = x + 350
If x >= frm.Width Then
x = 0
End If
Case vbKeyDown
y = y + 350
If y >= frm.Height Then
y = 0
End If
End Select

img1.Move x, y
End Sub