51Testing软件测试论坛

标题: 求教斑竹及各位！！关于定制对话框--望指引一下吧！ [打印本页]

作者: 村上舞!舞!舞 时间: 2006-3-5 21:05
标题: 求教斑竹及各位！！关于定制对话框--望指引一下吧！
在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 编辑 ]

作者: 村上舞!舞!舞 时间: 2006-3-6 10:20
请问有人可以帮一下吗？？？望版主发表一下看法吧

作者: ilovejolly 时间: 2006-3-6 11:37
把输入做成全局变量，在上面的脚本和你要验证的脚本用全局变量代替写死的值。

作者: pcl2004_27 时间: 2006-3-7 19:57
根据你的代码写的
Dim mydialog as UserDialog
dim sText as string
On Error Resume Next
Dialog mydialog
sText = mydialog.TextBox4

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)