51Testing软件测试论坛

标题: 请版主帮忙看一下 [打印本页]

作者: ctrl01    时间: 2006-3-23 16:55
标题: 请版主帮忙看一下
我要得到的结果是,从下拉选择中选择哪一种,就相应的执行哪个脚本。
具休如下:

Dim cchoices as String
   Dim answer as string
   cchoices="第一种"+Chr$(9)+"第二种"
    Begin Dialog UserDialog 180, 95, "选择对话框"
       ButtonGroup .ButtonGroup1
       Text  9, 3, 69, 13, "请选择:", .Text1
       ComboBox  9, 17, 111, 41, cchoices, .ComboBox1
       OKButton  131, 8, 42, 13
       CancelButton  131, 27, 42, 13
       PushButton 132, 48, 42, 13, "Help", .Push1
    End Dialog
   Dim mydialogbox As UserDialog
   answer=mydialogbox.combobox1‘-------------是不是这样写是错的??????
   Select Case answer
      Case "第一种"
         MsgBox "你选择的是"&str(answer)
      Case "第二种"
         MsgBox "你选择的是"&str(answer)

   End Select

请各位前辈指教。。并帮忙修改下。。谢谢!!!
作者: qjwxsd    时间: 2006-3-23 17:55
标题: 不是已经回过了吗?
速度这么慢?
作者: 村上舞!舞!舞    时间: 2006-3-23 19:21
sdlkfj

[ 本帖最后由 村上舞!舞!舞 于 2006-3-23 19:29 编辑 ]
作者: ctrl01    时间: 2006-3-24 08:29
标题: 哈哈。。有看到了。
哈哈。。有看到了。





欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2