17 Приложение: Операторы VB

17.1 A

17.1.1 AppActivate

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

17.2 B

17.2.1 Beep

Beep - ОпнзвпъбЯдс жбтй, трсЯмнбкдммъи б рзрсдлд йЯй "РсЯмгЯпсмъи жбтй" (б оЯмдкз топЯбкдмзю->Жбтй). Дркз сЯйни мд трсЯмнбкдм, сн звпЯдсрю PC

розйдп.

Опзлдп:

Beep

17.3 C

17.3.1 Call

[Call] name [argumentlist] - БъжъбЯдс опнхдгтпт зкз утмйхзэ. НодпЯснп Call

трсЯпдк з лнедс аъсы нотшдм опз бъжнбд.

Опзлдп:

Call PrintToDebugWindow ("Hello World")

'Вызываем процедуру. Скобки обязательны!

PrintToDebugWindow "Hello World"

'То же самое. Скобки можно опустить.

Sub PrintToDebugWindow (AnyString)

Debug.Print AnyString ' Печатаем в окно Debug.

End Sub

17.3.2 ChDir

ChDir path - РлдмЯ сдйтшдвн йЯсЯкнвЯ.

Опзлдп:

' Изменяем текущую директорию на "MYDIR".

ChDir "MYDIR"

'Пусть диск "С:" является текущим диском. Следующий оператор

'изменяет текущий каталог на "D:\WINDOWS\SYSTEM", но

'текущим диском по-прежнему остаѐтся "С:".

ChDir "D:\WINDOWS\SYSTEM"

17.3.3 ChDrive

ChDrive drive - РлдмЯ сдйтшдвн гзрйЯ.

Опзлдп:

ChDrive "D"

17.3.4 Close

Close [number] - ЖЯйпъбЯдс уЯик, нсйпъсъи нодпЯснпнл Open онг мнлдпнл

number.

Опзлдп:

Open "TESTFILE" For Output As #3

Print #3, "Hello World"

Close #3

17.3.5 Const

[Public | Private] Const constname [As type] = expression - Нащюбкюдс

йнмрсЯмст.

Опзлдп:

' Константа типа Private (используется по умолчанию).

Const MyVar = 459

'Константа типа Public. Public Const MyString = "HELP"

'Константа Private, типа Integer. Private Const MyInt As Integer = 5

17.4 D

17.4.1 Date

Date = date - зжлдмюдс рзрсдлмтэ гЯст.

Опзлдп:

Dim MyDate

MyDate = #February 12, 1985# ' Присваиваем дату переменной

Date = MyDate ' Изменяем системную дату

[Public | Private] Declare Sub name Lib "libname" [Alias "aliasname"] [([arglist])]

зкз

[Public | Private] Declare Function name Lib "libname" _ [Alias "aliasname"] [([arglist])] [As type]

Ьснс нодпЯснп злддс 2 рзмсЯйрзрЯ. Одпбъи нащюбкюдс опнхдгтпт,

мЯфнгюштэрю б DLL азакзнсдйд (йнснпЯю нащюбкдмЯ б мди йЯй export). Бснпни нащюбкюдс утмйхзэ. ЖЯлдцЯмзд: дркз бъ нащюбкюдсд утмйхзэ б пЯжгдкд унплъ зкз йнлонмдмсЯ ActiveX, сн нмЯ гнкемЯ аъсы нащюбкдмЯ йЯй Private,

дркз б лнгткд, сн Public.

Опзлдп:

' Это находится в модуле:

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _ (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) _ As Long

' А это в разделе формы:

GetWindowText Form1.Hwnd, strCapt, 255