' Теперь переменная strCapt создержит заголовок окна Form1
17.5 Def<Type>
DefBool letterrange[, letterrange] . . .
DefByte letterrange[, letterrange] . . .
DefInt letterrange[, letterrange] . . .
DefLng letterrange[, letterrange] . . .
DefCur letterrange[, letterrange] . . .
DefSng letterrange[, letterrange] . . .
DefDbl letterrange[, letterrange] . . .
DefDec letterrange[, letterrange] . . .
DefDate letterrange[, letterrange] . . .
DefStr letterrange[, letterrange] . . .
DefObj letterrange[, letterrange] . . .
DefVar letterrange[, letterrange] . . .
Р онлншыэ ьсзф нодпЯснпнб лнемн трсЯмнбзсы сзо одпдлдммъф он тлнкцЯмзэ. letterrange - гзЯоЯжнм рзлбнкнб, р йнснпъф гнкемъ мЯцзмЯсырю злдмЯ одпдлдммъф. НодпЯснпъ гнкемъ мЯфнгзсырю б пЯжгдкд лнгткю.
Опзлдп:
DefInt A-K
'Переменные, имена которых начинаются с букв L до K будут
'по умолчанию объявлены как Integer. А от L до Z - как String.
'Напомню, что пример работает при выключенном Option Explicit.
DefStr L-Z
CalcVar = 4 ' Объявляется как Integer.
StringVar = "Hello there" ' Объявляется как String.
17.5.1 DeleteSetting
DeleteSetting appname, section[, key] - тгЯкюдс пЯмдд жЯозрЯммтэ мЯрспнийт зж пддрспЯ. (SaveSetting рнфпЯмюдс мЯрспнийт, Я утмйхзю GetSetting жЯвптеЯдс).
МЯрспнийз жЯозръбЯэсрю он Ягпдрт:
HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings
Б ьснл йкэцд рнжгЯясрю дшя нгзм йкэц р мЯжбЯмздл appname.
Опзлдп:
' Записываем что-нибудь, в нашем случае - это положение окна
SaveSetting "MyApp", "Startup", "Top", Form1.Top SaveSetting "MyApp", "Startup", "Left", Form1.Left ' Удаляем только что записанные настройки
DeleteSetting "MyApp", "Startup"
17.5.2 Dim
Dim [WithEvents] varname[([subscripts])] [As [New] type] [, [WithEvents] _ varname[([subscripts])] [As [New] type]] . . .
Ьснс нодпЯснп зронкыжтдсрю гкю нащюбкдмзю одпдлдммъф.
Опзлдп:
'AnyValue и MyValue объявляются как Variant по умолчанию
'и им присваивается начальное значение Empty.
Dim AnyValue, MyValue
'Объявляем перенную типа Integer Dim Number As Integer
'Здесь объявление происходит в одной строчке. Переменная AnotherVar
'объявляется как Variant, т.к. еѐ тип опущен.
Dim AnotherVar, Choice As Boolean, BirthDate As Date
'DayArray - массив, состоящий из 51-го элемента (от 0 до 50).
'Если в модуле написать Option Base 1, то индексы всех массивов будут
'начинаться с единицы. По умолчанию Option Base установлен в 0
Dim DayArray(50) ' Матрица 4 на 5.
Dim Matrix(3, 4) As Integer
' BirthDay - массив, с индексами от 1 до 10.
Dim BirthDay(1 To 10) As Date
' MyArray - динамический массив типа Variant. Dim MyArray()
17.5.3 Do... Loop
Do...Loop – конструкция организации циклов
17.6 E
17.6.1 End [<Конструкция>]
End
End Function
End If
End Property
End Select
End Sub
End Type
End With
ЖЯйЯмцзбЯдс опнхдгтпт зкз акнй.
End - мдлдгкдммн жЯбдпчЯдс бъонкмдмзд опнвпЯллъ. ЖЯйпъбЯдс брд нсйпъсъд уЯикъ з нцзшЯдс брд одпдлдммъд.
End Function - мднафнгзл гкю жЯбдпчдмзю утмйхзз.
End If - мднафнгзл гкю жЯбдпчдмзд опнбдпйз тркнбзю нодпЯснпнл If.
End Property - мднафнгзл гкю жЯбдпчдмзю опнхдгтп Property Let, Property Get
зкз Property Set.
End Select - мднафнгзл гкю жЯбдпчдмзю нодпЯснпЯ Select Case.
End Sub - мднафнгзл гкю жЯбдпчдмзю опнхдгтп.
End Type - мднафнгзл гкю жЯбдпчдмзю нодпдгдкдмзю онкыжнбЯсдкырйнвн сзоЯ
(нодпЯснп Type)
End With - мднафнгзл гкю жЯбдпчдмзю нодпЯснпЯ With.
Опзлдп:
Sub Form_Load
Dim Password, Pword
PassWord = "Swordfish"
Pword = InputBox("Type in your password")
If Pword <> PassWord Then
MsgBox "Sorry, incorrect password"
End
End If
End Sub
17.6.2 Enum
[Public | Private] Enum name
membername [= constantexpression]
membername [= constantexpression]
. . .
End Enum
Нащюбкюдс одпдцзркюдлъи сзо.
Опзлдп:
Public Enum InterfaceColors icMistyRose = &HE1E4FF& icSlateGray = &H908070& icDodgerBlue = &HFF901E& icDeepSkyBlue = &HFFBF00& icSpringGreen = &H7FFF00& icForestGreen = &H228B22& icGoldenrod = &H20A5DA& icFirebrick = &H2222B2&
End Enum
17.6.3 Erase
Erase arraylist - рапЯръбЯдс брд жмЯцдмзю лЯррзбЯ узйр. пЯжлдпЯ з
нрбнанегЯдс мдзронкыжтдлтэ оЯлюсы гзмЯлзцдрйнвн лЯррзбЯ.
Опзлдп:
Dim a(5) As Integer
Dim Dyn()
a(2) = 4
ReDim Dyn(10) ' Резирвируем память для 11-ти элементов