Ejemplos usando el Api de windows para Visual basic

8 - Establecer y recuperar la velocidad del cursor

Funciones GetCaretBlinkTime y SetCaretBlinkTime

Este ejemplo es muy simple, y muestra como poder modificar la velocidad del cursor o caret desde visual basic mediante el Api

La funcion GetCaretBlinkTime recupera el valor actual en milisegundos , mientras que el Api SetCaretBlinkTime establece la velocidad

Controles para el Ejemplo

Colocar un TextBox en el formulario. ( La velocidad se establecerá en 50 milisegundos )

Código fuente en un formulario :

Option Explicit 'Api para establecer la velocidad del cursor Private Declare Function SetCaretBlinkTime Lib "user32" ( _ ByVal wMSeconds As Long) As Long 'Api para recuperar la velocidad del cursor o también llamado Caret Private Declare Function GetCaretBlinkTime Lib "user32" () As Long Dim ValAnterior As Long Private Sub Form_Load() 'en esta variable almacenamos el valor de la velocidad del Caret _ para luego poder reestablecerlo. ValAnterior = GetCaretBlinkTime 'Establecemos la velocidad en 50 milisegundos SetCaretBlinkTime CLng(50) End Sub Private Sub Form_Unload(Cancel As Integer) 'reestablecemos el valor al normal cuando descargamos el form SetCaretBlinkTime ValAnterior End Sub

Buscar en Recursos vb