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:
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
Autor
En línea
