Стандартные функции VB (L-M)
Описание ф-ций, встроенных в Visual Basic 5, начинающихся
с букв L до M
Список функций, описанных в этом разделе:
---L---
LBound(arrayname[, dimension]) - возвращает минимально
возможую границу размерности массива в заданном заданном измерении.
Пример:
Dim
Lower
Dim MyArray(1 To
10, 5 To 15, 10 To
20) 'Объявляем массивы
Dim AnyArray(10)
Lower = Lbound(MyArray, 1) ' Возвратит 1.
Lower = Lbound(MyArray, 3) ' Возвратит 10.
Lower = Lbound(AnyArray) ' Возвратит 0 или 1, в зависимости
от
' установленной настройки Option Base.
LCase(string) - переводит строку в нижний регистр.
Пример:
Dim
UpperCase, LowerCase
Uppercase = "Hello World 1234" ' Строка для
конвертирования
Lowercase = Lcase(UpperCase) ' Возвратит строку "hello
world 1234".
Left(string, length) - Возвращает часть строки, начиная
с первого символа до указанного номера.
Пример:
Dim
AnyString, MyStr
AnyString = "Hello World" ' Определяем строку
MyStr = Left(AnyString, 1) ' Возвратит "H".
MyStr = Left(AnyString, 7) ' Возвратит "Hello W".
MyStr = Left(AnyString, 20) ' Возвратит "Hello
World".
Len(string | varname) - Возвращает длину строки string
или количество байт, занимаемых переменной varname.
Пример:
Type
CustomerRecord ' Определяем свою запись
ID As Integer ' Кладём
это определение в модуль
Name As String * 10
Address As String * 30
End Type
Dim
Customer As CustomerRecord
Dim MyInt As Integer, MyCur As Currency
Dim MyString, MyLen
MyString = "Hello World" ' Инициализация переменной
MyLen = Len(MyInt) ' Возвратит 2.(кол-во байт, занимаемых
переменной)
MyLen = Len(Customer) ' Возвратит 42.
MyLen = Len(MyString) ' Возвратит 11. (длину строки)
MyLen = Len(MyCur) ' Возвратит 8.
LoadPicture([stringexpression]) - Загружает картинку
в переменную типа Picture или элементы PictureBox и Image.
Пример:
Private
Sub
Form_Click ()
Dim
Msg As String
On Error Resume Next '
Устанавливаем обработку ошибки
Height = 3990
Width = 4890 ' Устанавливаем высоту и ширину в твипах
Set Picture = LoadPicture("PAPER.BMP")
' Загрузка картинки
If Err Then
Msg = "Не могу найти .BMP файл."
MsgBox Msg ' Отобразим ошибку
Exit Sub ' Выходим, если
ошибка имела место
End If
Msg = "Нажмите ОК для очистки формы от картинки."
MsgBox Msg
Set Picture = LoadPicture() '
Очищаем форму от картинки.
End Sub
Loc(filenumber) - возвращает номер текущей позиции
в файле, открытом binary методом.
Пример:
Dim
MyLocation, MyLine
Open "TESTFILE" For
Binary As #1 ' Открываем существующий файл
Do While MyLocation < LOF(1) '
Зацикливаемся пока не конец файла
MyLine = MyLine & Input(1, #1) ' Читаем символ в
переменную
MyLocation = Loc(1) ' Получаем текущую позицию в файле
' и выводим её в окно Immediate
Debug.Print MyLine; Tab; MyLocation
Loop
Close #1 ' Закрываем файл
LOF(filenumber) - Возвратит размер файла в байтах,
открытого оператором Open.
Пример:
Dim
FileLength
Open "TESTFILE" For
Input As #1 ' Открываем файл
FileLength = LOF(1) ' Получаем длину файла
Close #1 ' Закрываем файл
Log(number) - вычисляет натуральный логарифм числа
number. (Возвращает тип Double).
Пример:
Dim
MyAngle, MyLog
' Устанавливаем угол в радианах
MyAngle = 1.3
' Вычисляем обратный гиперболический синус
MyLog = Log(MyAngle + Sqr(MyAngle * MyAngle + 1))
Ф-ция Log вычисляет натуральный логарифм (т.е. по основанию e). Для
того, чтобы получить логарифм по основанию n нужно произвести следующее вычисление:
Logn(x)
= Log(x) / Log(n)
LTrim(string) - Возвратит строку без лидирующих пробелов.
Пример:
Dim
MyString, TrimString
MyString = " <Trim> " ' Устанавливаем
строку,
' у которой слева и справа по одному пробелу
TrimString = LTrim(MyString) ' Получили строку "<-Trim->
"
' (т.е. без пробела слева)
---M---
Mid(string, start[, length]) - Возвращает строку,
извлечённую из строки string, начиная с символа в позиции start, и содержащую
length символов.
Пример:
Dim
MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" ' Создаём текстовую
строку
FirstWord = Mid(MyString, 1, 3) ' Возвратит строку "Mid".
LastWord = Mid(MyString, 14, 4) ' Возвратит строку "Demo".
MidWords = Mid(MyString, 5) ' Возвратит строку "Function
Demo".
Minute(time) - Возвратит число минут (от 0 до 59)
содержащимся в параметре Time. В примере всё яснее.
Пример:
Dim
MyTime, MyMinute
MyTime = #4:35:17 PM# ' Присваиваем время
MyMinute = Minute(MyTime) ' MyMinute содержит 35.
Month(date) - то же, что и выше, только возвратит
число дней в параметре date.
Пример:
Dim
MyDate, MyMonth
MyDate = #February 12, 1969# ' Присваиваем дату
MyMonth = Month(MyDate) ' MyMonth содержит 2.
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
- Выводит на экран окно сообщения (Message Box) которое будет ждать клика
на одной из кнопок. Возвращает число Integer, по которому можно определить
какую кнопку нажал пользователь.
Пример:
Этот пример выводит на экран критическую ошибку с кнопками Yes и No.
Dim
Msg, Style, Title, Response, MyString
Msg = "Do you want to continue ?" ' Устанавливаем
текст сообщения
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Устанавливаем
стиль
Title = "MsgBox Demonstration" ' Устаналиваем
заголовок (Caption).
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
MyString = "Yes"
' Выполняем какие-то действия, если пользователь выбрал
Yes
Else
MyString = "No"
' Выполняем какие-то действия, если пользователь выбрал
No
End If
| 
