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中如何在text控制項裡禁止拷貝和貼上
判斷鍵值應該可以，vb不是可以監控鍵盤按下和談起麼！如果按下的鍵值是ctrl c或是v那麼就不讓造作，這樣應該就可以了吧。 vb中可設定textbox控制項的enabled 屬性為false禁制拷貝和複製。enabled 屬性，返回或設定乙個值，該值用來確定乙個窗體或控制項是否能夠對使用者產生的事件...
C中如何在form2中讀取form1控制項的text屬性
有個簡單的方法 定義乙個新類 pub 專案 新增類 裡面 寫上乙個靜態屬性 pubilc static textbox tb 然後讓form1的載入事件 寫上 pub.tb this.textbox1 然後form2中可以 可以呼叫pub.tb.text就是 form1中的textbox1.text...
請教如何在VB中畫填充有顏色的矩形（詳細一點）
使用line 方法 在物件上畫直線和矩形。語法object.line step x1,1 step x2,y2 color b f line 方法的語法有以下物件限定符和部分 部分 描述 object 可選的。物件表示式，其值為 應用於 列表中的物件。如果object 省略，具有焦點的窗體作為obj...