窗体上添加2个标签,1个Timer你那个Label1适当大一点?代码如下:Option ExplicitPrivate LL As StringPrivate n As DoublePrivate YesNo As BooleanPrivate Sub Form_Load()LL = "3"Timer1.Interval = 1Timer1.Enabled = FalseEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If YesNo Then Lab...
显示隐藏可以用以下代码:Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1.ForeColor = Form1.BackColorEnd Sub Private Sub Label1_MouseM...