好心人帮我弄弄这个,看看这个程序哪里错了,怎么改吧~~~谢谢呀
题目
好心人帮我弄弄这个,看看这个程序哪里错了,怎么改吧~~~谢谢呀
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
答案
在最后加一个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)
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- SO3+H2O→H2SO4中,S的化合价不变,说明了什么?
- Tom有几个外国朋友?翻译英文
- 妈妈到商店买梨,1千克苹果的价钱比1千克梨贵1.2元,梨的单价与苹果的单价比是5:11,
- 用一根60厘米长的铁丝做一个正方体框架,这个正方体的最大棱长是多少厘米?
- 某地有甲、乙两个储粮仓库.甲储粮仓库450吨,乙储粮仓库600吨.现从甲仓库每天调出36吨,从乙仓库每天调出51吨,几天后两仓库剩下的粮食相等?
- 解方程:1.6(2000-x)-18x=3102
- 氨基酸的平均分子质量128,胰岛素的分子质量是5646,由此可推断胰岛素含有肽链和氨基酸的个数依次是
- 设矩阵A=1/2(B+E),则当且仅当B^2=?时,A^2=A.
- 自己的事情自己做 英语
- 既不是质数,又不是合数的整数的倒数是( ) A.0 B.1 C.12
热门考点
- 1个介词练习选择题,
- 填空题
- 其子趋而往视之,苗则槁矣.现代汉语翻译.和非徒无益,而又害之.
- but ever since he moved in,he has had trouble with cars and their owners.
- 如图,在三角形ABC中,D是BC边上的一点,并且∠DAC=∠B,试说明:∠ADC=∠BAC.
- 英语翻译
- 童年里阿廖沙,小茨冈和“好事情”的人物形象每个不少于50字
- 英语里 是 There is an apple and a pear 还是 There are an apple and apear.
- 帮忙解释下以下诗句加点词
- 一个圆柱和一个圆锥高相等,圆柱的底面积是圆锥底面积的4/5.如果圆柱的体积是60cm