腳本在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上結束

回答

相關問題