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



         

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


Лучший способ добавить процедуру в элемент управления

Script - ввести операторы в элемент управления TextBox, а затем добавить значение его свойства Text в элемент управления Script. Позже в главе будет создано приложение, позво­ляющее пользователю с помощью элемента управления TextBox вводить сценарий и выполнять его. Начнем с более простых, но чрезвычайно важных примеров использования элемента Script.

VB6 в действии: доработанный проект Graph

Для демонстрации элемента управления Script изменим проект Graph (см. гл. 6). Приложение Graph (рис. 20.4) рисует график одной или нескольких функции, определения которых появляются в верхней части формы. Оригинальное приложение Graph рисует две функции, жестко закодированные в приложении. Доработанное приложение, которое находится в папке для этой главы на компакт-диске, позволяет задавать функции.

Рис. 20.4. Доработанное приложение Graph: функции задаются во время выполнения

Откройте приложение Graph (гл. 6) и сохраните его форму и проект в новой папке. После добавления к проекту элемента управления,-Script поместите экземпляр элемента на форму. Нет особой разницы, где он будет размещен и каковы его размеры: во время выполнения он невидим.

Программный код кнопок рисует графики соответствующих функций, вызывая функции FuctionEvall() и FuctionEval2(). Они возвращают значения функций, показанных вверху формы, для заданного значения X. Если заменить определения функций следующим кодом, то можно рисовать любую функцию.

Программа 20.6. Вычисление математических выражений во время выполнения

Function FunctionEvall(ByVal X As Double) As Double

ScriptControll.ExecuteStatement "X=" & X

FunctionEvall = ScriptControll.Eval(Trim(Text1.Text))

End Function

Function FunctionEval2(ByVal X As Double) As Double

ScriptControl.AddCode "X=" & X

FunctionEval2 = ScriptControll.Eval(Trim(Text2.Text))

End Function

Исправленные функции вычисляют любые выражения, введенные пользователем в элементе управления TextBox вверху формы.




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