5.1. �������� ����. ��������, ������� � ������ ����
����� – ��� ������� ������, ���������� ���������� ������ ����������. �� ����� ���� ����� ������������ ����� ����, � ������� ����� ��������� ��������� ����������� �������� ��� �������� ����������. ��� �������� ����� ���������� ��������� ������� ������� UserForm. � ���� ������������ ���� �������� �����, ������� ����������� ��� ��� �� Windows (���. 5.1).
��� � ����� ������ ������ VBA ����� ����� ����� �������, �������� �� ������� ��������� � ������� 5.1. ��� ��������� ������� �� ������ �������� ���������� �������� ��� � ���� ������� � ������ F1.
������� 5.1. �������� �������� �����
�������� |
�������� |
BackColor |
���� ���� ��� �����. |
BorderStyle |
���������� ��� �������, ���������� ����� |
Caption |
�����, ������� ��������� � ��������� �����. |
Font |
���������� ��� � ��� ������ � �����. |
Height |
���������� ������ ����� � ������. |
(Name) |
��� �������, ��� ��������� VBA. |
Width |
���������� ������ ����� � ������. |
�������� ����� �������� � ������ ��������������� � ���� �������, ���� ���������� � ������ ����������. ��������, � ���� ���������� ��������� ����� �������� ��������� ����� ��������:
frmForm1.Caption = "������"
��������� ��� ���������� � �� Windows ����������� ���������. ������ ���, ����� ���������� ������, ������������ ����, ���������� ������� ����� � �.�., �� ���������� ���������. ��������� ������������ ���������������� �������, �������� �����, � �� ���������� ��������������� �������. �������������, ����� ��������� �������� ���������, � ������� ������ ����� ����������� �� ������� ������������ �������, �.�. ������ ������������ ������� ������������� ������������ ���������. ����� ����������� ������� ��������� � ������, ���������� � ������ ��������������� ������ �������� �� ��� – �������� ���� ���������, � ������� �������� �� ������ ���������. � ����. 5.2 ��������� �������� ����� ������������ �������.
������� 5.2. �������� ������� ����
������� |
�������� |
Initialize |
���������� �� ����� ������������ � �� �������� ����� � ������. |
Activate |
���������� ����� �������� ����� � ������. |
Deactivate |
����������, ���� ����� ��������� ���� ��������. |
Click |
���������� ��� ������� ����� ������ ���� �� �����. |
��������� ������ �������� ��������� ����� ��� �����������, � ��������� ������ ����� ����� ������ ����� ������� ���� �� �����.
Private Sub UserForm_Activate()
frmForm1.Caption = "������ �� ����� ��������� � �������"
End Sub
Private Sub UserForm_Click()
frmForm1.Width = frmForm1.Width / 2
frmForm1.Height = frmForm1.Height / 2
frmForm1.Caption = "������ ��� ��� ���!"
End Sub
����� ����� �������� ������� ������� � ����������. ����� ���������� ��������, ������� ����� ���� ��������� � ��������. ���������� ���������� ��������. ��� ����� ��������� ����� ��� �������, � ����. 5.3 � 5.4 ��������� �������� ����� ������������ ������ � ���������� ��� ������ �������.
������� 5.3. �������� ������ ����
����� |
�������� |
Hide |
�������� ������ UserForm, �� �� ��������� ���. |
Show |
������� �� ����� ������ UserForm. |
������� 5.4. �������� ���������� ����
���������� |
�������� |
Load |
��������� ������ UserForm, �� �� ���������� ��� �� ������. |
Unload |
������� ������ UserForm �� ������. |
� ��������� ������� ��������������, ��� � ������� ������� ��� ����� frmForms. ��� ������� ������� ���������� ������� Initialize ��� ����� frmForm1, ����� frmForm2 ����������� � ��������� �� �����. ����� ��� ������ ���� ���������� frmForm2, ��� �������� ���������, � ���������� ����� frm Form1. ���� �� ���������� frmForm1, frmForm2 ���������� �����.
'������� Initialize ����� frmForm1.
Private Sub UserForm_Initialize()
Load frmForm2
frmForm2.Show
End Sub
' ������� Click ��� ����� frmForm2
Private Sub UserForm_Click()
frmForm2.Hide
End Sub
' ������� Click ��� ����� frmForm1
Private Sub UserForm_Click()
frmForm2.Show
End Sub
5.2. ����� � ������������� ����������� ���������
�������� ����������� ��������� �� ����� ����������� � ������� ������ ������������, ������� ��������� �� ����� �������� ��� ������ ��������� (���. 5.2).
� ������� ������ ���� ������ ����� ��������� � ����� ����������� ������� ����������. ��� ����� ����� �������� �� ������ �������� ����������, ����� ��� ������� ����� ������ ���� ���������� ������ � ����� ������������ �������� � �����. ����� ������� �� ����� ������� (����� ������� �������� ��������� ��������������) ����� �������� ��� ������� � ���������� � ������� ����, � ����� ������������� � �������� ��� �������� � ���� �������.
������ ����������� ������� (������) ��������������� ������� ������� (������� ����� �������� � ������� ��������������� ��� ����������), ������� � �������.
��� ������� ������� ������� ���������� ���������� ��� ���. � ������������ � ������������� ������������ �� ������ �������� ������ ��� ������� ����� ������ �������� ��� ��������, � ��������� ������� - ����������. � ����. 5.5. ������������ ��������� ������ ���� �������� ��� �������� ����� ������������ ���������.
������� 5.5. ������������� ��������� ������ ���� �������� ����
������ |
������ 3 ������� ����� |
������ ����� |
����� |
frm |
frmMyForm |
������� |
lbl |
lblInfo |
��������� ���� |
txt |
txtInput |
��������� ������ |
cmd |
cmdExit |
������ |
chk |
chkSound |
������������� |
opt |
optLevel |
������ |
lsb |
lsbTypes |
����� |
fra |
fraChoices |
������ ��������� |
vcb |
vcbSpeed |
������� |
pic |
picChema |
��������� ������ �������� ����� ���������������� ��������� ����������, � ����� �������������� ��� ����������� ���������� ���������� � ������ ��������, ������ �������� � ������� ������������, �������� ���� � �.�. �������� �������� ��������� ������ ������������ � ����. 5.6. � �������� Caption ����� ������� ������ & ����� ������, ������� ����� �������������� � ��������� � �������� Alt ��� ����������� ������� � ������. ����� ����� ������� � ������ �������� Tab, � ����� ������ Enter.
������� 5.6. �������� ��������� ������
�������� |
�������� |
BackColor |
���� ���� ������. |
Caption |
�����, ������� ��������� �� ������. |
Enabled |
�������� False ������ ������ �����������. |
Font |
���������� ��� � ��� ������ �� ������. |
ForeColor |
���������� ���� ������ �� ������. |
(Name) |
��� �������, ��� ��������� VBA. |
Picture |
��������� ������� �� ������. |
PicturePosition |
���������� ������������ ������ � ������� �� ������. |
Visible |
�������� False ������ ������ ���������. |
�������� �������� ������ �������� Click. ��� ��������� ������������ ����, ������� ����� ����������� ��� ������� ��������� ������, ���������� ��� ���� �������� �� ��� ����� ������� ���� � ������ ��������������� �������.
�������� �������� ������� ��������� ������ �������� SetFocus, ����������� ��������� � ������ (�������� �� �����). ��������, ��������� ������� ��������� ��������� � ������ �� ��������� ����� ����� ������ � ��������� ����: cmdMyButtum.SetFocus
��������� ���� ����������� ��� ����� ��� ������ ����������. �������� �������� ���������� ���� ������������ � ����. 5.7.
������� 5.7. �������� ���������� ����
�������� |
�������� |
Enabled |
�������� False ������ ���� �����������. |
Font |
���������� ��� � ��� ������ � ��������� ����. |
ForeColor |
���������� ���� ������ � ��������� ����. |
(Name) |
��� �������, ��� ��������� VBA. |
MaxLength |
���������� ���������� �������� �������� � ��������� ����. |
PasswordChar |
���������� ������, ������������ ��� ����� � ��������� ����. |
Text |
���������� ���������� ���������� ����. |
��������, ��� ������� ����������� ���������� ���� � ���� ���������� ��������� ���������� ������ � ��������� ����� ������������ ���� �������:
txtResult.Text=" "
�������� �������� ���������� ���� �������� Change, ������������ ��� ����� ��� �������� ��������. ��������, ������� cmdMyButtum.SetFocus ����� ��������� � ��������� ������� Change ���������� ����.
������� ����������� ��� �������������� ��� ������ ���������� ����������, ��� � � ���� "���������" ��� ���������� ����, ������ ��� ������� ��������. ������� � ������� �� ���������� ���� � ���, ������������ �� ����� �������� ����� ������� (���� ��� ����� �������� ��� �������� �� ����� ���������� ���������). �������� �������� ������� ������������ � ����. 5.8.
������� 5.8. �������� �������
�������� |
�������� |
Caption |
���������� �����, ������������ � �������. |
Font |
���������� ��� � ��� ������ �������. |
ForeColor |
���������� ���� ������ �������. |
(Name) |
��� �������, ��� ��������� VBA. |
Picture |
��������� ������� � �������. |
PicturePosition |
���������� ������������ ������ � ������� �������. |
������ ��������� �������� � �������� �� ���������� ���������. ������������ ����� ����������� ���������� ������ � ������� ���� �� ��������� ��� ����������� ���������. ������ �������������� ����������� ������ ����������. ���� � ������ ���������� �� ��� ������, �� ������������� ����������� ������������ ������ ���������. �������� �������� ������ ������������ � ����. 5.9.
������� 5.9. �������� ������
�������� |
�������� |
(Name) |
��� �������, ��� ��������� VBA. |
ListIndex |
���������� ����� ������� ���������� ������ ������ -1. |
Text |
���������� ������� ���������� ������ ������. |
��� ������ ���� ����� ������������ ������� Click � DblClick (������� ������ ����� ������� ���� �� ����� �� ����� ������). �� ������ ������ ������������ ������������ �������� ������ � �������� �� ���������.
������ �� ������� ���������� � ��� ���������� ������� AddItem, ������� ����� ���������� ��������� ��� ������. ����� ����� AddItem ���������� � ��������� UserForm_Initialize(), ����� ������ ���������� ��� �������� �����. ����� RemoveItem ������� ������ �� ������. ����� Clear ������� ����� ���� ������. ��������� ������ ����������, ��� �������� ������, ��� ���� ��������������, ��� � ������� ������� ����� � ����� �������� (List1 � List2). ������� ������ �� ����� ������ ������ ������ ���������� � � ������ ������. ������ ���������� � ������ ������ �� ����, ��� ��� ����� ������� �� ��������.
Private Sub UserForm_Initialize()
List1.AddItem "����"
List1.AddItem "����"
List1.AddItem "�����"
List1.AddItem "������"
List1.AddItem "�������"
End Sub
Private Sub List1_DblClick()
List2.AddItem List1.Text
List1.RemoveItem
List1.ListIndex
End Sub
Private Sub List2_dblClick()
List1.AddItem List2.Text
List2.RemoveItem
List2.ListIndex
End Sub
������������� ��������� ������� ���� ������� �� ������. ������ ��� ������������ � ������ (��. �����), ������ �� ����� ����������� ����� �� �����, ���� ������������ ������ ���� ������ ��������������. �������� �������� ������������� ������������ � ����. 5.10.
������� 5.10. �������� �������������
�������� |
�������� |
Caption |
������ �����, ������������ ���������� �������������. |
(Name) |
��� �������, ��� ��������� VBA. |
Value |
�������� True ���������, ��� ������������� ������. |
�������� ������ �������� �������� Value �������� True (������������� ��������� � ������������� ���������), �������� � ������ ��������������� �������� ������ � ������ ������������� � ������. � ������ ���������� ��� �������� ���� ����� ����������� � ��������� ������� Click ������, ������� ����� ��������� ������� �������������, ��� ��������� ��������� ����� ������� ��������� ��������� ��������� �������. ������ ������������ �������� ����� ��������� ����� �� ����� ������ ������������� � ��������� ��� ������� Click.
������ �������� ���������� �������������, �� � ������� �� ���� ����� �������������� ��� ��������� ��������������� �������. ���� ������������ � ������ ������ �������� ���������� ���� �� �����. �������� �������� ������� ����� ��, ��� � � ������������� (��. ����. 5.10). ������ �������� Value ����� ��������� ��� �������� (������ ��������� � ������������� ���������, ������ ��� ��������������).
�������� ����� ������������ �������� ������� �������� Click, � ��������� �������� ����� ��������� ��������� ������ �� �������� Value. ��������� ������ ������������ ������ �������, ��� ���� ��������������, ��� � ������� ������� ����� � ����� �������� (ChkBold � ChkInalic) � ��������� ����� TxtExam (���.5.3). ����� ����� �������� � ��������� ����, � ������� ������� ����� ������ ����� ���������� ��� ��������. �������� FontBold � FontItalic ���������� ���� ������������� ������� ���������� ������.
���. 5.3. ������������� �������
Private Sub Chkbold_Click()
If ChkBold.Value = True Then
TxtExam.FontBold = True
Else
TxtExam.FontBold = False
End If
End Sub
Private Sub ChkItalic_Click()
If ChkBold.Value = True Then
TxtExam.FontItalic = True
Else
TxtExam.FontItalic = False
End If
End Sub
����� ������������ ��� ����������� �������������� ��� �������, � ���������� �� ����� ������ ���������, ����������� ������ ��. ������������� ����������� ������ �����, �������� ��� ��������������� ������ � �� ������ �� ��������� �������������� � ������ ������. �������� ��������� ����� �������� Caption, ������� ������ �����, ������������ ���������� ��������� � �����.
������� ������������ ��� ����������� ������ ����������� �� �����. �� ����� ���������� ��������� ����� (.BMP), ������ (.ICO), ��������� (WMF), � ����� ����� � ������� JPEG (.JPG) � GIF (.GIF). �������� �������� ������� ������������ � ����. 5.11.
������� 5.11. �������� �������
�������� |
�������� |
Autosize |
�������� True ��������� ������ �������� ��� ������ �����������. |
(Name) |
��� �������, ��� ��������� VBA. |
Picture |
������ ���� ��� �������. |
������� � ������ ����� � �������� ����������� �� ������������.