vb 乙個資料生成多個文字框

在一樓，您的方法會生成乙個無法響應事件的控制項陣列。

Split（a，b，c，d） A是要分解的字串，b是用作組的字串，c是劃分的段數，d是用於區分子字串的比較方法。

a=split（text1，vbcrlf） 然後在陣列 a 中，a（0） 是第一行，a（1） 是第二行，依此類推。 如果需要第 5 行到第 17 行，可以使用：a=split（text1，vbcrlf）redim preserve a（4 to 16）b=join（a，vbcrlf）。

首先定義陣列 a

dim a()

以下是使用空格作為分隔符將資料儲存在陣列 A 中的方法：

a()=split(," ")

以下是使用逗號作為拆分器將資料儲存在陣列 a 中的方法：

a()=split(,",")

文字框的 multiline 屬性設定為 true，程式如下：

private sub form_activate()dim a(1 to 5, 1 to 5) as integerdim s as string

randomize

s = ""

for i = 1 to 5

for j = 1 to 5

a(i, j) = int(10 * rnd)s = s & a(i, j) &" "

nexts = s & vbcrlf '接下來劃分資料

send sub

dim filenumber

filenumber = freefile '獲取未使用的文件編號。

open "c:\" & for output as #filenumber '建立檔案。

print #filenumber, &vbcrlf & '將兩個文字框的內容輸出到乙個檔案，依此類推。

close #filenumber '關閉檔案。

簡單的方法是開啟程式，並設定 shell 和引數以獲得焦點。

然後以傳送按鈕的形式輸入資料。

更高階和更複雜的是使用 API 傳送訊息，我知道這一點。

定義文字框陣列。

假定 text1（0） 文字框已存在。

使用以下操作動態建立文字框。

load text1(i)

text1(i).visible=true，然後調整 text1（i） 的左、上、長和高，其中 i 為正整數，text1（i） 不能重複載入。

在窗體中新增兩個按鈕：command1、command2 和乙個文字框：text1，然後在屬性視窗中將 text1 的 index 屬性設定為 0

private sub command1 click（） 單擊可新增乙個文字框，一次新增乙個文字框。

dim i as long

i =load text1(i)

text1(i).visible = truetext1(i).zorder

text1(i).move text1(0).left + text1(0).width * i

end sub

private sub command2 click（） 單擊可一次刪除乙個文字框。

dim i as long

i = - 1

if i > 0 then unload text1(i)end sub

注意：text1（0） 在設計時放置在窗體上，無法刪除。

textbox tb = new textbox;

至於刪除，您可以直接刪除或隱藏

open "c:\" for output as #1 '用引號括起來，猜測老梁是路徑+檔名綏雲。

print #1， 'text1 是 TextBox 控制項的名稱。

close(1)

文字框中的值用逗號分隔：

dim a() as string

a = split(, ",")

請注意，陣列 a 是乙個字串型別，如果你想進一步處理它，假設它是乙個整數型別：

dim a() as string, b() as integer, i, n

a = split(, ",")

n = -1

for i = 0 to ubound(a)if isnumeric(a) then

n = n + 1

redim preserve b(n)

b(n) = a(i)

end if

next i

dim r

r = split(, vbcrlf)

r 是您想要的陣列。

排序後 = join（r， vbcrlf）。