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
C如何在richtextbox控制元件中實現每行不超過字元
我是這樣想的，嘻嘻！寫一個函式 用split n 獲得一個包含每一行文字的字串陣列，然後用if判斷，這個函式可以用textchange事件來觸發，下面是偽 string strs richtextbox1.text.split n foreach string str in strs bool is...
VB中控制元件的尺寸如何隨著窗體尺寸的變化而變化
form有一個resize事件 private subform resize end sub裡面新增窗體大小變化的時候控制元件的變化就行了。當然，對於應該如何變化，就得自己先算好咯。360基本正解 form resize 表示獲取窗體變化 me是當前窗體資訊 在樓上兩位回答的基礎上補充一下.priv...
如何在AUTOCAD中對所畫的系統圖進行直接對稱
你說的是三維的映象吧？關於某一個平面的映象，可以使用的命令是3dmirror或者是mirror3d。其中之一一定是正確的，不好意思，時間長，記不太清楚了 你何必要求有其他軟體喃？你畫好後一下映象不就成了嗎？問得好模糊，到底是怎麼樣的？貼圖上來看一下可不可以解決 cad中如何畫已知圖形對稱圖形？使用c...