Visual Basic. Разработка приложений: теория и практика. Ищенко В.А - 50 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

50
For-Each-Next”). В этом цикле перебираются элементы управления, распо-
ложенные на форме Form1, для заголовков которых устанавливаются соот-
ветствующие атрибуты шрифта. В зависимости от значения введенного
пароля устанавливаются различные значения свойств шрифта. Если пароль
введен не корректно, выдается соответствующее сообщение в окне сооб-
щения (MsgBox).
9.3. Управляющая структура Select Case
Структура Select Case позволяет в зависимости от значения пере-
менной или выражения выполнить один из нескольких фрагментов про-
граммы. Ее действие подобно действию структуры If-Then-Else, в которой
условие переопределяется ключевым словом Elself. Структура Select Case
работает с единственным оцениваемым выражением, которое проверяется
однажды, наверху структуры. Затем Visual Basic сравнивает результат это-
го выражения со значениями
для каждого Case структуры. Если встречает-
ся совпадение, выполняется группа операторов, ассоциированных с этим
Case. Синтаксис этого оператора следующий:
Select Case Оцениваемое_выражение
Case Список_выражений_1
Блок_операторов_1
Case Список_выражений_2
Блок_операторов_2
. . .
Case Список_выражений_n
Блок_операторов_n
End Select
В примере 3, приведенном ниже, использована структура If-Then-
Else для определения прав пользователя, согласно введенному им паролю.
В следующей программе те же действия выполняются средствами струк-
туры Select Case.
Пример 3.
Private Sub Proc3_ SelectCase ( )
Dim Password As String
Dim Elem As Object
Password = Lcase (InputBox (“Введите пароль:” , “Пароль”))
Select Case Password
Case “level1”
For Each Elem In Form1
Elem.Font.Name = “Ms Sans Serif”
Elem.Font.Italic = True
Elem.Font.Size = 10 
                                      50
For-Each-Next”). В этом цикле перебираются элементы управления, распо-
ложенные на форме Form1, для заголовков которых устанавливаются соот-
ветствующие атрибуты шрифта. В зависимости от значения введенного
пароля устанавливаются различные значения свойств шрифта. Если пароль
введен не корректно, выдается соответствующее сообщение в окне сооб-
щения (MsgBox).
               9.3. Управляющая структура Select Case
      Структура Select Case позволяет в зависимости от значения пере-
менной или выражения выполнить один из нескольких фрагментов про-
граммы. Ее действие подобно действию структуры If-Then-Else, в которой
условие переопределяется ключевым словом Elself. Структура Select Case
работает с единственным оцениваемым выражением, которое проверяется
однажды, наверху структуры. Затем Visual Basic сравнивает результат это-
го выражения со значениями для каждого Case структуры. Если встречает-
ся совпадение, выполняется группа операторов, ассоциированных с этим
Case. Синтаксис этого оператора следующий:
            Select Case Оцениваемое_выражение
                Case Список_выражений_1
                      Блок_операторов_1
                Case Список_выражений_2
                      Блок_операторов_2
                . . .
                Case Список_выражений_n
                      Блок_операторов_n
            End Select
      В примере 3, приведенном ниже, использована структура If-Then-
Else для определения прав пользователя, согласно введенному им паролю.
В следующей программе те же действия выполняются средствами струк-
туры Select Case.
Пример 3.
Private Sub Proc3_ SelectCase ( )
   Dim Password As String
   Dim Elem As Object
   Password = Lcase (InputBox (“Введите пароль:” , “Пароль”))
   Select Case Password
      Case “level1”
            For Each Elem In Form1
              Elem.Font.Name = “Ms Sans Serif”

            Elem.Font.Italic = True
            Elem.Font.Size = 10

Страницы