题目
好心人帮我弄弄这个,看看这个程序哪里错了,怎么改吧~~~谢谢呀
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Type POINTAPI
x As Long
y As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Type POINTAPI
x As Long
y As Long
提问时间:2021-01-27
答案
在最后加一个end Type,如下
Private Type POINTAPI
x As Long
y As Long
End Type
调用坐标的方法如下:
Dim P1 As POINTAPI
GetCursorPos P1
Label1.Caption = CStr(P1.x) & "," & CStr(P1.y)
Private Type POINTAPI
x As Long
y As Long
End Type
调用坐标的方法如下:
Dim P1 As POINTAPI
GetCursorPos P1
Label1.Caption = CStr(P1.x) & "," & CStr(P1.y)
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点
- 1找规律数学填空5 2 0.8 ( ) ( ) 0.128
- 2甲乙两人共有若干本图书,已知甲和图书总数的比是3:7,若乙给甲15本,则两人的图书本数相等.甲乙两人原来各有图书多少本?
- 3光合作用的暗反应在黑暗中能进行吗 如果进行 为什么光照强度为零,光合速率就为零?
- 4一列质量为1乘10的3次方吨的火车以180千米每小时的速度在平直轨道上匀速行驶整列火车受到的阻力是9乘10的3
- 59乘3减1.7X=6.7除50%
- 6根据下列单词划线部分的发音,填写另一词所缺的字母,并译成中文
- 71.用对数形式表示x,并化简:
- 8试证明,不论x为何值时,代数式2x^2-6x+5=0的值总大于零.
- 9把关于x的方程x2-2x+2/x-1=a-1+1/a-1 变形为方程x+1/x=c+1/c的形式是 方程的解是
- 10"明里一把火,暗里一把刀"猜一个成语.答案是什么?