Question

我知道这些代码适用于某些计算机（我无法访问它们）。

不幸的是，当我运行此代码时，它没有显示任何窗口。它只是停止在线上工作：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

Answer 1

Actualy，问题出现在WczytajRozpiskę.fundial函数......

脚本以UserDialog结束

1 个答案: