VB里用label1控件制作血条的话，如何让

来源：百度知道 编辑：UC知道 时间：2024/05/22 15:02:54
VBl里用label1控件制作血条的话，如何让当鼠标点击在控件上的时候

根据血条的最大值计算出来当前的鼠标点击的值，

并且血条由满血状态到鼠标点击血条上那个位置，

进来看见的

留一思路或者源码都可以

谢谢

类似图片上这样，

郁闷，不能上传图片

窗体上放一个宽度较大的label1，随便放一个label2。就可以验证下面的代码了。

Dim x1 As Single
Dim y1 As Single

Private Sub Form_Load()
Label1.BackColor = vbRed
Label1 = ""
Label2.Height = TextHeight("1")
Label2.Visible = False
End Sub

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

Private Sub Label1_Click()
Label2.Visible = True
Label2.Move Label1.Left + x1, Label1.Top + y1
Label2 = Int(x1 / Label1.Width * 10000) / 100
Label2.Width = TextWidth(Label2)
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub