Visual Basic 6. Руководство разработчика



         

Использование элемента управления - часть 2


' (Введите число от  0 до 5)

If X = 3 Then

X = X + 1

Else

X = X - 1

End If

MsgBox "The value of X is:" & X

  ' (Значение Х равно...)

Если запустить этот код, то выведется запрос на ввод числа. Затем будет выведено значение на единицу меньше введенного, если было введено число отличное от 3, и 4 - в противном случае. Чтобы ввести все операторы и выполнить их с помощью метода ExecuteStatement, поместите новую кнопку на форму и введите следующий код для обработчика события Click.

Private Sub Cormmand2_Click ()

ScriptControll.ExecuteStatement "X=InputBox (""Введите _

число от 0 до 5""):If X = 3 Then X = X + 1: Else _

X = X - 1: End If: MsgBox ""Значение Х="" & X"

End Sub

Аргумент метода ExecuteStatement создается добавлением последовательных операторов, разделенных двоеточиями. Необходимо заключить весь аргумент в двойные кавычки и заменить двойные кавычки внутри кода на пару таких кавычек.

Это не лучший метод передачи длинных операторов для выполнения элементу управления Script. Лучше создать строковую переменную, содержащую операторы, а затем передать ее методу ExecuteStatement.

Private Sub Command2_Click()

script = ""

script = script & "X = InputBox (""Введите число от 0 до 5""):"

script = script & " If X = 3 Then X = X + 1:"

script = script & "Else X = X - 1:"

script = script & "End If: "

script = script & "MsgBox ""Значение X ="" & X

ScriptControll.ExecuteStatement script

End Sub

Методы AddCode и Run

Выполнять простые операторы с помощью элемента управления

Script — это интересное упражнение, но на практике приходится выполнять больше одного оператора. Элемент управления Script может хранить большие сегменты кода, подобно модулю кода в проекте Visual Basic, и выполнять их при необходимости.

Чтобы добавить одну или более процедур в элемент управления Script, используется метод AddCode, который принимает строку-аргумент с кодом. Код, который добавляется к элементу, может содержать модули (подпрограммы и функции). Их можно вызывать по имени с помощью метода Run. Ниже приведен простой пример сценария, содержащего подпрограмму, в которую включен вызов функции.




Содержание  Назад  Вперед