vb 如何動態建立 TextBox 並撤消 TextBox

option explicit

dim x as control

private sub command1 click（） 動態建立文字框

set x = "", "text", me)with x

width = 1000

height = 500

visible = true

left = 200

top = 100

end with

end sub

private sub command2_click()on error resume next

x '刪除建立的文字框

end sub

首先拖動乙個文字框，名稱為 text1，index 設定為 0（必須設定 index）。

載入文字框：

load text1（1）

load text1（2）

load text1（3）

解除安裝文字框：

unload text1（1）

unload text1（2）

unload text1（3）

為此，請新增 1 個文字框 text1 並將其 index 屬性設定為 0

具有以下**：

option explicit

dim a as textbox, b as longprivate sub form_load()b = 1

end sub

private sub command1_click()b = b + 1

load text1(b)

text1(b).backcolor = rgb(255, 255, 255)

text1(b).text = "hjonny"

text1(b).borderstyle = 0text1(b).move 0, 0, 2155, 255text1(b).visible = trueend sub

private sub text1_change(index as integer)

text1(index).text

end sub

還有乙個問題需要解決，你這個按鈕1，可以繼續新增文字框，適當修改**

先弄乙個，再拖拽 crtl + 滑鼠左鍵，就出來了，沒有重複的名字可以嘗試。

這種要求是完全沒有必要的。 定義文字框陣列就是所有錯誤。

private sub command1_click()dim a as textbox

dim i as integer

for i = 0 to 9

set a = "", "text" & i)= true

i * 500, i * 400, 1000, 300= rgb(255, 255, 255)

text" & i

next "動態新增控制項成功"

end sub

1.首先，你是動態新增文字框的，然後你調暗乙個作為標籤不能匹配的型別，你可以直接調暗乙個

2.文字框文字框沒有 caption 屬性，只有 text 屬性。

修改這兩個位置後，就可以執行了。

否則，如果按貼上，則可以使字元超過 2 位。

進入**：

private sub text1_change()if len( >= 2 then

注意">"不可以。 只是為了防止緊急情況。 導致字元超過 2 個，但不執行。 但是，如果您已經將 maxlength 設定為 2，則不需要它。

end sub

我建議完整的**：

private sub text1_change()if len( >= 2 then : = 0: = len(end sub

這樣就好了。 假設您的 text2 已經輸入了某些內容。 當 text1 轉到 text2 時，將自動選擇 text2 的所有字元。

如果要修改，可以直接輸入並覆蓋原始內容。 無需手動刪除 text2 的原始內容或全選並重新輸入。

使用函式 len（） 確定它是否輸入了兩位數，然後使用 if 語句使其達到兩位數，並讓下乙個文字框獲得焦點。

將以下 **：： 新增到 text1 的 change 事件中：

if len( = 2 then

即：private sub text1 change（）if len（ = 2 then

end if

end sub

我之前寫過一些小程式，有時候需要清空表單中的所有文字框內容，而且表單中的文字框很多，這時候最頭疼的，一次寫一句話：

如果有十幾個文字框。 哇，我的生活太悲慘了）然後我想到了使用一系列控制項，雖然語句較少，只是：

for i=1 to n

textboxarray(i).text=""

接下來，但每個文字框的名稱相同，但降低了。