VB設計測試文字框的各種事件 5

2025-05-12 10:58:43 字數 1367 閱讀 1450

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...