VB文字框內容清空再顯示下一條,將兩個文字框內容清空,單擊窗體後定位游標在文字框2,實現文字框1寫什麼,文字框2就顯什麼,用VB怎麼編呀

2022-06-26 10:36:44 字數 5869 閱讀 3872

1樓:匿名使用者

dim i as integer, j as integer

dim a(100, 100) as integer

private sub command1_click()

text1.text="" '清空顯示楊輝三角文字框

w = cdbl(text2.text)

for i = 0 to w - 1

a(i, i) = 1

a(i, 0) = 1

next

for i = 2 to w - 1

for j = 1 to i

a(i, j) = a(i - 1, j - 1) + a(i - 1, j)

next j

next i

for i = 0 to w - 1

for j = 0 to i

text1 = text1.text + cstr(a(i, j)) + " "

next j

text1 = text1.text & vbcrlf

next i

text2.text ="" '楊輝三角顯示後清空數字輸入文字框

end sub

2樓:匿名使用者

private sub command1_click()dim a(100, 100) as integertext1.text =""

text2.text =""

。。。erase a()

3樓:就九佳

command1_click裡最前面加一句text1.text=""

vb如何加乙個清除文字框內容的按鈕

4樓:小小小小顰

具體操作步驟如下:

1、首先,在視窗中新增乙個文字框,如下圖所示,然後進入下一步。

2、其次,單擊文字框,在屬性視窗中設定文字框的屬性,清除文字,如下圖所示,然後進入下一步。

3、接著,將文字框的enabled屬性設定為false,如下圖所示,然後進入下一步。

4、然後,在表單上新增乙個命令按鈕,如下圖所示,然後進入下一步。

5、隨後,在「屬性」視窗中,將命令按鈕的「標題」屬性設定為「允許輸入」,如下圖所示,然後進入下一步。

5樓:匿名使用者

新增乙個按鈕command1,**(以清除text1文字框內容為例):

private sub command1_click()text1 = ""

end sub

點選後, text1文字框內容就清除了。

6樓:悠悠周郎

加個按鈕其單擊過程:

textbox1.text = ""

如果是 6.0,把文字框加入到乙個控制項陣列裡,其名稱為 textbox1(i),則

for i = 0 to 5

textbox(i).text = ""

next

7樓:d版高手

command1_click()事件裡新增text1.text=""如果文字框多的話建議用陣列寫個迴圈就ok

8樓:西張東旺

遍歷窗體裡面的所有控制項,當型別為textbox時,直接給text屬性賦""值就ok了

9樓:匿名使用者

用控制項陣列呀,然後

for i = 0 to 8

text1(i).text=""

next

10樓:

for i=0 to 10

text1(i).text=""

next

11樓:匿名使用者

private sub command1_click()

text1.text=""end

vb中如何單擊按鈕開始在文字框顯示文字,單擊清除按鈕清除文字框中的文字

12樓:匿名使用者

private sub command1_click()text1 = "vb中如何單擊按鈕開始在文字框顯示文字,單擊清除按鈕清除文字框中的文字"

end sub

private sub command2_click() '清除text1 = ""

end sub

13樓:polaris北斗

option explicit

private sub command1_click()text1.text = "顯示文字"

end sub

private sub command2_click()text1.text = ""

end sub

在vb中怎樣用按鈕清除文字框中的文字

14樓:海天盛

在vb中怎樣用按鈕清除文字框中的文字的方法。

如下參考:

1.首先,在表單中新增乙個文字框。

2.單擊文字框,在「屬性」視窗中設定文字框的屬性,然後清空文字內容。

3.將文字框的啟用屬性設定為false。

4.在視窗主體上新增乙個命令按鈕,如下圖所示。

5.在屬性視窗中,將命令按鈕的標題屬性設定為「允許進入」。

6.雙擊command按鈕編輯**,如下圖所示。

15樓:自由落體的牛頓

private sub command1_click()text1.text = ""

text2.text = ""

text3.text = ""

end sub

16樓:戊冷霜

text1.text =""

text2.text =""

text3.text =""

17樓:咕咔咔

text1.text=""

vb 如何清除多個text的內容?

18樓:匿名使用者

