如何將多行TextBox轉換成ListBox

如何將多行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

如何將DataTable轉換成List

using system using system.collections.generic using system.linq using system.text using system.data using system.collections using system.reflection n...

Linux如何將檔案中的多行轉換成1行

awk預設將記錄分隔符 record separator即rs 設定為 n，此行 將rs設定為eof 檔案結束 也就是把檔案視為乙個記錄，然後通過gsub函式將 n替換成空格，最後輸出。root localhost awk begin filesed預設只按行處理，n可以讓其讀入下一行，再對 n進行...

如何將word轉換成excel格式

說到編輯 大家第一時間想到的應該都是excel格式的，但我們有時也會在其他文件裡發現 內容，這時候我們就需要將其轉換成excel格式方便我們編輯，下面就以word 轉換成excel格式為例，介紹轉換方法。word轉換成excel可以用複製貼上的方法，但今天要跟大家分享的不是這種方法，而是更簡單 效果...