1樓：毛子文庫
調個得到焦點的函式
text2.getpoint()
text2=val(text1)*val(text2)
2樓：匿名使用者
第一種方法：
private sub text1_click(index as integer)
if index = 2 then
text1(2).text = val(text1(0).text) * val(text1(1).text)
end if
end sub
第二種方法：
private sub text1_gotfocus(index as integer)
if index = 2 then
text1(2).text = val(text1(0).text) * val(text1(1).text)
end if
end sub
3樓：匿名使用者
最標準的**:
private sub text1_gotfocus(index as integer)
dim i, max as integerdim sum as long
max = text1.ubound
sum = 1
for i = 0 to max
if i <> max then
sum = sum * val(iif(isnumeric(text1(i).text), text1(i).text, 1))
else
text1(i).text = sum
end if
next i
end sub
vb中怎麼將文字框中的內容寫入陣列中
4樓：匿名使用者
private sub command1_click()dim a() as string
a = split(text1.text, ",")for i = 0 to ubound(a)print a(i)
next
end sub
意思是:將文字框裡面的內容以","(逗號)處隔開!!輸出到窗體上
5樓：匿名使用者
先定義一個陣列,再用一個for迴圈，再用一個mid$()內建函式取固定長度的數存入該陣列中。
6樓：匿名使用者
你可以直接給陣列的元素賦值，
如a(0)=text1.text
a(1)=text3.text
……如果你的幾個文字框是控制元件陣列，就更好辦了，比如有6個文字框且為控制元件陣列，則可以
for i=1 to 6
a(i)=text(i).text
next i
如果你只有一個文字框，想輸如一個數字點下 按鈕，然後加入陣列，加個文字框和命令按鈕，然後
dim a(1 to 5)'這個你需要自己定義大小，否則資料超過5個就下界越標什麼的
private sub command1_click()static i as integer
i = i + 1
a(i) = text1.text
for each c in a()
debug.print c
next c
end sub
急！！vb怎麼建立陣列，怎樣在VB中新增控制元件陣列
dim a 100 as integer dim a n as integer 怎樣在vb中新增控制元件陣列 兩個問題一起回答。你先按正常方法新增一個command1,也按平時的方式，設定你需要的所有屬性，這時，再選定按鈕，複製，貼上，詢問你是否新增控制元件陣列，點是，於是，和你剛才的按鈕屬性完全一...
如何在C中刪除控制元件，如何在C 中刪除一個控制元件
void ds control item else private void button1 click object sender,eventargs e 看checkbox的parent是誰 1 如果checkbox是放在panel 比如canvas,grid,dockpanel之類的 中的，呼...
vb中如何把控制元件變成透明的，VB中如何把控制元件變成透明的
鬆鬆一號 backstyle 屬性 返回或設定一個值，它指定 label 控制元件或 shape 控制元件的背景是透明的還是非透明的。設定值0 透明 在控制元件後的背景色和任何 都是可見的。1 預設值 非透明 用控制元件的 backcolor 屬性設定值填充該控制元件，並隱藏該控制元件後面的所有顏色...