Visual Basic: Статьи

Автор статьи: Беседин Игорь

Малоизвестные функции VB 6.0

1. Как расположить символы строки в обратном порядке?

    Для этого используется функция StrReverse. Например, следующий код возвратит "tfoSkyrogI":

    MsgBox StrReverse("IgorykSoft");

2. Как активизировать окно, не используя API-функций?

    Для этого используется функция AppActivate. Она активизирует приложения, если они есть в памяти компьютера, т.е. либо занесены в реестр, либо открыто в данный момент. Синтаксис команды: AppActivate(title[, wait]),

где title - заголовок окна, либо возвращаемое значение функции Shell;

      wait - передавать ли фокус окна открытому приложению.

   Вот несколько примеров использования этой функции:

  1. AppActivate "Microsoft Word" 'Активизирует Microsoft Word.

  2. X=Shell("C:\myprog.exe",1)'Запустится файл myprog.exe

     AppActivate (X)'Активизируется приложение myprog.

3. Функция IIf(Expr, truepart, falsepart)

    где Expr - логическое выражение (например, Value<>1);

    truepart - возвращаемое значение если Expr=True;

    falsepart - возвращаемое значение если Expr=False.

    Эта функция возвращает одно из двух значений (truepart  или falsepart) в зависимости от истинности expr.

   Примеры:

   1. Следующий пример возвратит значение "Число равно 10":

  Value = 10
  MsgBox IIf(Value = 10, "Число равно 10", "Число не равно 10")
   2. А следующий пример возвратит значение "Число не равно 10"

  Value = 5
  MsgBox IIf(Value = 10, "Число равно 10", "Число не равно 10")
   Но следует учитывать, что эта функция проверяет на истинность и truepart, и falsepart, т.е. если выражение истинно, а falsepart = , например, 15\0, то будет выдано сообщение об ошибке.

4. Функция Join(SourceArray,[Delemeter])

   где SourceArray - исходный массив;

   Delemeter - символ между данными массива, если не указан, то замещается " ".

   Эта функция служит для перемещения в одну строковую переменную всех значений массива.

   Примеры:

   1. Следующий пример возвратит "0 1 2 3 4":

     ReDim A(0 To 5) As String
   For i = 0 To 4
   A(i) = i
   Next
   MsgBox Join(A)
   2. Следующий пример возвратит "01234":

     ReDim A(0 To 5) As String
   For i = 0 To 4
   A(i) = i
   Next
   MsgBox Join(A, "")

   3. Следующий пример возвратит "0-1-2-3-4-":

     ReDim A(0 To 5) As String
   For i = 0 To 4
   A(i) = i
   Next
   MsgBox Join(A, "-")

 При любом воспроизведении этой статьи (и других статей с этого сайта) ставьте ссылку на сайт www.igoryksoft.narod.ru