option explicit
private sub text1_keypress(keyascii as integer)
if keyascii < 65 or keyascii > 90 then （
數65--90代表的是ascii中的a---w 26個字母）
若keyascii不在65--90之間
label1.caption = "輸入的不是大寫字母，請重新輸入" 顯示不是大寫字母的資訊
if text1.text <> "" then 若文字框不為空
text1.text = "" 清除文字框中的內容
end if 先將文字框中剛輸入的字元刪除，然後在重新輸入
else
label1.caption = "恭喜你，輸入成功"
if text1.text <> "" then
text1.text = ""
end if
end if
end sub
VB工程 百例64游標位置
option explicit private sub command1 click txt1.text 歡迎來到廊坊師範學院 end sub private sub command2 click txt1.text end sub private sub command3 click endend...
VB工程 百例69 訊息框
option explicit private sub form click dim x as integer x msgbox 你單擊的是窗體，是嗎？35,詢問框 if x 6 then 若們四個box的函式的返回值是6 msgbox 你選擇了 是 按鈕 vbinformation,資訊框 彈出的...
VB工程 百例74 窗體變色
option explicit private sub form mousedown button as integer,shift as integer,x as single,y as single if button 2 then 若單擊滑鼠右鍵 popupmenu mnuformcolor ...