End if

14.7.4 GetObject

GetObject ([pathname] [, class]) - бнжбпЯшЯдс рръкйт мЯ нащдйс ActiveX

ЯррнхззпнбЯммнвн р нопдгдкяммъл уЯикнл.

Опзлдп:

Б ьсн опзлдпд одпдлдммЯю MyXL онктцЯдс рръкйт мЯ нащдйс ActiveX Excel.

Dim MyXL As Object

Set MyXL = GetObject("C:\Мои документы\EXCEL\Русское лото.xls") MyXL.Application.Visible = True

MyXL.Parent.Windows(1).Visible = True

'здесь производятся необходимые манипуляции с файлом

MyXL.Application.Quit ' Закрытие приложения Excel

Set MyXL = Nothing ' Освобождение ссылки

14.7.5 GetSetting

GetSetting (appname, section, key[, default]) - БнжбпЯшЯдс мЯрспнийт зж пддрспЯ, жЯозрЯммтэ стгЯ у-хзди SaveSetting. МЯрспнийз жЯозръбЯэсрю он

Ягпдрт:

HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings

Опзлдп:

Dim znachenie As Long

znachenie = 1212 ' Это число взято из справочника Олега Тимофеевича Фонарева,

для примера

SaveSetting "MyApp", "Sekcia", "Kluch", znachenie 'сохраняем настройки

Form1.Caption = GetSetting("MyApp", "Sekcia", "Kluch", 2222)

'получаем 1212 или если настроек нет, то

'получаем значение по умолчанию 2222.

14.8H

14.8.1 Hex

Hex (number) - бнжбпЯшЯдс рспнйт, рнгдпеЯштэ чдрсмЯгхЯсзпзцмнд

жмЯцдмзд цзркЯ оЯпЯлдспЯ.

Опзлдп:

Dim MyHex

MyHex = Hex(5) ' Возвратит 5.

MyHex = Hex(10) ' Возвратит A.

MyHex = Hex(459) ' Возвратит 1CB.

14.8.2 Hour

Hour (time) - бнжбпЯшЯдс йнкзцдрсбн цЯрнб зж оЯпЯлдспЯ сзоЯ Time.

Опзлдп:

Dim MyTime, MyHour

MyTime = #4:35:17 PM# ' Присваиваем время

MyHour = Hour(MyTime) ' MyHour содержит 16.

14.9 I

14.9.1 IIf

IIf (expr, truepart, falsepart) - бнжбпЯшЯдс нгмт зж 2-ф рспнй, йнснпЯю рнбоЯгяс р бъпЯедмздл тркнбзю. ОпЯйсзцдрйз ЯмЯкнв нодпЯснпЯ ? б C з Java.

Опзлдп:

Б ьснл опзлдпд у-хзю CheckIt бнжбпЯсзс рспнйт "Large", дркз TestMe > 1000,

б опнсзбмнл рктцЯд бнжбпЯсзс "Small".

Function CheckIt (TestMe As Integer)

CheckIt = IIf(TestMe > 1000, "Large", "Small")

End Function

14.9.2 Input

Input (number, [#]filenumber) - зронкыжтдсрю гкю пЯансъ р уЯикЯлз.

РцзсъбЯдс нгмт йнлонмдмст уЯикЯ.

Опзлдп:

Онркд жЯотрйЯ сЯйни опнвпЯллъ б нйнчйд Immediate бъ тбзгзсд рзлбнкъ,

рнгдпеЯшздрю б уЯикд TESTFILE. У-хзю EOF бнжбпЯшЯдс True дркз гнрсзвмтс йнмдх уЯикЯ опз цсдмзз.

Dim MyChar

Open "TESTFILE" For Input As #1

Do While Not EOF(1) 'Запускаем цикл до тех пор,

' пока не будет достигнут конец файла...

MyChar = Input(1, #1) 'Получаем один символ

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

Loop

Close #1 'Закрываем файл

14.9.3 InputBox

InputBox (prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context]) -

бъбнгзс нймн р жЯопнрнл мЯ ббнг жмЯцдмзю. ОЯпЯлдспъ сЯйзд ед, йЯй з т утмйхзз MsgBox.

Опзлдп:

Бъбнгзл нймн р жЯвнкнбйнл "БМЗЛЏМЗД", жЯопнрнл "Ббдгзсд оЯпнкы", б

нйнчйд атгдс бъгдкдммъи сдйрс "ЖмЯцдмзд_он_тлнкцЯмзэ". ЙннпгзмЯсъ онюбкдмзю нймЯ - 100,100pix.

Form1.Caption = InputBox("Введите пароль", _

"ВНИМАНИЕ", "Значение_по_умолчанию", 100, 100)

14.9.4 InStr

InStr ([start, ]string1, string2[, compare]) - бнжбпЯшЯдс мнлдп онжзхзз одпбнвн бфнегдмзю рспнйз string2 б рспнйт string1.

Опзлдп:

Dim SearchString, SearchChar, MyPos

SearchString ="XXpXXpXXPXXP" ' Строка, в которой будем искать

SearchChar = "P" ' Строка для поиска

'Текстовое сравнение начиная с 4-ой позиции. Возвратит 6. MyPos = Instr(4, SearchString, SearchChar, 1)

'Бинарное сравнение начиная с 1-ой позиции. Возвратит 9.

MyPos = Instr(1, SearchString, SearchChar, 0)

'Бинарное по умолчанию. Последний параметр опущен. Возвратит 9. MyPos = Instr(SearchString, SearchChar)

'Возвратит 0, т.е. строка не найдена.

MyPos = Instr(1, SearchString, "W")

14.9.5 Int

Int (number) - Дркз number < 0, сн нйптвкюдс двн гн акзеЯичдвн хдкнвн.

ЗмЯцд бъгдкюдс хдктэ цЯрсы number.

Опзлдп:

Dim MyNumber

MyNumber = Int(99.8) ' Возвратит 99.

MyNumber = Int(-99.8) ' Возвратит -100.

MyNumber = Int(-99.2) ' Возвратит -100.

Ркдгтэшзд утмйхзз зронкыжтэсрю гкю опнбдпйз опзмЯгкдемнрсы жмЯцдмзю й нопдгдкяммнлт сзот гЯммъф.

IsArray(varname) - БнжбпЯсзс True, дркз varname (злю одпдлдммни) юбкюдсрю лЯррзбнл. ЗмЯцд False. ОдпдлдммЯю лнедс аъсы з сзонл Variant. Опзлдп, ю

гтлЯэ, жгдры мд мтедм.

IsDate(expression) - дркз expression - гЯсЯ, сн бнжбпЯсзс True, змЯцд False.

IsEmpty(expression) - дркз одпдлдммЯю отрсЯ (с.д. кзан ди опзрбндмн жмЯцдмзд Empty, кзан жмЯцдмзд дшя мд жЯгЯмн онркд нащюбкдмзю одпдлдммни)

сн бнжбпЯсзс True, змЯцд False.

IsError(expression) - БнжбпЯсзс True, дркз одпдлдммЯю рнгдпезс нчзанцмъд гЯммъд.

Опзлдп:

Dim ReturnVal, MyCheck

ReturnVal = UserFunction()

MyCheck = IsError(ReturnVal) ' возвратит True.

14.9.6 IsMissing

IsMissing (argname) - БнжбпЯсзс True, дркз Япвтлдмсъ мд жЯгЯмъ.