這幾天剛剛驗收完vb百例，一次通過，還是使我很開心的。而且在這個過程中也學到了很多東西，比如裡面的角落知識點有的都沒有意識到，還是師傅幫忙給提出來的，這也提醒自己以後再學習的時候一定要認真。
在師傅的幫助下也解決了vb滾輪的問題，通過師傅的指導、上網查閱、同學之間的詢問，自己也可以把這個問題解決，用公尺老師的一句話就是站在了巨人的肩膀上。
1、相對路徑和絕對路徑
絕對路徑是指定的路徑，如d:/abc
2、新增文字滾動條
新增文字滾動條用到的是scrollbars屬性，但是只把這個屬性加上並不能實現為文字框新增滾動條，必須要新增multiline（多行）屬性，這是乙個容易忽略的一點。
3、滑鼠響應事件
vb中滑鼠響應事件有mousedown、mouseup、mousemove，根據英文應該也可以猜到是什麼意思了，分別為滑鼠按下事件，滑鼠釋放事件，滑鼠移動事件
mousedown：當滑鼠的任意鍵按下時，便可以觸發該事件，還可以使用 mousedown事件和line方法相結合繪製直線。
private sub form ——mousedown (button as integer, shift as integer,x as
single, y as single)
line一(x，y)
mousemove (滑鼠移動)事件
當滑鼠指標在螢幕上移動時便可觸發該事件。窗體和控制項均能實現滑鼠移動事件。例如，下面的**是利用滑鼠移動事件在窗體上繪製圓，
private sub form mousemove (button as integer, shift as integer, x assingle, yassingle)circle (x,y),200end sub
滑鼠在窗體上每移動乙個位置，便繪製出乙個圓，滑鼠移動的速度越快，繪製的圓越少。
(3 ) mouseup (滑鼠釋放事件
當單擊滑鼠後，鬆開滑鼠按鍵時便觸發該事件。在實際程式設計時，往往將mousedown(滑鼠按下)事件、mousemove(滑鼠移動)事件和mouseup (滑鼠釋放)事件相結合使。
例如，下面的**是當滑鼠在窗體上按下時繪製直線的起點，當釋放滑鼠時，繪製完成一條直線。
dim x1, y1
private sub form mousedown (button as integer, shift n5 integer, x as-single, y as single)
x1= x
y1=y
end sub
private sub form mouseup (button as integer, shift as. integer, x as single,一y as single)
line (x1, y1)-(x, y)
end sub
如果滑鼠左鍵和右鍵同時按下值為3，即左鍵值和右鍵的值得和
以上是我驗收完vb百例的幾點總結。
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 ...