Visual Basic RichTextBox Maksimum Line

ein und zwanzig24.06.20151 cevap2.322 görüntüleme

2015'den beri1 mesaj

#1
24.06.2015 17:25

RichTextBox ta line sayısını sınırlamak istiyorum. Max.Length i kullandım ancak enter tuşu sorun çıkartıyor.Enter a basınca o satırın geri kalanı length dışında kalıyor bu yüzden de box aşağıya doğru uzuyor ve line sayısı artıyor. Line ı sınırlayacak bir komut ya da fonksiyon bilen var mı?
Şimdiden teşekkürler...

Cevaplar

kolay

2015'den beri22 mesaj

#2
08.07.2015 23:55


Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_GETLINECOUNT = &HBA

Private Sub RichTextBox1_Change()

    Const MAX_LINES = 3 'satır sayısı yaz
    Dim lngCount As Long
    Dim lngLength As Long
    Dim strBuffer As String
    Static strSaveText As String
    
    lngCount = SendMessage(RichTextBox1.hwnd, EM_GETLINECOUNT, 0, 0)
    
    If lngCount = MAX_LINES + 1 Then
        With RichTextBox1
            .Text = strSaveText
            MsgBox "satır sayısı sınırlı!!!azaltın!"
        End With
    End If
    
    strSaveText = RichTextBox1.Text

End Sub

Sanırım işinizi görür.

Cevabını yaz

Cevap yazmak için giriş yap ya da üye ol. Eski forum kullanıcı adın ve parolanla girebilirsin.