51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

查看: 4269|回复: 9

[Robot] 在编写Robot GUI脚本时,发现SQABasic里不支持AddressOf运算符

[复制链接]

该用户从未签到

发表于 2004-6-30 16:14:54 | 显示全部楼层 |阅读模式
不知道大侠们知不知道这个问题如何解决呢?

该用户从未签到

 楼主| 发表于 2004-7-5 13:38:52 | 显示全部楼层

看来大家没有用到这个东东

龙哥,今天MSN没法登录,在这里给你问个好
回复 支持 反对

使用道具 举报

该用户从未签到

 楼主| 发表于 2004-7-5 15:00:47 | 显示全部楼层

其实不止AddressOf用不了

VB里的常量也用不了,如 vbNullString

大家给个解决的办法吧
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2004-7-7 13:17:04 | 显示全部楼层
对于addressof我还没有找到好的方法解决
  
  对于常量的使用,你把下边的封装成sbh直接使用就可以了

   
Global Const vbBack         As String = "\b"
Global Const vbCr           As String = "\r"
Global Const vbCrLf         As String = "\n\r"
Global Const vbFormFeed     As String = "\f"
Global Const vbLf           As String = "\n"
Global Const vbNewLine      As String = "\n"
Global Const vbNullChar     As String = "\0"
Global Const vbNullString   As String = ""
Global Const vbTab          As String = "\t"
Global Const vbVerticalTab  As String = "\v"


Global Const vbObjectError   = -2147221504


Global Const vbAlias            = 64
Global Const vbArchive          = 32
Global Const vbDirectory        = 16
Global Const vbHidden           = 2
Global Const vbNormal           = 0
Global Const vbReadOnly         = 1
Global Const vbSystem           = 4
Global Const vbVolume           = 8


Global Const vbBinaryCompare    = 0
Global Const vbDatabaseCompare  = 2
Global Const vbTextCompare      = 1


Global Const vbHide             = 0
Global Const vbMaximizedFocus   = 3
Global Const vbMinimizedFocus   = 2
Global Const vbMinimizedNoFocus = 6
Global Const vbNormalFocus      = 1
Global Const vbNormalNoFocus    = 4

Global Const vbAbort    = 3
Global Const vbCancel   = 2
Global Const vbIgnore   = 5
Global Const vbNo       = 7
Global Const vbOK       = 1
Global Const vbRetry    = 4
Global Const vbYes      = 6


Global Const vbAbortRetryIgnore     = 2
Global Const vbApplicationModal     = 0
Global Const vbCritical             = 16
Global Const vbDefaultButton1       = 0
Global Const vbDefaultButton2       = 256
Global Const vbDefaultButton3       = 512
Global Const vbDefaultButton4       = 768
Global Const vbDot                  = 46
Global Const vbExclamation          = 48
Global Const vbInformation          = 64
Global Const vbMsgBoxHelpButton     = 16384
Global Const vbMsgBoxRight          = 524288
Global Const vbMsgBoxRtlReading     = 1048576
Global Const vbMsgBoxSetForeground  = 65536
Global Const vbOKCancel             = 1
Global Const vbOKOnly               = 0
Global Const vbQuestion             = 32
Global Const vbRetryCancel          = 5
Global Const vbSystemModal          = 4096
Global Const vbYesNo                = 4
Global Const vbYesNoCancel          = 3


Global Const ForAppending       = 8
Global Const ForReading         = 1
Global Const ForWriting         = 2


Global Const vbFalse          = 0
Global Const vbTrue           = -1
Global Const vbUseDefault     = -2


Global Const vbArray            = 8192
Global Const vbBoolean          = 11
Global Const vbByte             = 17
Global Const vbCurrency         = 6
Global Const vbDataObject       = 13
Global Const vbDate             = 7
Global Const vbDecimal          = 14
Global Const vbDouble           = 5
Global Const vbEmpty            = 0
Global Const vbError            = 10
Global Const vbInteger          = 2
Global Const vbLong             = 3
Global Const vbNull             = 1
Global Const vbObject           = 9
Global Const vbSingle           = 4
Global Const vbString           = 8
Global Const vbUserDefinedType = 36
Global Const vbVariant          = 12


