dotNETportal.cz

1.

Chtěl bych po řádcích načítat text v TextBox tento následně progarmově zpracovat a výsledek uložit (po řádcích) v jiném TextBoxu. Poradí mi někdo kod pro načítání po řádcích?

2.

K tlačítku CommandButton mám přiřazen kod:

MsgBox "Počet řádků v prvku Text1: " & SendMessage(Text1.hWnd, EM_GETLINECOUNT, 0, 0)

Po stisknutí tlačítka chybová hláška:

Sub or Function not defined.

Jaká je správná deklarace pro výše uvedený kod:

Jak se spouští funkce API Send Message se zprávou EM_GETLINECOUNT

ve VB5 ?

Děkuji za radu.

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const EM_GETLINECOUNT = &HBA

co tak použít nějaký ApiViewer

Kompletní kód

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const EM_LINEINDEX = &HBB
Public Const EM_GETLINECOUNT = &HBA
Public Const EM_GETLINE = &HC4
Public Const EM_LINELENGTH = &HC1

Public Sub CtiText(ByRef TextBox As Object)
    Dim I As Integer, xPocet as Integer, xTabul() as String
    xPocet = SendMessage(TextBox.hwnd, EM_GETLINECOUNT, 0, 0)
    ReDim xTabul(xPocet)
    For I = 1 To SendMessage(TextBox.hwnd, EM_GETLINECOUNT, 0, 0)
        SendMessage TextBox.hwnd, EM_LINEINDEX, I - 1, 0
        xTabul(I) = CtiTextGetline(I - 1, TextBox.hwnd)
    Next I
End Sub

Private Function CtiTextGetline(ByVal iLine As Long, ByVal lHwnd As Long) As String
    Dim bLine() As Byte, lngLen As Long
    lngLen = SendMessage(lHwnd, EM_LINELENGTH, SendMessage(lHwnd, _
             EM_LINEINDEX, iLine, 0), 0)
    ReDim bLine(lngLen + 1)
    bLine(0) = lngLen And 255
    bLine(1) = lngLen \ 256
    SendMessage lHwnd, EM_GETLINE, iLine, bLine(0)
    CtiTextGetline = Left(StrConv(bLine, vbUnicode), lngLen)
End Function

Jsem začátečník.

Mohl byste mi prosím poradit jak přiřadit kód ovládacím prvkům ?

Chtěl bych na stiknutí tlačítka načíst řádek v prvním TextBox, vlastním kódem jej zpracovat a výsledek ulužit do druhého TextBox. A to na jedno stisknutí pro všechny řádky.

Děkuji za köd.