none
ver a posição do cursor num textbox RRS feed

  • Pergunta

  • tem como ver qual linha o cursor está num textbox?
    consigo retornar o numero total de linhas usando:

    MsgBox(txt_linhas.Lines.GetLength(0))

    vlw;


    terça-feira, 10 de junho de 2008 17:23

Respostas

  • Tente este exemplo utilizando API's

     

    Code Snippet

    <System.Runtime.InteropServices.DllImport("user32")> _

    Shared Function SendMessage(ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

    End Function

     

    Function GetTextBoxCurrentLine(ByVal tb As TextBox) As Integer

       Const EM_LINEFROMCHAR As Integer = &HC9

       Return SendMessage(tb.Handle.ToInt32(), EM_LINEFROMCHAR, -1, 0) + 1

    End Function

     

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       MessageBox.Show(GetTextBoxCurrentLine(TextBox1))

    End Sub

     

     

    terça-feira, 10 de junho de 2008 22:38

Todas as Respostas

  • Tente este exemplo utilizando API's

     

    Code Snippet

    <System.Runtime.InteropServices.DllImport("user32")> _

    Shared Function SendMessage(ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

    End Function

     

    Function GetTextBoxCurrentLine(ByVal tb As TextBox) As Integer

       Const EM_LINEFROMCHAR As Integer = &HC9

       Return SendMessage(tb.Handle.ToInt32(), EM_LINEFROMCHAR, -1, 0) + 1

    End Function

     

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       MessageBox.Show(GetTextBoxCurrentLine(TextBox1))

    End Sub

     

     

    terça-feira, 10 de junho de 2008 22:38
  • blza cara, vlw a dica.
    Aproveitando, tem como fazer o contrário? mandar o cursor ir para uma linha x?

    vlw.
    quarta-feira, 11 de junho de 2008 13:18