Programación General > Visual Basic 6.0 e inferiores

 Sobre Un Famoso Notepad

<< < (2/2)

Brroz:
Hola Jamaicol.

Prueba con algo así:


--- Código: Text --- Option Explicit Private Declare Function SendMessage Lib &#34;user32&#34; Alias &#34;SendMessageA&#34; (ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 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&)    If l1 &#62; -1 Then        LargoLinea = SendMessage(Hwnd, EM_LINELENGTH, l1, 0&)    Else        LargoLinea = 0    End IfEnd Function Private Sub Text1_Click()    debug.print RowColEnd Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)    debug.print RowColEnd Sub Private Function RowCol() As String    Dim lRow As Long, lLen As Long    Dim lStart As Long, lPos As Long    lStart = Text1.SelStart    lPos = InStr(1, Text1.Text, vbCrLf)    While lPos &#60; Text1.SelStart And lPos &#62; 0        lStart = lStart - 2        lPos = InStr(lPos + 1, Text1.Text, vbCrLf)    Wend    lPos = 0    Do        lLen = LargoLinea(Text1.Hwnd, lRow)        lRow = lRow + 1        If lStart &#62; lLen Then            lStart = lStart - lLen        Else            If Text1.SelStart &#62; 2 Then                If Mid(Text1.Text, Text1.SelStart - 1, 2) = vbCrLf Then                    lStart = 0                    lRow = lRow + 1                End If            End If            If lStart = lLen And Text1.SelStart &#60; Len(Text1.Text) - 1 Then                If Mid(Text1.Text, Text1.SelStart + 1, 2) &#60;&#62; vbCrLf Then                    lStart = 0                    lRow = lRow + 1                End If            End If            lStart = lStart + 1            Exit Do        End If    Loop    RowCol = &#34;Fila &#34; & lRow & &#34; , columna &#34; & lStartEnd Function  
Está sin optimizar y el caso de los comienzos y finales de las líneas está tratado un poco chafalleiramente...

Fíjate en este caso en el que no funciona bien:
En una línea que no termina en retorno de carro + nueva línea, si te mueves al final de línea con el cursor o escribiendo no hay problema, ya que el propio control pasará a la línea siguiente, pero si vas al final con la tecla <Fin> o haciendo click con el ratón, el cursor no salta a la siguiente línea, pero la funcion sí...

Haber si tu lo arreglas, porque yo un sábado que tengo que currar no estoy para gran cosa...

Suerte.

Navegación

[0] Índice de Mensajes

[*] Página Anterior