Añade un control de tipo ToolTip
Déjalo siempre visible usando la propiedad ShowAlways.
De forma manual en cada elemento que quieras que tenga asociado un texto explicativo, o en el evento Load del formulario, establece con el método SetToolTip, el texto a cada elemento que quieras que el globo muestre al pasar el ratón por encima.
Añade un sintetizador
Create una referencia a la librería System.Speech desde el menú Proyecto e importarlo dentro de la clase de tu interfaz.
Declara un objeto de tipo "SAPI.spvoice" y, con las propiedades volume, rate y speak, tienes que conseguir que cuando el usuario pase el ratón por cualquiera de los elementos de la interfaz, el sintetizador de voz del sistema reproduzca el texto del control activo.
Añade un Casilla de Verificación o Checkbox que funcione como un mute, cuando este presionada no escucharemos el sintetizador, mientras que si no está presionada escucharemos la transcripción de los textos.
Recordad que podéis usar la propiedad Handles para añadir controles al evento que necesitáis, para que cuando el usuario pase el ratón por encima del control, no necesitéis definir uno, diez, quince o veinte eventos que llamen a una función o ejecuten el mismo código.
/*declaracion del audio ayuda*/ Dim audioAyuda = CreateObject("sapi.spvoice") /*boleano para silenciar la autoayuda*/ Private activo As Boolean /*audio ayuda, al pasar por encima leera lo que esta escrito o para que sirve.*/ Private Sub blablabla_MouseEnter(sender As Object, e As EventArgs) Handles blablabla.MouseEnter audioAyuda.speak("Al hacer click oiras aquí lo que has escrito") End Sub Private Sub BtnSilenciar_MouseEnter(sender As Object, e As EventArgs) Handles BtnSilenciar.MouseEnter audioAyuda.speak("Este boton silencia la voz de ayuda") End Sub Private Sub cTexto_MouseEnter(sender As Object, e As EventArgs) Handles cTexto.MouseEnter audioAyuda.speak("Aqui debes introducir el texto") End Sub Private Sub ltitulo_MouseEnter(sender As Object, e As EventArgs) Handles ltitulo.MouseEnter audioAyuda.speak("Sintetizador version 1") End Sub Private Sub lVelocidad_MouseEnter(sender As Object, e As EventArgs) Handles lVelocidad.MouseEnter audioAyuda.speak("Velocidad") End Sub Private Sub lVolumen_MouseEnter(sender As Object, e As EventArgs) Handles lVolumen.MouseEnter audioAyuda.speak("Volumen") End Sub Private Sub TrackVelocidad_MouseEnter(sender As Object, e As EventArgs) Handles TrackVelocidad.MouseEnter audioAyuda.speak("Puedes subir o bajar la velocidad de la voz") End Sub Private Sub TrackVolumen_MouseEnter(sender As Object, e As EventArgs) Handles TrackVolumen.MouseEnter audioAyuda.speak("Puedes subir o bajar el volumen de la voz") End Sub /* fin audio ayuda*/
Puedes descargar el código aquí
0 comentarios:
Publicar un comentario