第1个回答 2008-06-21
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = RGB(0, 0, 0)
End Sub
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = RGB(27, 18, 221)
End Sub
'紫色RGB值不清楚,随便弄个接近的
第2个回答 2008-06-21
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = RGB(200, 200, 200)
End Sub
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = RGB(200, 80, 80)
End Sub