---A---
AppActivate title[, wait] - Активизирует окно приложения с заголовком title. Вместо заголовка можен быть использовано ID задачи, полученное при помощи функции Shell.
Dim MyAppID, ReturnValue
AppActivate "Microsoft Word" 'Активизируется Microsoft Word
MyAppID = Shell("C:\WORD\WINWORD.EXE", 1) ' Запускаем Microsoft Word.
AppActivate MyAppID 'Активизируется Microsoft Word
---B---
Beep - Проигрывает звук, установленный в системе как "Стандартный звук" (в панели управления->Звук). Если такой не установлен, то играется PC спикер.
Beep
---C---
[Call] name [argumentlist] - Вызывает процедуру или функцию. Оператор Call может быть опущен.
Call PrintToDebugWindow ("Hello World")
'Вызываем процедуру. Скобки обязательны!
PrintToDebugWindow "Hello World"
'То же самое. Скобки можно опустить.
Sub PrintToDebugWindow (AnyString)
Debug.Print AnyString ' Печатаем в окно Debug.
End Sub
ChDir path - Смена текущего каталога.
' Изменяем текущую директорию на "MYDIR".
ChDir "MYDIR"
' Пусть диск "С:" является текущим диском. Следующий оператор
' изменяет текущий каталог на "D:\WINDOWS\SYSTEM", но
' текущим диском по-прежнему остаётся "С:".
ChDir "D:\WINDOWS\SYSTEM"
ChDrive drive - Смена текущего диска.
ChDrive "D"
Close [number] - Закрывает файл, открытый оператором Open под номером number.
Open "TESTFILE" For Output As #3
Print #3, "Hello World"
Close #3
[Public | Private] Const constname [As type] = expression - Объявляет константу.
' Константа типа Private (используется по умолчанию).
Const MyVar = 459
' Константа типа Public.
Public Const MyString = "HELP"
' Константа Private, типа Integer.
Private Const MyInt As Integer = 5
Источник: http://vb.hut.ru |