Global Const vbMenuBar              = &H80000004&   'Menu Bar
Global Const vbMenuText             = &H80000007&   'Menu Text
Global Const vbScrollBars           = &H80000000&   'Scroll Bars
Global Const vbWindowBackground     = &H80000005&   'Window Background
Global Const vbWindowFrame          = &H80000006&   'Window Frame
Global Const vbWindowText           = &H80000008&   'Window Text
Global Const vbActiveBorder         = &H8000000A&   'Active Border
Global Const vbActiveTitleBar       = &H80000002&   'Active Title Bar
Global Const vbTitleBarText         = &H80000009&   'Active Title Bar Text
Global Const vbApplicationWorkspace = &H8000000C&   'Application Workspace
Global Const vbButtonFace           = &H8000000F&   'Button Face
Global Const vb3DHighlight          = &H80000014&   'Button Highlight
Global Const vb3DDKShadow           = &H80000010&   'Button Shadow
Global Const vbButtonText           = &H80000012&   'Button Text
Global Const vbDesktop              = &H80000001&   'Desktop
Global Const vbGrayText             = &H80000011&   'Disabled Text
Global Const vbHighlight            = &H8000000D&   'Highlight
Global Const vbHighlightText        = &H8000000E&   'Highlighted Text
Global Const vbInactiveBorder       = &H8000000B&   'Inactive Border
Global Const vbInactiveTitleBar     = &H80000003&   'Inactive Title Bar
Global Const vbInactiveCaptionText  = &H80000013&   'Inactive Title Bar Text
回复 支持 反对

使用道具 举报

该用户从未签到

 楼主| 发表于 2004-7-7 15:53:43 | 显示全部楼层

龙哥,vbNullString你从哪儿得到的?

龙哥,vbNullString你从哪儿得到的?

我觉得肯定不是 "" ,因为 "" 是empty string(占有6个字节的空字符串)
而 vbNullString 应该是 null String(等同于C里面的NULL,也就是0)

两者有区别的,并且我在使用时的确发现它们的区别了

所以说 在使用时不知道用什么来代替 vbNullString,用 "" 没有语法的错误,但得不到需要的结果,用 0 语法上就通不过
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2004-7-8 09:02:43 | 显示全部楼层
告诉你以上const得到的方法:
  跟踪调试

   Dim i As Integer
   i = vbArray


  i = 8192

  对于vuNullString我明白你的意思

  不过这里我们是利用它传递参数,就没有必要研究它的真实含义!
回复 支持 反对

使用道具 举报

该用户从未签到

 楼主| 发表于 2004-7-8 10:27:50 | 显示全部楼层
不会所有的都是你通过 “跟踪调试” 得到的吧??

其实MSDN上都有,我只是关心你是如何得到 vbNullString 的。

MSDN上的解释是:
vbNullString 值为 0 的字符串 与零长度字符串 ("") 不同;用于调用外部过程

呵呵,我也不想研究它的真正含义,但我要用一个准确的值来定义这个常量呀:s
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2004-7-11 09:07:56 | 显示全部楼层
上边的常量我是在网上找到的!
  对于提到的跟踪调试的方法,只是想告诉大家这些值如何得到,如果碰到上面没有的一些常量,可以如何得到。

   对于VBNULLSTRING,还需要在探讨!
回复 支持 反对

使用道具 举报

该用户从未签到

 楼主| 发表于 2004-7-12 16:11:50 | 显示全部楼层

公司把MSN封了

公司把MSN封了

郁闷~~
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2004-7-29 13:29:05 | 显示全部楼层

MSN:

用通通通,应该还是可以上的。呵呵。
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-3-28 22:36 , Processed in 0.070897 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表