vb One data generates multiple textboxes

On the first floor, your method generates an array of controls that can't respond to events.

Split(a,b,c,d) A is the string to be decomposed, b is what is used as a group, c is how many segments are divided, and d is the comparison method used to distinguish substrings.

a=split(text1,vbcrlf) and then in the array a, a(0) is the first line, a(1) is the second line, and so on. If you want lines 5 through 17, you can use: a=split(text1,vbcrlf)redim preserve a(4 to 16)b=join(a,vbcrlf).

Start by defining array a

dim a()

Here's how to save the data in array A with a space as a delimiter:

a()=split(," ")

Here's how to save the data in array a with a comma as a splitter:

a()=split(,",")

The multiline property of the text box is set to true, and the program is as follows:

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 'Divide the data next

send sub

dim filenumber

filenumber = freefile 'Obtain unused document numbers.

open "c:\" & for output as #filenumber 'Create a file.

print #filenumber, &vbcrlf & 'Output the contents of two text boxes to a file, and so on.

close #filenumber 'Close the file.

The simple way is to open the program with the shell and the parameters set to get focus.

The data is then entered in the form of a send button.

The more advanced and complex ones are to use the API to send messages, and I know that.

Define an array of text boxes.

Assume that the text1(0) text box is already existed.

Use the following actions to dynamically create a text box.

load text1(i)

text1(i).visible=true, then adjust the left, top, and length and height of text1(i), where i is a positive integer, and text1(i) cannot be loaded repeatedly.

Add two buttons to the form: command1, command2, and a text box: text1, and then set the index property of text1 to 0 in the properties window

private sub command1 click() Click to add a text box one at a time.

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() Click to delete one text box at a time.

dim i as long

i = - 1

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

Note: text1(0) is placed on the form at design time and cannot be deleted.

textbox tb = new textbox;

As for deleting, you can delete it directly or hide

open "c:\" for output as #1 'In quotation marks, guess that Lao Liang is the path + file name Suiyun.

print #1， 'text1 is the name of the textbox control.

close(1)

The values in the text box are separated by commas:

dim a() as string

a = split(, ",")

Note that array a is a string type, and if you want to process it further, let's say it's an integer type:

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 is the array you want.

After sorting = join(r, vbcrlf).