Imprimir Página - NekroAyuda: Cursor Parpadeante.

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

Hilsener.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: NekroByte en 30 Junio 2005, 05:56 am