求教斑竹及各位！！关于定制对话框--望指引一下吧！

村上舞!舞!舞

在ROBOT中定制了一个对话框：
Sub main
   Begin Dialog UserDialog 194, 76, "SQABasic Dialog Box"
      GroupBox  9, 8, 97, 57, "File Range"
      OptionGroup .OptionGroup2
         OptionButton  19, 16, 46, 12, "All pages", .OptionButton3
         OptionButton  19, 32, 67, 8, "Range of pages", .OptionButton4
      Text  25, 43, 20, 10, "From:", .Text6
      Text  63, 43, 14, 9, "To:", .Text7
      TextBox  79, 43, 13, 12, .TextBox4            ---------------------------输入框
      TextBox  47, 43, 12, 11, .TextBox5
      OKButton  135, 6, 54, 14
      CancelButton  135, 26, 54, 14
   End Dialog
   Dim mydialog as UserDialog
   On Error Resume Next
   Dialog mydialog
   DlgText DlgControlID ("TextBox4"),("1")
   If Err=102 then
      MsgBox "Dialog box canceled."
   End If
End Sub


我遇到的问题是运行之后就会有一个对话框出现，其中有两个输入框，如果运行后自己在输入框里
输入一个值，怎样能够在脚本里得到我自己在这两个输入框里输入的值??

[ 本帖最后由 村上舞!舞!舞 于 2006-3-6 08:50 编辑 ]

村上舞!舞!舞

请问有人可以帮一下吗？？？望版主发表一下看法吧

ilovejolly

把输入做成全局变量，在上面的脚本和你要验证的脚本用全局变量代替写死的值。

pcl2004_27

根据你的代码 写的
   Dim mydialog as UserDialog
   dim sText as string
   On Error Resume Next
    Dialog mydialog
   sText = mydialog.TextBox4