NekroAyuda: Cursor Parpadeante.

[NekroByte]

Me estaba acordando de un ejemplo que vi en MSDN sobre cómo hacer un cursor parpadeante al estilo MS-DOS, Edit. El de la consola actual de Windows les toca desarrollarlo a ustedes.

Lean primero sobre Carets.

Código [Seleccionar] Expandir

Option Explicit

Private Declare Function CreateCaret Lib "user32" _
(ByVal hwnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, _
ByVal nHeight As Long) As Long

Private Declare Function ShowCaret Lib "user32" _
(ByVal hwnd As Long) As Long

Private Sub Text1_GotFocus()
Call CreateCaret(Text1.hwnd, 0, 7, 12)
Call ShowCaret(Text1.hwnd)
End Sub

Hilsener.