Autor Tema: Crear texto de ayuda  (Leído 413 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 184
Crear texto de ayuda
« en: Abril 20, 2012, 06:41:38 pm »
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:

Código: [Seleccionar]
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á