VB实现下鼠标停留在图面上能显示文字方法,
我创建了一个picturebox控件想让鼠标移动到图片上的时候鼠标指针变成一个小手的指针图案之后3秒左右会提示此图的文字说明麻烦请详细说明或者发上来代码越详细越好谢谢先~...
我创建了一个picturebox 控件 想让鼠标移动到图片上的时候鼠标指针变成一个小手的指针图案 之后3秒左右会提示 此图的文字说明
麻烦请详细说明 或者 发上来代码 越详细越好 谢谢先~· 展开
麻烦请详细说明 或者 发上来代码 越详细越好 谢谢先~· 展开
4个回答
展开全部
图片的mouseicon你自定义一个你自己的ico 也就是小手图案的
然后程序里加入这个代码就是 图片的提示
Private Sub Form_Load()
Picture1.ToolTipText = "这里是文字说明"
End Sub
然后程序里加入这个代码就是 图片的提示
Private Sub Form_Load()
Picture1.ToolTipText = "这里是文字说明"
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2009-03-20
展开全部
tooltiptext 属性 设置 提示文本
mouseicon 属性 设置 图形 图形自己找一个icon图标
mousepointer 设置为4
mouseicon 属性 设置 图形 图形自己找一个icon图标
mousepointer 设置为4
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用mousemove函数实现。下面的代码:先添加窗体form2.
private
sub
form_mousemove(button
as
integer,
shift
as
integer,
x
as
single,
y
as
single)
unload
form2
end
sub
private
sub
image1_mousemove(button
as
integer,
shift
as
integer,
x
as
single,
y
as
single)
image1.mousepointer
=
2
form2.left
=
form1.image1.left
+
form1.image1.width
form2.top
=
form1.image1.top
+
form1.image1.height
+
form2.height
form2.show
end
sub
private
sub
form_mousemove(button
as
integer,
shift
as
integer,
x
as
single,
y
as
single)
unload
form2
end
sub
private
sub
image1_mousemove(button
as
integer,
shift
as
integer,
x
as
single,
y
as
single)
image1.mousepointer
=
2
form2.left
=
form1.image1.left
+
form1.image1.width
form2.top
=
form1.image1.top
+
form1.image1.height
+
form2.height
form2.show
end
sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询