Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
���� �������� ������, �� 9-� ������� ����� �������������� � ��������� � ���� ������, ��������� ������� � ������� �����������. �� ������� ���������� ������� ����������� ���������� � ���������� ����� ����������� ������, � ���������� ���� ����� ��� ���� ���������. � ���� ������ �������� ������������ ������ 9-� �������, �������������� ������� ���������� ����� ����������� ������ ��� ������������ �������, ��� ��������� � ������� 10-�� �������� ����� ��������� � ���������� ������ ����������� ������ �� ������, ��� �������� � ������� ���������� � ���������� ���������.
� ���������, � ��������� ����� �� ��������� ������� ������������ ���� ���� ��������� ���� VBA, ������� � ���������� �������, � ��������� ���������� ����� ��������� ������ �������� ��� ������� �� ���.
11.������� ���������. ����� ��, ��� � � ���� Word. ����� ���������� � ��������� �����, ������ ���������� � ������� �� �� ������. ������� ������ ���������� �����������.
12.��������. ��� ������������ ������ �� ���������. ����� ���������� � ��������� ���� �������� �� 1 �� 100.
13.��������. � ���� ������� ����� �������� �� ����� �������, ������� ����� ��������� � ����� (� ������� ��� ��������� � ���). ��� ������� ������ ������� ����� ����� ��������� �� ����� �������� ���������� ������� � ���� ������� ������� ����� "Picture", ������ �� ������ ����� �� ���� � � ����������� ���� �������� ����� ������� ������ �������� � ���.�2.5.
������� �������
���.�2.5. ������� ������� �� �����
� ������� �������� ������� ���� ���������� ���, � ����� ����� �������. �� ����� ���������� � ���� �������, ������� ������� � ������ �� ������������ ���� ������ ������ ���� ����� "��������".
����� ����������� ������� ��� ��������� �������� ��� ������� ��������, �� ����������� ������� �� ��������������. ��� ������������� ����� ������� ������� �� ������� ��������, �������� �� ���� ������ � ����� F1.
������� ����� ������� ����� ����� ���� �����. � ������� ����������� ���� � ���� ������� ����� ������ ������� � ��������� ������������ �������� (���.�2.6).
������� �������
���.�2.6. ���������� ���� ���� ������� � ��������� �� ��������� �����
����� �������� ���������������� �������, ��������� ����� � ���� ��������� ��Caption (�.��. ������� �� ����������� ��� � ���������, ���� �� ����), ��� � Left � ���������� �������� ������ ���� ��������, Height � Width � ������ � ������, Enabled � ����������� ��� ��������� �������������, Tablndex � �����, ������������, � ����� ������� �� ������ ������� �������� ����� (�.��. ����������� ��������� ������������� ���������� ��� ���������) ��� ��������� ����� ���������� � ������� ������� ��������� (����� ��������� ����� ������� �� �����-���� �������, ������ ��� �������� TabStop ��� False). �������� �������� �� �������� Picture, PictureAlignment, PictureSizeMode, PictureTiling ���������� ����� � � �� ������� �� ����������� ����� ����� ��������� �����-������ ������� �������.
���������� �������, ��� �������� �������� � ������ ������ ������ ��� ������. ��� �� ���� ������� ������� �������� �� ���������, �� ����������� ���, ������� ��� ����������. ������ � ���������� ��� ������ ��� Enter'��, ������ ���������� ��������, �� ������ ����� ��������� � ������ �����, �� �� ����� ����! ��� ����, ����� ������� �������� �����-������ �������� ��� �������� � ���, ����� �������� ��� ���� ��������� ������� �� �������.
�������, ������� ��������� � ���������, �����. ��� � ������� ������ ���� �� ���, ��� � �������� ���� ��� ���, ��� � ���� ������ � ���� �����, ��� � ������� �� �������, ��� � ������� � ������� �������� ��� ����, ����� �������� ��������� ��������� ������� �� �������, ����� ��� ���� �������� �� ��������. ��������� ���� ��������� �������� ������� �� �������, � ������������� ���������� ��������� ����� ����� ���:
Private Sub CommandButtonl_Click()
End Sub
������ � ����� ���� ��������� ����� ������� �������, ������� ����������, ���� ������� � ��������� � Click ���� � ����������. ��� ������� ��������� ����������� ��� ������, �������, ��������, �����, �������������� � ���� ����������� ������. ��� ��������� ��������� � ����� ����� ������, ����� ���������, ��������� � ��.�� ����������� ��������� ������� Change, �� ���� �� ���������.
������ ��������� ������� ��� �������� ����� ��������, �������� ������ ������ ��������� ��������� ������������ ������� � ������ ������ �� ����������� ���� ������ ������ ���� ��������� ���������. � ���������� ���� ����� ������ ����� ���� ������� ��� ��������� � ������� ��������� ������� ����� �� ������� (���.�2.7).
������� �������
���.�2.7. ���������� ������ �������.
� ��������� ������� ����� �� ������� ����� ���� � ������ ��������� � �������, �� ��������� � ���������� �����.
� ��������� ������� ���� ���������, � �������� ���������� � ��� ������������ ���������� ���������. ���, ��������� ��������� ������� KeyDown (�� ���� ������� �����-���� ������� �����, ����� ������� ������ �������) ����� ���
Private Sub CornmandButtonl_KeyDown (ByVal KeyCode As MSForms. Returnlnteger, ByVal Shift As Integer)
End Sub
���������� KeyCode ����� ����� ������������ ������ ��������� ����� ����� ��������, ������ ���� ������� �������, � ���������� Shift � 1, ���� ��������������� ������� ���� ������, � 0, ���� ���. ��� ���������� ����� ������������ � ���������.