Вызовы Скриптов вставляются в оглавление древовидной
структуры и легко находятся для использования. Диапазон использования
MW лежит от простой установки множества свойств управляющих элементов
( что позволяет переходить от установки свойств к установке стиля
) до создания полноценных Wizards, создающих Forms, Controls, CodeModules
или модифицирующих ваши Templates.
MW является интерпретатором скриптов, аналогично
ASP скриптам, но результатом интепретации является не HTML страница,
а объекты среды разработки VB IDE.
Скрипт MW может состоять из трех видов скриптов:
- скрипт Menu. Используется для создания шаблонов
меню. Используя затем диалог Paste можно вставить меню на форму.
- скрипт для создания диалога. Скрипт заключается
в скобки FORM{...} Скриптов FORM{} может быть несколько. С помощью
них организуется выполнение серии диалоговых окон ( Диалогов ) для
сбора информации, которая является входной для выполнения скрипта
CODE{...}. Скрипты типа FORM{} не являются обязательными. Скрипты
типа FORM{...} могут быть трех типов:
- неименнованный скрипт.
Скрипт не содержит свойства Name и исполняется всегда при запуске
скрипта MW. Его нельзя повторно вызывать из кода и порядок его вызова
определяется порядком написания в скрипте MW.
- именованный скрипт.
Содержит свойство Name. Исполнение данного скрипта всегда происходит
программно с помощью функции Show. При этом всегда можно управлять
свойствами контролов диалога с помощью функции Modify.
- динамический скрипт.
Функции Show передается не имя формы диалога, а строка описания формы
диалога
- скрипт CODE{...} для получения конкретных
результатов на основе скрипта диалога FORM{...} и/или шаблона VB IDE.
Скрипт содержит последовательность операторов VB-Script, позволяющих
реализовать логику вашего Wizard. Скрипт может вызывать именованные
или динамические FORM-скрипты для получения входной информации для
вашего Wizard. С помощью мощного набора функций вы можете создавать
и модифицировать объекты среды разработки, такие как Controls, Forms,
UserControls, CodeModules и др.
EXEC{
FORM{
Form ?=Function definition
CheckBox Name=chkErr ,?=Use Error handling ,Default=True, X=150, Y=1530
CheckBox Name=chkVars ,?=Use variables definition ,Default=True, X=2080,
Y=1530
ComboBox Name=cmbRes, X=2670, Y=645 ,List=Boolean|String|Long|Single|Double|Variant
Label Name=Label1 ,?=Function Name:, X=120, Y=405
Label Name=Label2 ,?=Result as:, X=2670, Y=405
Label Name=Label3 ,?=Input Parameters:, X=120, Y=1110
OptionButton Name=optFriend ,?=Friend, X=3330, Y=75
OptionButton Name=optPriv ,?=Private ,Default=True, X=120, Y=75
line y=320
OptionButton Name=optPubl ,?=Public, X=1822, Y=75
TextBox Name=txtName, X=120, Y=645
TextBox Name=txtParam, X=1590, Y=1080,len=30
line y=1440
}
Code{
rem txtName, txtParam, optPubl,optPriv,optFriend, chkErr, chkVars,
cmbRes
'---------------------
<% if optPubl then
="Public "
elseif optFriend then
="Friend "
else
="Private ": end if: ="Function "+txtName+"("+txtParam+")
as "+cmbRes %>
<% if chkvars then %>
Dim i as Long, j as Long, n as Long, str as string
<%end if%>
'---------------
' <% =txtName+"="+vbcrlf
if chkErr then ="On Error GoTo Merr"+vbcrlf
="'--------------------"+vbcrlf
="'--------------------"+vbcrlf
="'"+txtName+"="+vbcrlf
if chkerr then
=" Exit Function"+vbcrlf+"'--------------------"+vbcrlf+"Merr:"+vbcrlf+"
MsgBox Err.Description"
end if
%>
End Function
}
Home...
