option explicit
private sub command1_click()
txt1.text = "歡迎來到廊坊師範學院"
end sub
private sub command2_click()
txt1.text = ""
end sub
private sub command3_click()
endend sub
private sub option1_click()
txt1.selstart = 0 '起始點在左側 選中文字時，text1.selstart是「被選中文字的開始位置」
txt1.setfocus '文字框獲得焦點
end sub
private sub option2_click()
dim a '定義變數，用於返回文字框中字元的長度
a = len(txt1.text) '變數a的值是文字框中文字的長度
txt1.selstart = a '起點是文字框中字串的產度
txt1.setfocus '文字框獲得焦點
end sub
private sub option3_click()
txt1.selstart = 0
txt1.sellength = len(txt1.text) '所選擇的字元數是文字框中字元的長度
txt1.setfocus
end sub
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 ...
VB工程 百例69 訊息框
option explicit private sub form click dim x as integer x msgbox 你單擊的是窗體，是嗎？35,詢問框 if x 6 then 若們四個box的函式的返回值是6 msgbox 你選擇了 是 按鈕 vbinformation,資訊框 彈出的...