窗體上 建立 text1

text2

把text2的index 屬性改為0

在程式碼區寫上:

Dim a

Private Sub Form_Load()

Text2(0).Visible = False

End Sub

Private Sub Text1_Change()

For i = 0 To a - 1

If i = 0 Then

Text2(i).Visible = False

Else

Unload Me.Text2(i)

End If

Next i

a = Val(Text1.Text)

For j = 0 To a - 1

If j = 0 Then

Text2(j).Visible = True

Text2(j).Top = Text1.Top + Text1.Height + 100 + Text2(0).Height * (j \ 3)

Text2(j).Left = 100 + Text2(0).Width * (j Mod 3)

Else

Load Me.Text2(j)

Text2(j).Top = Text1.Top + Text1.Height + 100 + Text2(0).Height * (j \ 3)

Text2(j).Left = 100 + Text2(0).Width * (j Mod 3)

Text2(j).Visible = True

End If

Text2(j).Text = "第" & j + 1 & "個text"

Next j

End Sub

執行看看

昨天沒VB ,今天試 了下還可以!

效果 當 文字框裡的數字改變的時候下面就會出現相應多的text 並且命名!

當然 你可以 加個對text1裡輸入的是不是數字的檢驗語句!