Question

vb中鼠标移到label上时字体变大,移开鼠标时字体变回原来大小,然后再点击时才进入另一窗体怎么实现??

Answer 1

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label1.FontSize = 9 Then Label1.FontSize = 14   '鼠标移入字体变大
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Label1.FontSize <> 9 Then Label1.FontSize = 9   '鼠标移出字体还原
End Sub

Private Sub Label1_Click()
Form2.Show    '点击显示Form2窗体
End Sub

追问

谢谢！！！

Answer 2

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontSize = 10 '你希望字体大小
End Sub
Private Sub Form_Click()
Form2.Show '另一窗体打开
Me.Hide '本窗体隐藏
End Sub

追问

可以了 谢谢！！

Answer 3

必须要用TextBox，然后使用ReleaseCapture函数

Answer 4

鼠标移动事件

追答

好吧 这个我也只会移入。。。