Global StatusCalled Global CurrentStatusMsg
Sub StatusBarMsg (StatusMsg)
If StatusMsg <> CurrentStatusMsg
Then
Dim ss As Variant
ss = SysCmd(SYSCMD_SETSTATUS,StatusMsg)
StatusCalled = True CurrentStatusMsg
= StatusMsg
End If
End Sub Sub ClearStatusBarMsg ()
If StatusCalled Then
Dim ss As Variant ss = SysCmd(SYSCMD_CLEARSTATUS)
StatusCalled = False CurrentStatusMsg = "
"
End If
End Sub
El siguiente código se debe añadir
al evento mouse move del control sobre el que
deseemos visualizar un mensaje en la barra de
estado:
Sub CmdButton_MouseMove (Button
As Integer, Shift As integer, x As Single, Y As
Single)
StatusBarMsg "Su mensaje personalizado"
End Sub
El siguiente código se debe añadir
al fondo del formulario para que se borre el mensaje
cuando el ratón se mueva fuera del objeto:
Sub Detail0_MouseMove (Button As
Integer, Shift As Integer, X As Single, Y As Single)
ClearStatusBarMsg
End Sub |
+
Microsoft explorer 6.0 
