你的名字好酷啊.FreeBug,要真FreeBug了我们就轻松了,呵呵
' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
' Author:吴文智
' Date:2001-11-22
'Description:要试用本例请在窗体中填加一个按钮,一个文本框
' 然后在代码窗体中粘贴如下代码
' Good luck!Option Explicit'代码写在MouseMove事件里
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = "鼠标在按钮上"
End Sub
Private Sub Form_Load()
Me.Caption = "鼠标在窗体上"
End SubPrivate Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = "鼠标在文本框上"
End Sub
' Tip:其实很多问题在以前的贴子里都有过很好的解答,我建议大家提问前先搜一下以前的贴子,会节约很多时间的.
'
' Author:吴文智
' Date:2001-11-22
'Description:要试用本例请在窗体中填加一个按钮,一个文本框
' 然后在代码窗体中粘贴如下代码
' Good luck!Option Explicit'代码写在MouseMove事件里
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = "鼠标在按钮上"
End Sub
Private Sub Form_Load()
Me.Caption = "鼠标在窗体上"
End SubPrivate Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Caption = "鼠标在文本框上"
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货