Вверх ↑
Ответов: 8926
Рейтинг: 823
#1: 2007-09-16 19:37:37 ЛС | профиль | цитата
Ntl-M, ошибки в скрипте: точки нельзя называть зарезервированными словами "String" ; функции надо заканчивать "End ***" ; переменные надо обозначать. При работе с VB пользуйтесь справкой от Ecxel-97 она на русском языке.
Add(VBJScript,15883492,243,120)
{
WorkPoints=#6:doRead|
EventPoints=#6:onRead|
DataPoints=#7:String1|
Script=#15:Option Explicit|11: Dim Datas1|27:' Global var for this scrip|0:|0:|0:|27:Function doWork(Data,Index)|21: Datas1 = Sys.String1|19: Select Case Datas1|29: Case "ааа" : Sys.onRead "1"|29: Case "ббб" : Sys.onRead "2"|18: '***************|30: Case Else : Sys.onRead "999"|14: End Select |12:End Function|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|
link(onRead,1763181:doText,[(288,126)(288,125)])
link(String1,10221475:Value,[(249,108)(235,108)(235,164)(202,164)])
}
Add(Label,1763181,301,119)
{
Left=220
Top=20
Width=45
Color=12639424
}
Add(Edit,9923549,147,112)
{
Left=105
Top=15
link(onEnter,10221475:doValue,[])
}
Add(Memory,10221475,196,119)
{
link(onData,15883492:doRead,[(236,125)(236,126)])
}
карма: 19

0