Programación General > Visual Basic 6.0 e inferiores
Sobre Un Famoso Notepad
Jamaicol:
Estoy haciendo un notepad y no se como meterle mano a eso identificar dentro
de mi cuadro de texto las filas y las columnas para poner en el estatusbar. Por supuesto necesito tambien el tratamiento para el raton, para que cuando hagan click no se me pierda y ahi es donde esta realmente mi duda si alguien pudiese explicarmelo se lo agradeceria :hola:
Brroz:
Hola Jamaicol.
Puedes usar la funcion del api SendMessage tal que así:
--- Código: Text --- Option Explicit Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Sub Command1_Click() MsgBox "El TextBox 'text1' tiene " _ & CuentaLineas(Text1.Hwnd) & " línea(s)." _ & "El lago de la línea 3 es " _ & LargoLinea(Text1.Hwnd, 2) & "." ' fíjate que el indice para el número de línea comienza en 0.End Sub Private Function CuentaLineas(ByVal Hwnd As Long) As Long Const EM_GETLINECOUNT = &HBA CuentaLineas = SendMessage(Hwnd, EM_GETLINECOUNT, 0&, 0&)End Function Private Function LargoLinea(ByVal Hwnd As Long, ByVal Linea As Long) As Long Const EM_LINEINDEX = &HBB Const EM_LINELENGTH = &HC1 Dim l1 As Long l1 = SendMessage(Hwnd, EM_LINEINDEX, Linea, 0&) LargoLinea = SendMessage(Hwnd, EM_LINELENGTH, l1, 0&)End Function
Respecto a lo que dices del ratón... no sé a qué te refieres.
Chao.
Jamaicol:
Brroz Eres el amo pero al problema al que me refiero es que yo cojo el raton y haciendo click me posiciono en cualquier parte del texto, y claro, luego se me descentra
todas las cuentas que estoy haciendo es decir que la columna no concuerda ni la fila, y a partir de ahi descontrol total
Brroz:
Hola.
Para saber en qué posición del textbox se encuentra el cursor utiliza la propiedad SelStart del textbox en el evento click del mismo.
Ten en cuenta que algunas de las líneas acabarán con dos carácteres adicionales (Cr + Lf), serán aquellas en las que el usuario ha pulsado intro para saltar a una nueva línea. Las líneas que se inicien nuevas porque el texto ha llegado al extremo del textbox no incluyen estos caracteres...
Si no se te da y tengo tiempo (que cada vez menos) más adelante te echo un cable...
Suerte.
Jamaicol:
Lo siento pero soy torpon ya lo he asumido, no he logrado que esa funcion que me has dicho cuente pero lo que no hace es distincion entre lineas, no entienco muy bien eso de (Cr + Lf), vamo que no me suena y no he encotrao na sobre ello si puedieses pasarme algo te lo agradeceria, (te apuntaria una caña mas a la cuenta).
Navegación
[#] Página Siguiente
Ir a la versión completa