Palabras clave: mostrar, ayuda, control
Autor: Búho
Extraído de: La web del Búho
Objetivo
Mostrar ayuda en un campo de texto aprovechando el ControlTipText
En el evento Timer del formulario, pon este codigo:
Private Sub Form_Timer()
On Error Resume Next
Dim Micontrol As Control
Set Micontrol = Screen.ActiveControl
Me.TxtAyuda =NZ(Micontrol.ControlTipText,"")
End Sub
En el TxtAyuda independiente, se te mostrará lo que hayas escrito en la propiedad ControlTipText de los controles que mencionas. Puedes poner un intervalo al cronometro de 100, por ejemplo.
Ese codigo se podría perfeccionar mucho mas, excluyendo tipos de control que no sean cuadros de texto, por ejemplo. Pero tal cual esta, funcionará
