Категории
Самые читаемые
vseknigi.club » Разная литература » Газеты и журналы » Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
[not-smartphone]

Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт

Читать онлайн Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт

Шрифт:

-
+

Интервал:

-
+

Закладка:

Сделать
1 ... 215 216 217 218 219 220 221 222 223 ... 375
Перейти на страницу:
��������� ��������� ���������, ��������� ��� � �������.

2.�����������, ���� �� ��� �������� ���������.

3.����� ����, �� ������� � ������ 1, ���� ���, �� ��������� ������.

"����"�� ��-��������� "If". ������ �� ����� ����� � ���������� ��������� �������. �������� �������: "���������� If", ������ �������, �������� ���� �� ��������� ��������� ���� If, Then, Else � ��[7].

������� "���������� If�Then�Else"�� ����� ������ ����� ��������. �������� �������, �� ������� ������ ��������� �������:

If ������� Then [����������] [Else ����������_�ls�]

����� �� ������� ������ ���� � ���? ��������, ������� ���������� �������� ���������� � ���� �� 0, �� ���������� ������, � ���� 0, �� ������������. � ��� ����� ���������� ���������� �������� ����������? ���������, ��� �� � VBA ������� ��� ������ ��������? ������� � ������ ���������: "Documents", �������� ����� � ���������� �������� ������. ��� � ���� � � ������ ������� ����� "Count": ������ �����, ��� ������� ��������. ������� �� �� ������ � ��������� �� ��� ������� � ������ � ��, ��� ������� ������� �������� ���������. �� ���� ������� ������ ��������� ��� "If Documents. Count > 0 Then�". ��, � ���������� � ������� � ����� � ���� ��� ��������.

����� ������� "Else�" ����� ��������, � ������ �������� ������ ���������� ����� ������� "If�"�� ���� ��� ����� � �� ���������� ��������� �� �������� �� ��� ���, ���� ��������� �������� ���������. � ��������� ���, ��������, ����� ����� ���������, ���������� �� �������� ��������,�� ����� ����� ���� ��������� ��������� �� ��������� � ������. ���������� ������� MsgBox (� �� ���������� �������� �������� � �������):

signal = MsgBox("��������� ���������", vbInformation, "��������� �������")

����, ��������� ������. ����� � ������� ����������� ���� "���������" ��������� �� ������, ����� ���� ��� ��������� ������, � ��������� �� ��� �������������.

������ ��������� �� ��� ��������. ������� ���, ����� ��� ������������ ��������� ����������� �� � ����� ������, � � ���������, ���������� �������������, � ����� ������������ ��� ������� ��� ����� �� ������������ ����������� ����, �������� �� ���������.

����� ������������� ��������. � ���������� ��������� ������� ����� "dialog boxes", ������� ��� �� ������� �� ������ ���. � ����������� ���� ������ ������� ������ � "Displaying Built-In Word Dialog-Boxes", ��� ��� ���, ���� �� ��������, ����� ����� ����, ��� ������ ���������� ���������� ����. ������ � �������� ����� ������� ��������, ��� � ������� ������� Dialogs("��� �������").Show ����� ������� �� ����� ����� ���������� ���������� ���� Word, ����� ���� �������� ����� ��� ���������� � �����. ��������� ����� ����, ������� ���������� �� ���� � �����-������ ����������. ��� ����� �������� ��������� ����������������� ������ � ����� ���������� � ��� ��� ��������� ����� ���������� ���� (���.�3.11).

���.�3.11. ��� ������ ������ ������� ����� ��������� ������ ���������� ���������� ���� Word..

� �������� ������ ������ ���� �� ����� ���������".Display" � ����� ���� �� ����� ��� �����-���� ����������� ��������: ���� � ������� �������

Dialogs(wdDialogFileOpen).Show ����� �������� ���� �������� �����, �� ��� ������� ������ "�������" � ��� ��������� � ���� ���� ����� ������, � ���� ���� ���������� �������� Dialogs(wdDialogFileOpen).Display, �� �������� ����� �� ����������, �� ��� ���������� ����� ����� ����� �������� � ����������:

With Dialogs(wdDialogFileOpen)

.Display

imya=.Name

End With

� ������������ ������������ ��� ��� �� ������ ����������.

��� ������������� ���������� ���������� ���� Word ����������� ������������� ��������� With, ��� ���, �������� ��, ������������� �������� ����

Dialogs(wdDialogFileOpen).Display

imya=Dialogs(wdDialogFileOpen).Name

�������� �� �����.

����� �������� ����������� �� ���� Dialogs(wdDialogCopyFile)�� ����������� �����. ��������� ������ "Built-in dialog box argument lists" ���� "Displaying built-in Word dialog boxes", �������� ������ ���� ��������� ���������� ���������� ���� (�� ���� ����������, �������� ������� ����� �������� �� ���� ��� ������ ��). ��� ���������� �������� "Directory" (�����, ���� ����������� ����, ��������� � ��������� "FileName" ��� ���������� ������ "Show" ��� "Execute" � ��� ���������� ���������� ������ ���������� ������� ��� ��������� ����������� ���������� �� ���������� ����������� ���� ��� ����������� ���������� �������). ������������������ � ���� ����� � ������� � ����������������� ������ ��������� ���:

Sub experience4()

With Dialogs(wdDialogCopyFile)

.Display

papka = .Directory

End With

MsgBox papka

End Sub

�������� ��� ��������� ��������� ���, ��������, ��� � ���������� "papka" ������������ ���� � ��� �����, ��, ���� � ���� ��� ����� ���� �������, �� ���� ����������� ���������: "C: Program FilesMicrosoft 0£:£�1���������", � ���� �������� � ���� �� ����, �� ������� �� ����� �� ��������. ������� ������������ ���������� ����� ���������� � ������ �������. ������� ��� ����� � ������� ��� ��������� ��� ������ "Left", "Rigth", "Mid" � "Len":

If Right(papka, 1) = Chr$(34) Then papka = Mid(papka, 2, Len(papka) ��2)

"Chr$(34)" � ��� �������, ������� ���������� ������ � ASCII-����� 34: �������. (������ ������ � Dos � Windows ����� ���� ����� � ASCII-���, �� �������� ��� ����� �������

1 ... 215 216 217 218 219 220 221 222 223 ... 375
Перейти на страницу:
На этой странице вы можете читать бесплатно книгу Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт без сокращений.
Комментарии