FoxClub Forums > Архив конференции по VFP до 2005 года

:: Архив конференции по VFP до 2005 года

• Войти

Подключение формы.
rusl Автор Сообщений: 200 Откуда: СПб Дата регистрации: 01.02.2005	rusl 17.03.05 12:49:02 Андрей Петров (спасибо ему огромное) выложил свое решение проблемы с WordNet: wncom.zip (2k) Но у меня все не получается включить его в код своей программы (в основном из-за того что еще не работал с формами и классами, хоти последние дни и пытаюсь с ними разобраться). Если у кого нибудь есть время и возможность, подскажите с чего начать (как правильно объединить все в одну процедуру (визульная форма мне не нужна, только переменная, возвращающая значение из WordNet)). Command1.Click: thisword = ALLTRIM(thisform.text1.Text) thispos = thisform.combo1.ListIndex + WN_FIRSTPOS thislinktype = thisform.combo2.ListIndex + WN_FIRSTLINKTYPE If thisform.recurse.Value = 1 thislinktype = -thislinktype EndIf Dime thisoutput(1000) As String thisoutput = thisform.wn.findtheinfo(thisword, thispos, thislinktype, WN_ALLSENSES) ? thisoutput Form1.Show: LPARAMETERS nStyle thisform.wn = CreateObject("Wordnet.Wordnet.3") thisform.wn.wninit() FOR m.x=WN_FIRSTPOS TO WN_LASTPOS thisform.combo1.additem(thisform.wn.posname(m.x)) ENDFOR FOR m.x=WN_FIRSTLINKTYPE TO WN_MAXLINKTYPE thisform.combo2.additem(thisform.wn.linktypename(m.x)) ENDFOR Правильно ли сделать: procedure wnet LPARAMETERS nStyle thisform.wn = CreateObject("Wordnet.Wordnet.3") thisform.wn.wninit() Dime thisoutput(1000) As String thisoutput = thisform.wn.findtheinfo(thisword, thispos, thislinktype, WN_ALLSENSES) Что то я запутался...

rusl
Автор

Сообщений: 200
Откуда: СПб
Дата регистрации: 01.02.2005

rusl

17.03.05 12:49:02

Андрей Петров (спасибо ему огромное) выложил свое решение проблемы с WordNet:
wncom.zip (2k)
Но у меня все не получается включить его в код своей программы (в основном из-за того что еще не работал с формами и классами, хоти последние дни и пытаюсь с ними разобраться).

Если у кого нибудь есть время и возможность, подскажите с чего начать (как правильно объединить все в одну процедуру (визульная форма мне не нужна, только переменная, возвращающая значение из WordNet)).

Command1.Click:


thisword = ALLTRIM(thisform.text1.Text)
thispos = thisform.combo1.ListIndex + WN_FIRSTPOS
thislinktype = thisform.combo2.ListIndex + WN_FIRSTLINKTYPE
If thisform.recurse.Value = 1
     thislinktype = -thislinktype
EndIf
Dime thisoutput(1000) As String
thisoutput = thisform.wn.findtheinfo(thisword, thispos, thislinktype, WN_ALLSENSES)
? thisoutput

Form1.Show:


LPARAMETERS nStyle
thisform.wn = CreateObject("Wordnet.Wordnet.3")
thisform.wn.wninit()
FOR m.x=WN_FIRSTPOS TO WN_LASTPOS
    thisform.combo1.additem(thisform.wn.posname(m.x))
ENDFOR
FOR m.x=WN_FIRSTLINKTYPE TO WN_MAXLINKTYPE
    thisform.combo2.additem(thisform.wn.linktypename(m.x))
ENDFOR

Правильно ли сделать:


procedure wnet
LPARAMETERS nStyle
thisform.wn = CreateObject("Wordnet.Wordnet.3")
thisform.wn.wninit()
Dime thisoutput(1000) As String
thisoutput = thisform.wn.findtheinfo(thisword, thispos, thislinktype, WN_ALLSENSES)

Что то я запутался...

:: Список Форумов•Список тем•Поиск•Войти

Извините, но у вас нет прав для того, чтобы оставлять сообщения в этом форуме.

On-line: 7 (Гостей: 7)