我知道这些代码适用于某些计算机(我无法访问它们)。
不幸的是,当我运行此代码时,它没有显示任何窗口。
它只是停止在线上工作: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
答案 0 :(得分:0)
Actualy,问题出现在WczytajRozpiskę.fundial函数......