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 雙引號內的字...