VPF::VB в Lotus - Форум программистов

Gorro

Дата 8.3.2008, 13:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 8.3.2008
Где: Yerevan

Репутация: нет
Всего: нет

Здесь у меня Windows форма написанная LotusScript-ом  ( VB в Lotus) . Я новичок в обоих.
В этой форме реализовано одна radio button. Проблема в том, что этот field инициализируется только после второй загрузки программы, если при первой загрузке я пытался ею воспользоваться (хотя неудачно).
Так вот. У этого field-a два выбора, ею выбирается онлайн статус юзера. Ее параметры в Lotus-е :

Type - RadioButton
Name - fldConnected
Choices -  @GetProfileField("StringTable"; "CONNECTED"; @UserName):
                @GetProfileField ("StringTable"; "UNAVAILABLE"; @UserName)
Default Value - @GetProfileField("StringTable"; "CONNECTED"; @UserName) (вот эта часть наверное и не работает)

а код под ним:

Код


Function NewStatus_Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim bOk As Boolean

    Call g_thisForm.FieldSetText("fldConnected", GetString("CONNECTED")) 'при первой загрузке - нихт
    Call g_thisForm.FieldSetText("fldNote", "")

    bOk = ws.DialogBox("NewStatus", True, True, , , , , GetString("NEWSTATUS"), , True, , True)

    If bOk = True Then
        'grab values from fldConnected and fldNote
        Dim Type As Long
        Dim Note As String

         If "" <> PresenceNote Then
            If GetString("UNAVAILABLE") = g_thisForm.FieldGetText("fldConnected") Then
'вот здесь FieldGetText("fldConnected") возвращает пустую строку
                PresenceType = UNAVAILABLE
            Else
                PresenceType = CONNECTED
            End If
..............................................................

Одно из возможных решений по моему сделать так, чтоб этот филд возвращал int, только не знаю как это делается в Lotus-e. Пробовал даже при возвращении пустой строки перезагрузить эту часть формы и вызвать эту функцию еще раз, но не получился.

уже нет никаких идей ((( Поэтому по'стою здесь (первый раз на каком-либо форуме :P Сказали здесь самый лучший )))

Заранее спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »