VB 自己做提示文本

来源：百度知道 编辑：UC知道 时间：2024/06/03 08:07:54
都知道tooltiptext这个属性吧,放在label1上就会出现文字提示.

我现在要自己做个...
玩过网络游戏的都知道,把鼠标放在装备或物品上会出现一个窗口,上面显示装备属性什么的,我就要那种效果,不过我是要在VB里实现.

效果样子:http://content.52pk.com/files/allimg/080714/1342293.jpg

大概内容如下:
鼠标放在标签label上后,鼠标右测或左测显示一个窗口,窗口里显示一些内容,至于左面还是右面显示,这个要求可以自定义,这个提示窗口要求可以变更背景颜色.

回答满意+50

'创建label1,label2
Private Sub Form_Load()
Label2.BackColor = vbRed '设置背景颜色
Label2.Caption = "内容可以随便写"
Label2.Visible = False
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.Visible = True
a = X + Label1.Left '控制label2的左右位置
b = Y + Label1.Top '控制label1的上下位置
Label2.Move a, b
End Sub

'本代码采用在窗口内部显示提示文本的办法，代码短小，可扩展性强，运行效率较高。
'在窗体内加入控件label1,label2及picture1，然后复制下面代码，运行，分别把鼠标移到label1或label2会有不同的显示效果。

Option Explicit

Private Sub Form_Load()
Picture1.Visible = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Visible = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub

'函数名称：subShow，显示提示文本
'参数：ControlName 鼠标对准的控件名,,Align窗口显示方向(0向左，1向右),BackC