Απ: TextBox multiline

KelMan — Wed, 03 May 2006 02:27:13 GMT

Νομίζω ότι κάπου το είχαμε ξαναπεί... 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...

TextBox multiline

nikos123 — Tue, 02 May 2006 22:54:55 GMT

Γεια σας . Εχω ενα textBox με την ιδιοτητα multiline.

Θέλω ο χρήστης να γράφει κάποιο κείμενο και εγώ να μπορώ να αντιγράψω κάποια γραμμή του κειμένου. Υποτίθεται πως ο χρήστης δεν πατάει enter (new line).Δηλαδή το κείμενο είναι ενιαίο , αλλά εγώ θέλω να μπορώ να πάρω μια γραμμή του textbox, όχι μια γραμμή του κειμένου (γιατί το κείμενο είναι μια γραμμή).

WinForms

Απ: TextBox multiline

TextBox multiline