窗體上 創建 text1 \x0d\text2 \x0d\把text2的index 屬性改為0\x0d\\x0d\在代碼區寫上:\x0d\Dim a\x0d\Private Sub Form_Load()\x0d\Text2(0).Visible = False\x0d\End Sub\x0d\\x0d\Private Sub Text1_Change()\x0d\For i = 0 To a - 1\x0d\If i = 0 Then\x0d\Text2(i).Visible = False\x0d\Else\x0d\Unload Me.Text2(i)\x0d\End If\x0d\Next i\x0d\a = Val(Text1.Text)\x0d\For j = 0 To a - 1\x0d\If j = 0 Then\x0d\Text2(j).Visible = True\x0d\Text2(j).Top = Text1.Top + Text1.Height + 100 + Text2(0).Height * (j \ 3)\x0d\Text2(j).Left = 100 + Text2(0).Width * (j Mod 3)\x0d\Else\x0d\Load Me.Text2(j)\x0d\Text2(j).Top = Text1.Top + Text1.Height + 100 + Text2(0).Height * (j \ 3)\x0d\Text2(j).Left = 100 + Text2(0).Width * (j Mod 3)\x0d\Text2(j).Visible = True\x0d\End If\x0d\Text2(j).Text = "第" & j + 1 & "個text"\x0d\Next j\x0d\End Sub\x0d\\x0d\運行看看\x0d\昨天沒VB ,今天試 了下還可以!\x0d\\x0d\效果 當 文本框裏的數字改變的時候下面就會出現相應多的text 並且命名!\x0d\當然 妳可以 加個對text1裏輸入的是不是數字的檢驗語句!\x0d\也可以把 text_change 改為 Command1_Click() 來實現按鈕後創建!
上一篇:機票包含哪些費用？下一篇:造夢西遊3邪沙僧怎麽打