這個是可以的。建控制項陣列的方法有二:一是選取你的text1,ctrl+c,ctrl+v,出來乙個對話方塊問你,你就確定,就生成了控制項陣列。

二是在右邊的屬性中,把index設定為0,然後在**中呼叫。方法是load text1(index)其中index是序列號。

你那個程式可以這樣寫。

=============

private sub command1_click()for i = text1(lbound(text1)) to text1(ubound(text1))

text1(i).text = ""

next

end sub

19樓:匿名使用者

'新增窗體form1,按鈕command1,再隨便加幾個文字框,然後新增如下**:

private sub command1_click()on error resume next

dim txttemp as controlfor each txttemp in metxttemp.text = ""

next

end sub

20樓:棉花糖

建控制項陣列text1(index)

private sub command1_click()for i = 0 to n 'n是你文字框的個數text1(i).text = ""

next

end sub

21樓:匿名使用者

可以。但上面的說明可以改一下:

for i = 0 to n 'n是你文字框的個數 (文字框的個數不是n,而是n + 1個)。

建立text1陣列控制項可以這樣:

先建立乙個text1控制項,然後複製text1,貼上...直到夠您所要的數目即可.

記住,第乙個text1的index為0,而不是1

22樓:

首先建立乙個command按鈕command1然後選擇command1,再在操作介面右邊的屬性欄找到index項,把這一項改成0.

之後你再建立的command按鈕就會以command1(index)的形式出現。

如command1(0)、command1(1)……剩下的就可以用你的**完成啦

23樓:

可以,複製貼上相同控制項就可以建立。

24樓:

建立乙個text1 複製 貼上·點是·迴圈

還有就是index項改成0.

複製 貼上

25樓:灰色的灰擦

n是文字框數量-1,因為是從0開始

將兩個文字框內容清空,單擊窗體後定位游標在文字框2,實現文字框1寫什麼,文字框2就顯什麼,用vb怎麼編呀

26樓:

在vb6中

清空文字框的內容:

private sub text1_click() '假設在文字框1的單擊事件中清空文字框內容

text1.text=""

text2.text=""

end sub

private sub form_click() '窗體的單擊事件,將游標定位在文字框2中

text2.setfocus

end sub

private text1_change() '文字框1的文字內容改變事件,實現文字框1寫什麼,文字框2就顯什麼功能

text2.text=text1.textend sub

請試試吧

27樓:匿名使用者

private sub form_load() '清空文字框text1.text=""

text2.text=""

end sub

private sub form_click() '點選窗體定位游標在文字框2

text2.setfocus

end sub

private sub text1_change() '文字框1寫什麼,文字框2就顯示什麼

text2.text=text1.textend sub

28樓:匿名使用者

這麼高的分,他們的回答滿足你了嗎

29樓:天天快樂郎

ad>測試 ab

在vb文字框裡初次輸入內容,如何先清空再輸入?

30樓:草堂春日遲遲

在textbox按鍵事件裡面加

if textbox1.text="請輸入" then textbox1.text = ""

31樓:匿名使用者

textbox1=""

在vb中 在乙個文字框內輸入內容,第二個文字框就會顯示另外的內容 **怎麼寫

32樓:匿名使用者

用change事件啊,只要檢測到輸入就給第二個文字框賦值

33樓:

private sub text1_change()

text2.text = "text1內容已更改為" & text1.text

end sub

vb如何比較兩個文字框內容,請問VB中怎麼對兩個文字框的文字進行比較,不一樣的用紅色來表示?

在每次text2換行時進行檢測 就是按下回車鍵時 如下 private sub text2 keydown keycode as integer,shift as integer dim lngcrlf as string if keycode vbkeyreturn then lngcrlf in...

求助vb文字框

private sub text1 change text2 text1 end sub private sub text1 change text2.text text1.textend sub text2的文字隨text1的動 此事件是text1變動事件,當text1文字有改動事觸發當作為子程式...

vb如何將print的內容改到文字框tet1中顯示

text1 共有以上 l 組。vb練習 現了問題 怎麼做才能將內容用print語句輸出到textbox中 private sub command1 click print 無法在文字框中輸出,下面方法可以實現在文字框中輸出 dim x as integer x 401 if x mod 4 0 an...