我有一个程序要用两个坐标值,而这两个坐标值在不同的电脑上不同。我用两个Text来接收用户提供的坐标值,再把接收到的值赋给变量,代替到程序用的坐标值的位置。但是在调试的时候提示"编译错误,必选参数".这两个调用坐标的函数:
#####################开始###################
Dim FocusValue '记录焦点坐标的变量
Dim ColFoValue '记录取色点坐标的变量
FocusValue = Val(Text5.Text)'接收坐标值并赋值到变量
ColFoValue = Val(Text6.Text)'接收坐标值并赋值到变量
SetCursorPos FocusValue '把焦点定在指定的位置(报错,提示"必选参数")
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
h = GetDC(0) '取得整个屏幕的DC
Colr = GetPixel(h, ColFoValue) '取指定坐标的颜色(报错提示"必选参数")
ReleaseDC 0, hdc '释放hDC
###################结束####################
因为这两个坐标值是变化的,需要通过填Text才能确定具体是多少,不能定成具体的常量数据.但是用变量又会报错,怎么办呢?
如果SetCursorPos FocusValue
Colr = GetPixel(h, ColFoValue)
中的FocusValue和ColFoValue改成具体的坐标如100, 200就能通过测试了...但是又不符合要求了
不行呃...还是提示“必选参数”
唉...改了后还是提示“必选参数”
|