Νομίζω ότι κάπου το είχαμε ξαναπεί... Anyway, ορίστε:
Imports System.Runtime.InteropServices
Public Class Form1
<DllImport("user32.dll")> _
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal wMsg As Int32, _
ByVal wParam As Int32, ByVal lParam As Int32) As Int32
End Function
Public Const EM_LINEINDEX As Int32 = &HBB
Public Const EM_LINELENGTH As Int32 = &HC1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(GetTextOfLine(TextBox1, 4))
End Sub
Private Function GetTextOfLine(ByVal tBox As TextBox, ByVal lineNumber As Integer) As String
Dim startPos As Integer
Dim lineLen As Integer
startPos = SendMessage(TextBox1.Handle, EM_LINEINDEX, lineNumber, 0)
lineLen = SendMessage(TextBox1.Handle, EM_LINELENGTH, startPos, 0)
Return tBox.Text.Substring(startPos, lineLen)
End Function
End Class
Δεν γίνεται χωρίς API call...
Vir prudens non contra ventum mingit