Ulozeni MultiLine Textboxu do .ini – Visual Basic – Fórum – Programujte.com

Potřeboval bych poradit jak uložit více řádků z textboxu do .ini nebo do jinýho souboru
protože jediný problém je to že: první řádek to uloží ale druhy už ne
díky za odpověd

Pokud je to pro VB6, tak následovně

Dim T as String
For I = 1 To SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, 0)
SendMessage Text1.hwnd, EM_LINEINDEX, I - 1, 0
T = Getline(I - 1, Text1.hwnd) 'uložit obsah proměnné T
Next I

Public Function Getline(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)
Getline = Left(StrConv(bLine, vbUnicode), lngLen)
End Function

potřebné deklarace

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
Public Const EM_LINEINDEX = &HBB
Public Const EM_LINELENGTH = &HC1
Public Const EM_GETLINE = &HC4