求教VB高手

2025-04-01 01:49:20

推荐回答（3个）

回答1：

D
msgbox: 显示对话框
input :(未知函数)
output: (未知函数)
inputbox: 数据输入函数，
inputbox(promp[,title][,default][,xpos,ypos][,helpfile,context] 该函数有7个参数！

回答2：

请你详细解释程序是做什么功能的，经调试了一下，程序没什么问题，有可能是控件属性设置有误，比如Timer控件的interval属性不能为零，且Enable属性为True（自动运行），程序本身没有出现问题，请详细解释！

回答3：

Private
Declare
Function
WindowFromPoint
Lib
"user32"
(ByVal
xPoint
As
Long,
ByVal
yPoint
As
Long)
As
Long
Private
Declare
Function
GetCursorPos
Lib
"user32"
(lpPoint
As
POINTAPI)
As
Long
Private
Declare
Function
GetWindowText
Lib
"user32"
Alias
"GetWindowTextA"
(ByVal
hwnd
As
Long,
ByVal
lpString
As
String,
ByVal
cch
As
Long)
As
Long
Dim
a
As
POINTAPI
Dim
b
As
Long
Private
Type
POINTAPI

x
As
Long

y
As
Long
End
Type
Private
Sub
Form_Load()
Dim
aw
As
String
aw
=
Space(255)
GetWindowText
b,
aw,
255
Text1.Text
=
b
End
Sub
Private
Sub
Timer1_Timer()
GetCursorPos
a
b
=
WindowFromPoint(a.x,
a.y)
Me.Caption
=
"当前指针句并："
&
b
End
Sub

这代码当然运行不成功！一看逻辑就不对！首先在Private
Sub
Form_Load()
过程里，是程序加载到内存后就执行的代码，而在这里的变量a,b都是被初始化的。内容是系统分配的随机值，那么在这里GetWindowText
b,
aw,
255的变量b就不是这个text的句柄，当然就得不到标题了！这段代码应该写在timer里！可能还有别的问题，我没有运行代码，但是我上面说的就是首要因素，Private
Sub
Form_Load()
这个只执行一次，而timer是时间间隔循环，当Private
Sub
Form_Load()执行后，再执行timer的代码，这时A，B变量都有了值但已经没有用武之地了！

最新问答

北门社区怎么样？好不好？值不值得买？

电脑上用什么软件看游戏直播？

求推荐一款surface pro用的键盘？

为什么输入法在网页打不上日语关了网页就能打上

汽车在三包内因质量问题到4S店维修所产生的过路费和油费该谁承担?

新创理想城交通方便吗？应该怎么过去？

消防电平面图上B3xD5:n3点位数26代表什么意思？

想问问大家毕业后一定要拿着报到证去报道么

电动汽车的利与弊有哪些？

对方酒驾而且是支线出来报了交警扣了车我能要误工费和精神损失费吗对方会怎样的（只伤了车没伤人）