Keskustelu: Koodit: VB6: RichtextBox: rivinumero

' näyttää: menossa oleva rivi/rivejä esim 3/7
texti=CStr(RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) + 1) + " / " + CStr(GetLineCount(RichTextBox1.hwnd))

'näyttää fontin nimen ja koon
text=RichTextBox1.SelFontName & " size " & RichTextBox1.SelFontSize

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

' lngHWnd : TextBox/RichTextBox
Function GetLineCount(ByVal lngHwnd As Long) As Long
    GetLineCount = SendMessage(lngHwnd, EM_GETLINECOUNT, 0, 0)
End Function