VB 怎麼用迴圈引用多個文字框的屬性?

2025-02-01 12:30:05 字數 4219 閱讀 3290

1樓:網友

如果是這樣,你最好用控制項陣列來做。

先放乙個文字框,再複製這個文字框,再貼上,第一次貼上時,在出現的對話方塊中,選擇"是",這樣就建立文字框控制項陣列了,需要幾個,再貼上幾個。

這樣就可以迴圈了,方法如下:

for i=0 to 9 '假設有10個文字框。

text1(i).text=i

next如果實在不想用控制項陣列,也行。

private sub command1_click()for each item in form1if ucase(left(, 4)) text" then= rnd

end if

nextend sub

不過,這種方法,很難掌握具體是哪個文字框得到什麼值。

2樓:網友

能用text(n),前提是文字框名字類似 text1(0),text1(1),text1(2)..text1(n)

其實就是用控制項陣列,當你將文字框複製 貼上時vb會詢問你是否使用控制項陣列。

for i=0 to 5

text1(i)=i

next

3樓:網友

把文字框弄成控制項陣列,再用迴圈語句,應用啊!

如:for i=1 to 10

a(i)=text1(i).text

next這樣就把text賦值給陣列了。

4樓:網友

如果不用控制項陣列,那麼你這麼引用是不行的,你可以這樣用:

dim i as integer

for i = 1 to 6

controls("text" +trim(str(i)))text = i

next i

這個迴圈可以同時把text1到text6的text屬性賦值。

5樓:呂興有歐儀

例如幾個常用的屬性:

name」後面就是該文字框的名稱,修改成自己想要的。

font」後面就是文字框文字的格式設定,如,大小,字型,等等。

text」後面跟的是文字框的內容。

在vb中如何用迴圈語句給多個連續文字框賦值

6樓:柴公尺河畔

dim obj as object, objname as string, i as integer

i = 0for each obj in '列舉窗體所有控制項typename(obj)

if typename(obj) = "textbox" then '判讀是否為文字框。

i = i + 1

objname = '獲取文字控制項名稱,這裡可以根據名稱來判讀賦值,也可以根據其他屬性複製。

文字" & i '文字框賦值end if

next

7樓:網友

要定義為陣列為全域性變數,或者定義為_;

還在注意賦值後要重新整理一次才會有顯示,可以在場景運動一幀,或者用。

onenterframe這個函式,還不知道你要做成怎樣,可以的話留下聯絡方法。

8樓:匿名使用者

使用文字框控制項陣列試試。

在vb中怎麼改文字框的多行顯示的屬性

9樓:網友

在文字框的屬性列表中把multiline 改為 true

把。scrollbars 改為 3

10樓:網友

vb2010版本:

修改文字框下列屬性:

scrollbars屬性為both

vb將不定時發生變化的變數值迴圈填入多個文字框中。

11樓:網友

定義乙個全域性變數 l

text2中。

text1(l).text=filetreml=l+1

if l=11 then l=0

vb中如何讓選擇的多個核取方塊在乙個文字框中分行顯示?

12樓:青松踏雪

不好意思,樓上**沒有問題,可是功能不能按提問者實現。

這個題的考點在「所選的每乙個核取方塊的caption屬性佔一行」

所以,首先需將文字框的multiline屬性設為true,如果需加滾動條,可以設定文框的scrollbars屬性,之後再建立核取方塊陣列,最後**:

private sub check1_click(index as integer)

if check1(index).value = vbchecked then text1 = text1 & check1(index).caption & vbcrlf

end sub

13樓:網友

1、開啟visual basic 軟體,新建乙個標準exe工程,在新建的工程窗體設計器上新增乙個有10個元素的check陣列控制項和乙個text控制項;

2、設定text1的multiline屬性為true;

private sub check1_click(index as integer)

dim i as integer

dim str as string

str = ""

for i = 0 to 9

if check1(i).value = 1 then

str = str & check1(i).caption & vbcrlf

end if

next i

strend sub

private sub form_load()

dim i as integer

for i = 0 to 9

check1(i).caption = i

next i

end sub

4、單擊執行按鈕,或者按下f5按鈕,執行該工程,勾選check控制項,可以使多選框在文字框中分行顯示。

vb中如何讓多個文字框對齊

14樓:岔路程式緣

利用每個文字框的top、left兩個屬性。如:,使二者上端對齊,類似的等等。

vb視窗中如果有多個文字框,怎樣用陣列分別為他們賦值?

15樓:網海1書生

你這多個文字框最好弄成控制項陣列,並且與要賦值的陣列一一對應,這樣就方便得多,比如(假定文字框陣列名為text1,陣列為a())

for i = 0 to ubound(a)text1(i).text = a(i)

next如果文字框不是控制項陣列則比較麻煩,你要乙個乙個進行賦值。如果文字框的名字是有規律的,比如text1、text2、text3……而且數字是連續的,則可以這樣(這是一種非常規的用法):

for i = 0 to ubound(a)controls("text" & i + 1).text = a(i)

next強烈建議儘量使用控制項陣列,不但執行速度較快,而且可以節省系統資源消耗。

vb程式,如何提取乙個文字框內的多個資料

16樓:網友

用split分割就行了,split(a,b,c,d) a為要分解的字串,b為以什麼作為分組,c為分成多少段,d表示判別子字串時使用的比較方式。

17樓:冒牌大哥

a=split(text1,vbcrlf)然後陣列a中, a(0)是第1行, a(1)是第2行, 以下類推。如果你想要第5行到第17行, 可以使用:a=split(text1,vbcrlf)redim preserve a(4 to 16)b=join(a,vbcrlf)

18樓:

先定義陣列a

dim a()

下面是用空格做為分割符的情況下把資料存到陣列a中:

a()=split(," ")

下面是用逗號做為分割符的情況下把資料存到陣列a中:

a()=split(,",")

vb6如何實現在乙個文字框顯示多次迴圈的計算結果?教程上都是用的print方法列印在窗體,我想用text來顯示

19樓:網友

文字框屬性裡設定multiline為true迴圈裡:

for i=0 to 10

text1=text1 & 結果變數名 & vbcrlfnext

VB中如何讓選擇的多個核取方塊在文字框中分行顯示

不好意思,樓上 沒有問題,可是功能不能按提問者實現。這個題的考點在 所選的每一個核取方塊的caption屬性佔一行 所以,首先需將文字框的multiline屬性設為true,如果需加滾動條,可以設定文框的scrollbars屬性,之後再建立核取方塊陣列,最後 private sub check1 c...

VB中能否用文字框加列表框實現組合框的功能

是的,上面一個文字框,下面一個列表框,但組合框有三種風格,簡單組合,下拉選單,組合框三種。你可以設定成三種不同的來試方式 vb中列表框與組合框的區別?列表框直接顯示和選擇列表項,組合框通過下拉選單選擇列表項 列表框可以多選,組合框只能單選 左邊是列表框,右邊是組合框 列表框直接顯示和選擇列表項,組合...

跪求vb設計變換文字框文字的字型字型字號

在 中編譯 font fontname fontcolor 跪求vb的變換文字框文字的字型 字型 字號及顏色的程式 知道的說下 妹子感激你 字型和字型和字號都在font裡面,顏色在forecolor裡可以設定。如果要用 的話就是 設定具體字號是 text1.fontsize 45 ps 雙引號內的字...