스크립트가 UserDialog에서 끝납니다

이 코드는 일부 컴퓨터에서 작동한다는 것을 알고 있습니다 (액세스 권한이 없습니다).스크립트가 UserDialog에서 끝납니다

불행히도이 코드를 실행하면 어떤 창이 표시되지 않습니다. 그냥 줄에서 작동을 멈추십시오 : wynik = WordBasic.Dialog.UserDialog(wybor).

스크립트가 끝나는 것 같습니다. 누가 잘못되었는지 말해 줄 수 있니?

WordBasic.BeginDialog 350, 208, "Otwórz aktualizację", "WczytajRozpiskę.fundial" 
    WordBasic.ListBox 12, 20, 100, 180, Tomy__$(), "Tomy" 
    WordBasic.ListBox 139, 20, 100, 180, Aktual__$(), "Aktual" 
    WordBasic.Text 12, 5, 39, 13, "Tom:", "Teks1" 
    WordBasic.Text 139, 5, 99, 13, "Aktualizacja:", "Teks2" 
    WordBasic.OKButton 249, 149, 88, 21 
    WordBasic.CancelButton 249, 179, 88, 21 
    If red$ = "1" Then WordBasic.PushButton 252, 19, 88, 21, "Zest.", "Wcis1" 
WordBasic.EndDialog 

Dim wybor As Object 
Set wybor = WordBasic.CurValues.UserDialog 
WordBasic.DisableInput 1 
wynik = WordBasic.Dialog.UserDialog(wybor) 
WordBasic.DisableInput 0

출처

2012-01-26 aurel

Actualy, 문제 ...

WczytajRozpiskę.fundial 기능이었다

출처

2012-01-28 17:30:54 aurel

스크립트가 UserDialog에서 끝납니다

답변

관련 문제