有两种办法 1.在tooltiptext属性中写入提示 2.添加一个statusbar 然后在 Private Sub cmdOk_GotFocus() On Error Resume Next Call StatusBarControl(Screen.ActiveControl.Name) '---------------- End Sub Public Sub StatusBarControl(ByVal strControl As String) '用来在状态条上显示控件名称 MDIForm1.StatusBarMain.Panels("control").Text = strControl End Sub
设置控件解释可以在tooltiptext上增加属性
1.在tooltiptext属性中写入提示
2.添加一个statusbar
然后在
Private Sub cmdOk_GotFocus()
On Error Resume Next
Call StatusBarControl(Screen.ActiveControl.Name)
'----------------
End Sub
Public Sub StatusBarControl(ByVal strControl As String) '用来在状态条上显示控件名称
MDIForm1.StatusBarMain.Panels("control").Text = strControl
End Sub
不然就要设置每个控件的mousemove事件。