如何在vb中對tetbo控制元件陣列中進行數值計算

時間 2021-08-11 18:17:31

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

access中如何將子視窗的控制元件資料顯示在主視窗

1 如果你只是要在主窗體的文字框中顯示子窗體的記錄,那麼你只要在這個文字框的屬性 控制元件 裡寫入 子窗體名稱 form 欄位名稱 就行了,但這樣僅顯示而已,並不會儲存這個資料到主窗體 的資料表中。2 如你要把這個資料儲存在 資料表中,你得做一個按鈕,你確定資料無誤時,就點一下按餅乾,資料就儲存了,...

C中如何在不同的視窗的控制元件內傳值 ,急

你先在主視窗裡加一個方法 public void addtreenode string nodename 功能是向treeview里加一個節點,節點名為nodename。注意訪問許可權設為public 然後在彈出另一個視窗時將主視窗做為引數傳遞過去,from2 from2 new from2 thi...

如何在vb中檢查文字框中包含特定字元

以下為當在text1中按下按鍵時,判斷是否為m或m,如果是,則遮蔽輸入 private sub text1 keypress keyascii as integer if chr keyascii m or chr keyascii m then keyascii 0 end if end sub ...