你的网页支持VB吗,如果可以的话Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.Caption = (X) Label2.Caption = (Y) End Sub
