Visual Basic

Автор: Бабаев С. (vbproffi)

1.Randomize

Например вам надо создать программу которая будет выбирать случайное число, а затем выполнять какое  - либо  действие соответствующее этой цифре. Для этого сделаем следующее в событии Load нашей формы:

 

Private Sub Form_Load()

 

  Randomize ‘ это обеспечит выбор действительно случайных чисел (иногда счётчик  

                    постоянно выбирает одни те же несколько чисел, что не всегда полезно)

End Sub  

 

Далее запишем код в событие того элемента работу которого хотим обработать, в нашем случае Command1:

 

Private Sub Command1_Click()

 

  Dim i As Byte ‘ объявляем переменную i как byte (числовую, диапазон 0…256)

 

  Randomize ‘ инициализирует генератор случайных чисел

 

  i = Int((3 * Rnd)+1) ‘ задаём диапазон от 1 до 3

 

  Select Case i

    Case is = 1

           Form2.Show vbModal

    Case is = 2

            Form3.Show vbModal

    Case is = 3

            Form4.Show vbModal

    End Select

 

End Sub

 

Select  Case.Здесь просматривается какое число было выбрано и выполняется соответствующее ему действие. В нашем примере происходит показ одной из форм. 

 

 2. Show Form

 

Перед вами стоит задача при нажатии на кнопку (пусть это будет кнопка “Далее”) программа должна запустить другую форму. Для этой цели существует метод Show, который и берёт на себя запуск форму. Синтаксис название_формы.Show. Например: frmNew.Show. Но в предыдущем примере после этого присутствовало также vbModal. Разница в том, что без этой приставки форма загрузиться немодально. Для полного усвоения этого приведу пример: есть две формы, когда вы нажимаете на одно из них появляется другая, в которой вам надо ввести  данные, но вы можете перемещаться между этими формами, и заполнять их в свободном порядке.  Предположим вам захотелось просмотреть чужую программу которая запускается, а потом блокирует себя до ввода верного пароля. Если бы форма с запросом пароля запускалась не модально, то вы спокойно могли бы проигнорировать этот запрос (просто сделав окно нужной вам программы активным) и перейти непосредственно к программе. Думаю уже понятно, что форма загруженная модально потребует сначала закончить все действия с ней (т.е. ввести пароль и подтвердить его), а уже после даст вам доступ к самой программе.

 

3. InStr 

 

Можно использовать для проверки входа одной строки в другую. Например:

в текстовое поле №1 вводится слово в котором надо искать, в поле №2 то, что на надо искать. Теперь обработаем событие Click() кнопки:

 

Private Sub Command1_Click()

 

  i = InStr(1,Text1.Text,Text2.Text)

 

  If i = 0 Then

 

     MsgBox “Входит”

 

  Else

    

     MsgBox “Не входит”

 

End sub