Saludos a todos
dias atras mande un mensaje en el que pedia informacion sobre como podia
obtener informacion la fila y la columna de la situacion del cursor sobre un
control text box. Bien, pues despues de romperme el coco, hice este codigo,
que mando por si a alguien le sirve. Aunque tiene un fallo que luego
planteo:

----------------------------------------------------------------------------
----

'Declaración del API de 32 bits definido en un modulo
Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd
As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Long) As Long

----------------------------------------------------------------------------
----


Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim cont As Integer
Dim aux As Integer
Dim col As Integer
Dim totallineas As Integer
Dim lineaactual As Integer
Dim x As Integer
Dim l1, l2 As Integer

Const WM_USER = 1024
Const EM_GETLINECOUNT = WM_USER + 10
Const EM_LINEFROMCHAR = WM_USER + 25
Const EM_LINEINDEX = &HBB 'Posición del primer caracter de la fila
actual
Const EM_LINELENGTH = &HC1 'Longitud de una fila
totallineas = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, 0&)
lineaactual = SendMessage(Text1.hwnd, EM_LINEFROMCHAR, -1, 0&) + 1 'contiene
la fila actual

For x = 0 To lineaactual - 2 'este -for- sirve para contar los caracteres
desde el principio, hasta la linea anterior donde esta situado el cursor
    l1 = SendMessage(Text1.hwnd, EM_LINEINDEX, x, 0&) + 1
    l2 = SendMessage(Text1.hwnd, EM_LINELENGTH, l1, 0&)
    cont = cont + l2
Next
 aux = Text1.SelStart - ((lineaactual - 1) * 2)

col = (aux - cont) + 1 'contiene la diferencia entre el total de caracteres
hasta el cursor y el total de caracteres hasta la linea anterior, quedando
los caracteres que hay en la fila actual, hasta el cursor.

Text2.Text = "fil " & lineaactual & " / " & "col " & col 'linea que muestra
la fila y la columna
End Sub

Bien, pues mi problema ahora está el la tecla . Cuando la pulso no
cuenta los caracteres que ha avanzado, y lo que se me ocurre es
desactivarla, ¿pero como?
mi pregunta es ¿como puedo hacer que la tecla no funcione sobre un
text box?
gracias a todos y perdon por la extension
(espero que el codigo sirva de algo a alguien (además de a mi))
synetic@infase.es