vb設計測試文字框的各種事件
1樓:網友
1 在form_active裡面寫,或者你把第乙個文字框的index設定為所簡搭有控制項中最小的,比如0也可以實衡咐賣現。
2,4 分別在text1的gotfocus,lostfocus,change事件中寫**(在text1的左邊建乙個標籤label1)
得到焦點"/"失去焦點"/"發生change事件"
3 private sub command1_click()
dim txt
akldfjlasdkjflsjdklfdsf"
end sub
5 在text2的keypress事件中寫入(左邊建乙個label2)
發生了keypress事件"
""咐逗。7 在退出按鈕的事件中寫。
if msgbox("是否退出?",vbokcancel) =vbok then
unload me
end if
2樓:
private sub command1_click()=
len(end sub
private sub command2_click()===
end sub
private sub form_activate()end sub
private sub form_load()===
替換" 清框擾隱"
end sub
private sub form_unload(cancel as integer)
if msgbox("是否要退出?",vbyesno, "提示") vbyes then
cancel = 0
elsecancel = 1
end if
end sub
private sub text1_change()clsprint "文字框1發生了change事件"寬李廳慎隱。
end sub
private sub text1_gotfocus()clsprint "文字框1得到焦點"
end sub
private sub text2_gotfocus()clsprint "文字框2得到焦點"
end sub
private sub text2_keypress(keyascii as integer)
clsprint "文字框2發生了keypress事件"
end sub
3樓:網友
要求太多了,分值少了點哦。
4樓:網友
要求真多呢。
2-3個還幫你解決了,你這樣太 多了。
VB文字框組資料更新,VB文字框如何每輸入一個資料換一行
假設你的控制元件陣列名稱為text1 你可按實際情況改一下 下標要從0開始 從上到下連續的 如果你介面設計時正常操作,就是這個規律 private sub command1 click dim i as long,j as longdim n as long n 7 控制元件陣列中的 textbox...
vb文字框中 怎麼改變字型大小,VB文字框中 怎麼改變字型大小
改變fontsize屬性,如 private sub command1 click text1.fontsize text1.fontsize 2 end sub vb文字框中 怎麼改變字型大小 在vb上面加上combo 和 textbox 文字框 控制元件,並輸入以下 在form load中加入字...
急急急在VB中有文字框 列表框 按鈕。在
option explicit private sub command1 click list1.additem text1.text chr 9 text2.text end sub private sub command2 click dim i as integer i list1.listi...