学步园

如何将多行TextBox转换成ListBox

老怪答：

本题解法重点在 TextBox 里的断行，必须由 Chr(13)+Chr(10) 两字组合起来执行，所以应以 Chr(13) 为切割判断点：

Dim AllString As String
Dim SingleString As String
Dim SepString As String
Dim I As Long
    AllString = Text1.Text

    For I = 1 To Len(AllString)
        SingleString = Mid(AllString, I, 1)
        If SingleString = Chr(13) Then
            '遇到 Chr(13) 则把分割字符串加到 ListBox 里
            List1.AddItem SepString
            SepString = ""
        Else
            If SingleString <> Chr(10) Then
                '除 Chr(10) 外逐字加入 SepString 中
                SepString = SepString + SingleString
            End If
        End If
    Next
    '加入最后一个 SepString
    List1.AddItem SepString

CWW 来函意见：

拆解多行 TextBox 这限制在MultiLine而且有Keyin Enter来换行的TextBox，如果MultiLine之下一直KeyIn不换行，到了TextBox最右
边后，再Keyin的字会折下来，变成另一行，这方式解决不了，请查一下
htmapi101.htm的做法。

取得TextBox 某一行的字串
來源:cww

這是使用EM_GETLINE message來做，比較奇特的是lParam是指向一個字串所在的位置，
但是該字串傳入時，前兩個Byte要存該字串允許的最大長度。

'以下在Form需一個TextBox，並設定MultiLine = True, 一個Command Button
Private Sub Command1_Click()
Dim str5 As String
str5 = GetaLine(Text1,1)  '取得第二行的字串，以0為基底
End Sub

'以下在.Bas
Option Explicit
 Const EM_GETLINE = &HC4
 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 Function GetaLine(Text1 As TextBox, ByVal ntx As Long) As String
 Dim str5(255) As Byte '如果您的字串 > 255 byte請自行增加該Byte Array
 Dim str6 As String, i As Long

 str5(0) = 255 '字串的前兩個Byte存該字串的最大長度
 str5(0) = 255
 i = SendMessage(Text1.hwnd, EM_GETLINE, ntx, str5(0))
 If i = 0 Then
    GetaLine = ""
 Else
    str6 = StrConv(str5, vbUnicode)
    GetaLine = Left(str6, InStr(1, str6, Chr(0)) - 1)
 End If
 End Function