1樓：你猜我猜哇擦猜
如:第一個窗體1即:form1的**:
private sub 窗體2_click()form1.hide
form2.show
end sub
第二個窗體2即:form2的**:
private sub 還回_click()form2.hide
form1.show
end sub
退出**:
private sub 退出_click()unload me '退出"
end sub
2樓：匿名使用者
private sub command1_click()if text1 = "" then msgbox "沒用內容，不與新增！」: exit sub
list1.additem text1
end sub
private sub command2_click()if list1.listindex thenlist1.removeitem list1.listindexelse
msgbox 「請選擇條目!"
end if
end sub
設計一個只接受字母鍵的文字框,在文字框text1中輸入一串字元時,文字框text2中就即
3樓：兄弟連教育北京總校
private sub text1_keypress(keyascii as integer)
if not (asc("a ") <= keyascii and keyascii <= asc("z ") or _
asc("a ") <= keyascii and keyascii <= asc("z ")) then
keyascii = 0
end if
text2.text = strreverse(text1.text)
end sub
在文字框中輸入文字，單擊「新增」按鈕，則將文字框中文字新增到列表框中
4樓：墨曼彤
privatesubcommand1＿click（）listboxadditemtext1textendsub
按鈕combo1additemtext1
combo1text＝text1
5樓：匿名使用者
private sub command1_click()
list1.additem text1.text
end sub
6樓：匿名使用者
list1.additem textbox1.text刪除用remove selectitem
vb:建立一個工程，在窗體上新增一個文字框text1，兩個命令按鈕command1和command2，單擊command1按鈕
7樓：匿名使用者
private sub command1_click()text1.text = "確定"
end sub
private sub command2_click()text1.text = "取消"
end sub
然後設定 command2 的 tabindex 屬性為 0 。command1 的設定為 1.
8樓：難得糊塗
private sub form_load()command1.caption = "確定"
command2.caption = "取消"
command2.tabindex = 0end sub
private sub command1_click()text1 = "確定"
end sub
private sub command2_click()text1 = "取消"
end sub
'請參考採納！謝謝！
如何在ACCESS中實現在窗體中的文字框中輸入
例如 dim stemp as stringdim rs as adodb.recordsetset rs new adodb.recordsetdim empno as string if nz me du 商編號zhi dao1 then empno 商編號 like me 商編號1 else ...
VB題在窗體上建立文字框和兩個命令按鈕 在前兩個文字框
交換 strw text1.text text1.text text2.texttext2.text strw 合併 text3.text text1.text text2.text vb語言 在窗體上建立三個文字框和兩個命令按鈕。在前兩個文字框輸入文字，單擊 交換 按鈕，將 text3.text ...
設計程式，窗體包含文字框，標籤和按鈕。當使用者在文字框中輸入一些字母（小寫 大寫或大小混
option explicit private declare function sendmessage lib user32 alias sendmessagea byval hwnd as long,byval wmsg as long,byval wparam as long,lparam a...