vb中鼠标移到label上时字体变大,移开鼠标时字体变回原来大小,然后再点 ...

发布网友发布时间：2024-05-15 16:38

共4个回答

热心网友时间：2024-06-01 00:16

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

热心网友时间：2024-06-01 00:12

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

热心网友时间：2024-06-01 00:13

鼠标移动事件

热心网友时间：2024-06-01 00:17

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

热心网友时间：2024-06-01 00:14

热心网友时间：2024-06-01 00:19

热心网友时间：2024-06-01 00:12

鼠标移动事件

热心网友时间：2024-06-01 00:11

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