Καλώς ορίσατε στο dotNETZone.gr - Σύνδεση | Εγγραφή | Βοήθεια
σε

 

Αρχική σελίδα Ιστολόγια Συζητήσεις Εκθέσεις Φωτογραφιών Αρχειοθήκες

TextBox multiline

Îåêßíçóå áðü ôï ìÝëïò nikos123. Τελευταία δημοσίευση από το μέλος KelMan στις 02-05-2006, 19:27. Υπάρχουν 1 απαντήσεις.
Ταξινόμηση Δημοσιεύσεων: Προηγούμενο Επόμενο
  •  02-05-2006, 15:54 12260

    TextBox multiline

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

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

  •  02-05-2006, 19:27 12264 σε απάντηση της 12260

    Απ: TextBox multiline

    Νομίζω ότι κάπου το είχαμε ξαναπεί... 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
Προβολή Τροφοδοσίας RSS με μορφή XML
Με χρήση του Community Server (Commercial Edition), από την Telligent Systems