程式设计实务使用剖析课件

WindowsCE程式設計實務—使用eMbeddedVisualBasic1WindowsCE程式設計實務—使用eMbeddedOutlineDownloadeVB程式開發環境簡介第一個程式HelloWorld!小電子鐘FormPropertiesFormMethodsFormEvents製作程式安裝檔2OutlineDownloadeVB2DownloadeVBWhere:/mobile/developer/default.aspDownloadMicrosofteMbeddedVisualTools3DownloadeVBWhere:3程式開發環境簡介TostarteVB4程式開發環境簡介TostarteVB4程式開發環境簡介(Cont.)工作環境5程式開發環境簡介(Cont.)工作環境5程式開發環境簡介(Cont.)工具箱工具列專案視窗屬性視窗表單設計視窗6程式開發環境簡介(Cont.)工具箱工具列專案視窗屬性視窗第一個程式HelloWorld!7第一個程式HelloWorld!7第一個程式HelloWorld!(Cont.)修改Form1屬性8第一個程式HelloWorld!(Cont.)修改第一個程式HelloWorld!(Cont.)在ToolBox上按labelcontrol，在Form上畫出一個區域

9第一個程式HelloWorld!(Cont.)在T第一個程式HelloWorld!(Cont.)將Label1Name改成lblWorld，Caption改成“HelloWorld！我的PDA上的第一個程式”10第一個程式HelloWorld!(Cont.)將L第一個程式HelloWorld!(Cont.)存檔：儲存project名稱，*.ebp。儲存Form檔案，*.ebf。按F5或執行程式11第一個程式HelloWorld!(Cont.)存檔：第一個程式HelloWorld!(Cont.)12第一個程式HelloWorld!(Cont.)12第一個程式HelloWorld!(Cont.)結束程式可以按右上角的OK，或是debug工具列的四方形停止按鈕13第一個程式HelloWorld!(Cont.)結束程放入PDA執行將PDA放到與PC連接的槽上選擇功能表“PocketPC”，再執行一次。14放入PDA執行將PDA放到與PC連接的槽上14小電子鐘15小電子鐘15小電子鐘(Cont.)在Form上加一個物件Timer，並把屬性Name值設成tmrClock，Interval設為1000(0表示timer為disable)。Interval表示引發Timer事件的時間間隔，以千分之一秒為單位。16小電子鐘(Cont.)在Form上加一個物件Time小電子鐘(Cont.)雙擊Form編輯視窗，編輯tmrClock物件引發的Timer事件程序物件名稱事件名稱17小電子鐘(Cont.)雙擊Form編輯視窗，編輯tm小電子鐘(Cont.)本來應該是frmClock.Cls，但這一部份是在Form下執行，所以Form的名稱可以省略。18小電子鐘(Cont.)本來應該是frmClock.Cls小電子鐘(Cont.)19小電子鐘(Cont.)19小電子鐘(Cont.)20小電子鐘(Cont.)20FormPropertiesAutoRedrawBackColor黑:&H00000000&，白:&H00FFFFFF&Form.BackColor=vbBlack，vbRed…BorderStylevbBSNone：無外框，vbFixedSingle：單線固定式外框，vbSizable:可以變動大小的外框，vbFixedDialog，vbFixedToolWindow，vbSizableToolWindow。21FormPropertiesAutoRedraw21FormProperties(Cont.)CaptionClipControl：重繪時是要把整個視窗都重繪(TRUE)，還是只有把變動的區域重繪。CurrentX,CurrentYDrawMode：設定圖形輸出的外觀。TheexacteffectofaDrawModesettingdependsonthewaythecolorofalinedrawnatruntimecombineswithcolorsalreadyonthescreen.vbMergePen:Combinationofthepencolorandthedisplaycolor.vbMergeNotPen：Combinationofthedisplaycolorandtheinverseofthepencolor.22FormProperties(Cont.)CaptionFormProperties(Cont.)DrawStyle：線條輸出的樣式，VbSolid/VbDashDrawWidth(1~32767pixel)Enabled：表單是否處於啟動的狀態FillColor：設定填充於幾何圖形的顏色FillStyle：picFSSolid/picFSTransparentFont：設定Form上的字型，Form.Font.Bold=TRUE23FormProperties(Cont.)DrawStyFormProperties(Cont.)FontTransparent：設定文字周邊是否有透明的效果(TRUE：透明)ForeColor：前景顏色FormResize：設定Form是否可以改變大小。Height:設定Form高度KeyPreview：From對鍵盤事件(KeyDown，KeyUp，KeyPress)的反應。24FormProperties(Cont.)FontTraFormProperties(Cont.)Left：設定Form的左界Top,WidthMovable：Form是否可移動ScaleHeight：設定表單內部的高度ScaleLeftScaleMode：設定物件的座標單位ScaleTopScaleWidthShowOK：設定表單右上角會不會出現一個圓形的OK按鈕。25FormProperties(Cont.)Left：設定ScaleMode常數值內容VbUser0使用者自訂VbTwips1使用Twip(每一英吋為1440twips，每一公分為567twips)VbPoints2使用point(每一英吋有72points)VbPixel3PixelvbCharacters4字元(水平等於120twips，垂直240twips)VbInches5英吋vbMillimeters6公釐vbCentimeters7公分26ScaleMode常數值內容VbUser0使用者自訂VbTwFormProperties(Cont.)SIPBehavior：設定PDA畫面下方的輸入面版(SIP)何時出現vbSIPAlways：輸入面版一直出現vbSIPAutomatic：當使用者按到Edit或Combobox，輸入面版會自動出現vbSIPUser：完全由使用者自行控制SIPVisible：輸入面版是否可見，default=FALSETag：儲存應用程式額外的資料Visible：表單是否可見或隱藏27FormProperties(Cont.)SIPBehaFormMethods對表單操作(如：清除、顯示、隱藏、畫圓形、畫直線)ClsDrawCircle：object.DrawCirclex,y,radius,[color],[aspect]，aspect預設值為1，代表圓形。若aspect絕對值大於1，代表是一水平軸短，垂直軸長的橢圓形。反之當aspect絕對值小於1，代表是一水平軸長，垂直軸短的橢圓形。28FormMethods對表單操作(如：清除、顯示、隱藏、FormMethods(Cont.)DrawLine：form.DrawLinex1,y1,x2,y2,[color],[boxfill]。boxfill如果沒有設定的話則是由起點到終點的一直線。若值是vbLineBox則畫出一個空的矩形。若值是vbLineBoxFill則畫出一個實心的矩形，其中顏色是color或是矩形邊線的顏色。HideMove：移動表單或改變表單的大小。object.Moveleft,[top],[width],[height]。left,top代表移動後表單的左界和上界。29FormMethods(Cont.)DrawLine：fFormMethods(Cont.)Point：取得表單上某一特定點的色彩數值。object.Point(x,y)PointSet：設定表單上某一特定點的色彩數值。Object.PointSetx,y,colorRefresh：將表單上所有的物件重繪SetScale：重新定義表單上物件的座標系統。object.SetScalex1,y1,x2,y2，x1,y1是新座標系統的左上角，x2,y2則是右下角。30FormMethods(Cont.)Point：取得表單FormMethods(Cont.)ScaleX，ScaleY：由原來的ScaleMode轉換到其他單位時，轉換之前的水平(或垂直)座標單位至新的水平(或垂直)座標單位。object.ScaleX(value，fromscale，toscale)。value：轉換前測量單位的數值，fromscale：要被轉換的座標系統，toscale：轉換成的座標系統。SetFocus：Movefocustoafromorcontrol。Object.SetFocus31FormMethods(Cont.)ScaleX，ScaFormMethods(Cont.)Show：顯示表單。TextHeight、TextWidth：依照目前form的字型設定，取得目前字串的高度(寬度)。object.TextHeight(string)。ZOrder：設定表單在被遮蓋時的先後次序。object.Zorderposition。IfpositionisvbBringToFrontoromitted,objectispositionedatthefrontofthez-order.IfpositionisvbSendToBack,objectispositionedatthebackofthez-order.32FormMethods(Cont.)Show：顯示表單。FormEventsActivate：使表單成為使用中的視窗。PrivateSub_xxx_Activate()，xxxisaform。AformbecomesactivewhenyouusetheShoworSetFocusmethodsincodeorwhenauserinitiatesanaction,suchaschoosinganobject.Click：PrivateSub_xxx_Click()，xxxisanobject。DblClick：PrivateSub_xxx_DblClick()，xxxisanobject。33FormEventsActivate：使表單成為使用中的視FormEvents(Cont.)DeactivateGotFocus：表單物件取得焦點。PrivateSubxxx_GotFocus()KeyDown：使用者按下按鍵。PrivateSubxxx_KeyDown(keycode，shift)，keycode：Keycode,suchasvbKeyHome(theHOMEkey).shift：IntegerthatcorrespondstothestateoftheSHIFT,CTRL,andALTkeysatthetimeoftheevent.34FormEvents(Cont.)Deactivate3FormEvents(Cont.)KeyPress：使用者按下並放開一個ANSI字元鍵盤所引發的事件。PrivateSubxxx_KeyPress(keyascii)，keyascii：IntegerthatreturnsastandardnumericANSIkeycode.KeyUP：放開鍵盤。PrivateSubxxx_KeyUp(keycode，shift)。Load：載入表單。PrivateSubxxx_Load，xxxisaform。Forastartupform,theeventoccurswhenanapplicationstarts.Thiseventalsooccurswhenaformisfirstshownorastheresultofareferencetoanunloadedform'spropertiesorcontrols.35FormEvents(Cont.)KeyPress：使用FormEvents(Cont.)LostFocus：表單物件失去焦點，PrivateSubxxx_LostFocus(

)，xxxisanobject.MouseDown：按下滑屬鍵，PrivateSubobject_MouseDown(button,shift,x,y)button：Integerthatidentifiesthechosenbutton,eithertheleft，middleortherightbutton.shift：ReturnsanintegerthatcorrespondstothestateoftheSHIFT,CTRL,andALTkeyswhenauserpressesorreleasestheleftorrightbutton,asspecifiedinthebuttonparameter.x,

y：Returnsanumberthatspecifiesthecurrentlocationofthepointerofthemousedevice.36FormEvents(Cont.)LostFocus：表FormEvents(Cont.)MouseMove：移動滑鼠。PrivateSubobject_MouseMove(button,shift,x,y)MouseUp：放開滑鼠。PrivateSubobject_MouseUp(button,shift,x,y)OKClick：按下表單上的OK鍵。PrivateSubform_OnOKClick()Paint：原本被遮蓋的物件，當遮蓋物移走時會觸發此事件重繪視窗。另外視窗大小改變也會觸發此事件。PrivateSubobject_Paint(

)37FormEvents(Cont.)MouseMove：移FormEvents(Cont.)QueryUnload：Thiseventoccursimmediatelybeforeaformorapplicationcloses.PrivateSubForm_QueryUnload(cancel,unloadmode)。cancel：Integer.Settingthisparametertoanyvalueotherthan0stopstheformandapplicationfromclosing.unloadmode：ValuethatindicatesthecauseoftheQueryUnloadevent.Theunloadmodeparameterisalways0.IfyouuseApp.Endtoterminateanapplication,formsdonotexecutetheQueryUnloadandUnloadevents.38FormEvents(Cont.)QueryUnloadFormEvents(Cont.)Resize：ThiseventoccurswhenaformorPictureBoxcontrolisfirstdisplayedorwhenthewindowstateofaformchanges.PrivateSubform_Resize()PrivateSub

picturebox_Resize(height,width)。height：Newheightofthecontrol.width：Newwidthofthecontrol.39FormEvents(Cont.)Resize：ThisFormEvents(Cont.)SIPChange：輸入面版的狀態（顯示或不顯示)有改變時，會引發此事件。PrivateSubform_SIPChange(Boolean)，Boolean：Booleanthatreturnsadisplaystateoftheinputpanel.TheSIPChangeeventoccurswhentheinputpanelisdisplayedorhidden.ReturnsTRUEiftheinputpanelisdisplayed,FALSEiftheinputpanelishidden.40FormEvents(Cont.)SIPChange：輸FormEvents(Cont.)Unload：Thiseventoccurswhenaformisunloading.PrivateSubform_Unload(cancel)。cancel：Integer.Settingthisparametertoanyvalueotherthan0stopstheformandapplicationfromclosing.TheQueryUnloadeventoccursinallformsbeforeanyareunloaded,andtheUnloadeventoccursaseachformisunloaded.

IfyouuseApp.Endtoterminateanapplication,formsdonotexecutetheQueryUnloadandUnloadevents.41FormEvents(Cont.)Unload：ThisFormEvents(Cont.)Terminate：Form要被結束前所產生的事件。ThiseventoccurswhenyouremoveallreferencestoaninstanceofaFormobjectfrommemory.PrivateSub

form_Terminate(

)TheTerminateeventoccursaftertheUnloadevent.TheTerminateeventdoesnotoccuriftheapplicationterminatesabnormally.TheTerminateeventoccursonlywhenanapplicationcloses,afterallformsareunloaded.TheTerminateeventdoesnotsupporttheMsgBoxfunction.42FormEvents(Cont.)Terminate：F製作程式安裝檔Step1：在功能表上選擇File->MakeDigitalClock.vb，將程式編譯成.vb43製作程式安裝檔Step1：在功能表上選擇File->Mak製作程式安裝檔(Cont.)指定編譯好的檔案存放位置44製作程式安裝檔(Cont.)指定編譯好的檔案存放位置44製作程式安裝檔(Cont.)Step2：Tools->Remotetools->ApplicationInstallWizard45製作程式安裝檔(Cont.)Step2：Tools->R製作程式安裝檔(Cont.)按[下一步]46製作程式安裝檔(Cont.)按[下一步]46製作程式安裝檔(Cont.)指定程式的專案檔位置47製作程式安裝檔(Cont.)指定程式的專案檔位置47製作程式安裝檔(Cont.)指定編譯好的檔案放於何處48製作程式安裝檔(Cont.)指定編譯好的檔案放於何處48製作程式安裝檔(Cont.)指定製作好的安裝檔要放在哪裡49製作程式安裝檔(Cont.)指定製作好的安裝檔要放在哪裡4製作程式安裝檔(Cont.)選擇要支援的CPU型號50製作程式安裝檔(Cont.)選擇要支援的CPU型號50製作程式安裝檔(Cont.)選擇要安裝的控制元件檔案51製作程式安裝檔(Cont.)選擇要安裝的控制元件檔案51製作程式安裝檔(Cont.)如果你的程式有用到其他的檔案(E.g.圖檔)，在此加入該檔案。52製作程式安裝檔(Cont.)如果你的程式有用到其他的檔案製作程式安裝檔(Cont.)指定安裝程式的目錄、應用程式名稱、應用程式說明及軟體設計公司名稱53製作程式安裝檔(Cont.)指定安裝程式的目錄、應用程式名製作程式安裝檔(Cont.)54製作程式安裝檔(Cont.)54製作程式安裝檔(Cont.)目錄下的檔案55製作程式安裝檔(Cont.)目錄下的檔案55製作程式安裝檔(Cont.)在App目錄下是*.vb，其餘則是針對不同的CPU產生的程式。安裝程式位於CD1目錄下。執行setup.exe可以把程式安裝到PDA中。56製作程式安裝檔(Cont.)在App目錄下是*.vbWindowsCE程式設計實務—使用eMbeddedVisualBasic57WindowsCE程式設計實務—使用eMbeddedOutlineDownloadeVB程式開發環境簡介第一個程式HelloWorld!小電子鐘FormPropertiesFormMethodsFormEvents製作程式安裝檔58OutlineDownloadeVB2DownloadeVBWhere:/mobile/developer/default.aspDownloadMicrosofteMbeddedVisualTools59DownloadeVBWhere:3程式開發環境簡介TostarteVB60程式開發環境簡介TostarteVB4程式開發環境簡介(Cont.)工作環境61程式開發環境簡介(Cont.)工作環境5程式開發環境簡介(Cont.)工具箱工具列專案視窗屬性視窗表單設計視窗62程式開發環境簡介(Cont.)工具箱工具列專案視窗屬性視窗第一個程式HelloWorld!63第一個程式HelloWorld!7第一個程式HelloWorld!(Cont.)修改Form1屬性64第一個程式HelloWorld!(Cont.)修改第一個程式HelloWorld!(Cont.)在ToolBox上按labelcontrol，在Form上畫出一個區域

65第一個程式HelloWorld!(Cont.)在T第一個程式HelloWorld!(Cont.)將Label1Name改成lblWorld，Caption改成“HelloWorld！我的PDA上的第一個程式”66第一個程式HelloWorld!(Cont.)將L第一個程式HelloWorld!(Cont.)存檔：儲存project名稱，*.ebp。儲存Form檔案，*.ebf。按F5或執行程式67第一個程式HelloWorld!(Cont.)存檔：第一個程式HelloWorld!(Cont.)68第一個程式HelloWorld!(Cont.)12第一個程式HelloWorld!(Cont.)結束程式可以按右上角的OK，或是debug工具列的四方形停止按鈕69第一個程式HelloWorld!(Cont.)結束程放入PDA執行將PDA放到與PC連接的槽上選擇功能表“PocketPC”，再執行一次。70放入PDA執行將PDA放到與PC連接的槽上14小電子鐘71小電子鐘15小電子鐘(Cont.)在Form上加一個物件Timer，並把屬性Name值設成tmrClock，Interval設為1000(0表示timer為disable)。Interval表示引發Timer事件的時間間隔，以千分之一秒為單位。72小電子鐘(Cont.)在Form上加一個物件Time小電子鐘(Cont.)雙擊Form編輯視窗，編輯tmrClock物件引發的Timer事件程序物件名稱事件名稱73小電子鐘(Cont.)雙擊Form編輯視窗，編輯tm小電子鐘(Cont.)本來應該是frmClock.Cls，但這一部份是在Form下執行，所以Form的名稱可以省略。74小電子鐘(Cont.)本來應該是frmClock.Cls小電子鐘(Cont.)75小電子鐘(Cont.)19小電子鐘(Cont.)76小電子鐘(Cont.)20FormPropertiesAutoRedrawBackColor黑:&H00000000&，白:&H00FFFFFF&Form.BackColor=vbBlack，vbRed…BorderStylevbBSNone：無外框，vbFixedSingle：單線固定式外框，vbSizable:可以變動大小的外框，vbFixedDialog，vbFixedToolWindow，vbSizableToolWindow。77FormPropertiesAutoRedraw21FormProperties(Cont.)CaptionClipControl：重繪時是要把整個視窗都重繪(TRUE)，還是只有把變動的區域重繪。CurrentX,CurrentYDrawMode：設定圖形輸出的外觀。TheexacteffectofaDrawModesettingdependsonthewaythecolorofalinedrawnatruntimecombineswithcolorsalreadyonthescreen.vbMergePen:Combinationofthepencolorandthedisplaycolor.vbMergeNotPen：Combinationofthedisplaycolorandtheinverseofthepencolor.78FormProperties(Cont.)CaptionFormProperties(Cont.)DrawStyle：線條輸出的樣式，VbSolid/VbDashDrawWidth(1~32767pixel)Enabled：表單是否處於啟動的狀態FillColor：設定填充於幾何圖形的顏色FillStyle：picFSSolid/picFSTransparentFont：設定Form上的字型，Form.Font.Bold=TRUE79FormProperties(Cont.)DrawStyFormProperties(Cont.)FontTransparent：設定文字周邊是否有透明的效果(TRUE：透明)ForeColor：前景顏色FormResize：設定Form是否可以改變大小。Height:設定Form高度KeyPreview：From對鍵盤事件(KeyDown，KeyUp，KeyPress)的反應。80FormProperties(Cont.)FontTraFormProperties(Cont.)Left：設定Form的左界Top,WidthMovable：Form是否可移動ScaleHeight：設定表單內部的高度ScaleLeftScaleMode：設定物件的座標單位ScaleTopScaleWidthShowOK：設定表單右上角會不會出現一個圓形的OK按鈕。81FormProperties(Cont.)Left：設定ScaleMode常數值內容VbUser0使用者自訂VbTwips1使用Twip(每一英吋為1440twips，每一公分為567twips)VbPoints2使用point(每一英吋有72points)VbPixel3PixelvbCharacters4字元(水平等於120twips，垂直240twips)VbInches5英吋vbMillimeters6公釐vbCentimeters7公分82ScaleMode常數值內容VbUser0使用者自訂VbTwFormProperties(Cont.)SIPBehavior：設定PDA畫面下方的輸入面版(SIP)何時出現vbSIPAlways：輸入面版一直出現vbSIPAutomatic：當使用者按到Edit或Combobox，輸入面版會自動出現vbSIPUser：完全由使用者自行控制SIPVisible：輸入面版是否可見，default=FALSETag：儲存應用程式額外的資料Visible：表單是否可見或隱藏83FormProperties(Cont.)SIPBehaFormMethods對表單操作(如：清除、顯示、隱藏、畫圓形、畫直線)ClsDrawCircle：object.DrawCirclex,y,radius,[color],[aspect]，aspect預設值為1，代表圓形。若aspect絕對值大於1，代表是一水平軸短，垂直軸長的橢圓形。反之當aspect絕對值小於1，代表是一水平軸長，垂直軸短的橢圓形。84FormMethods對表單操作(如：清除、顯示、隱藏、FormMethods(Cont.)DrawLine：form.DrawLinex1,y1,x2,y2,[color],[boxfill]。boxfill如果沒有設定的話則是由起點到終點的一直線。若值是vbLineBox則畫出一個空的矩形。若值是vbLineBoxFill則畫出一個實心的矩形，其中顏色是color或是矩形邊線的顏色。HideMove：移動表單或改變表單的大小。object.Moveleft,[top],[width],[height]。left,top代表移動後表單的左界和上界。85FormMethods(Cont.)DrawLine：fFormMethods(Cont.)Point：取得表單上某一特定點的色彩數值。object.Point(x,y)PointSet：設定表單上某一特定點的色彩數值。Object.PointSetx,y,colorRefresh：將表單上所有的物件重繪SetScale：重新定義表單上物件的座標系統。object.SetScalex1,y1,x2,y2，x1,y1是新座標系統的左上角，x2,y2則是右下角。86FormMethods(Cont.)Point：取得表單FormMethods(Cont.)ScaleX，ScaleY：由原來的ScaleMode轉換到其他單位時，轉換之前的水平(或垂直)座標單位至新的水平(或垂直)座標單位。object.ScaleX(value，fromscale，toscale)。value：轉換前測量單位的數值，fromscale：要被轉換的座標系統，toscale：轉換成的座標系統。SetFocus：Movefocustoafromorcontrol。Object.SetFocus87FormMethods(Cont.)ScaleX，ScaFormMethods(Cont.)Show：顯示表單。TextHeight、TextWidth：依照目前form的字型設定，取得目前字串的高度(寬度)。object.TextHeight(string)。ZOrder：設定表單在被遮蓋時的先後次序。object.Zorderposition。IfpositionisvbBringToFrontoromitted,objectispositionedatthefrontofthez-order.IfpositionisvbSendToBack,objectispositionedatthebackofthez-order.88FormMethods(Cont.)Show：顯示表單。FormEventsActivate：使表單成為使用中的視窗。PrivateSub_xxx_Activate()，xxxisaform。AformbecomesactivewhenyouusetheShoworSetFocusmethodsincodeorwhenauserinitiatesanaction,suchaschoosinganobject.Click：PrivateSub_xxx_Click()，xxxisanobject。DblClick：PrivateSub_xxx_DblClick()，xxxisanobject。89FormEventsActivate：使表單成為使用中的視FormEvents(Cont.)DeactivateGotFocus：表單物件取得焦點。PrivateSubxxx_GotFocus()KeyDown：使用者按下按鍵。PrivateSubxxx_KeyDown(keycode，shift)，keycode：Keycode,suchasvbKeyHome(theHOMEkey).shift：IntegerthatcorrespondstothestateoftheSHIFT,CTRL,andALTkeysatthetimeoftheevent.90FormEvents(Cont.)Deactivate3FormEvents(Cont.)KeyPress：使用者按下並放開一個ANSI字元鍵盤所引發的事件。PrivateSubxxx_KeyPress(keyascii)，keyascii：IntegerthatreturnsastandardnumericANSIkeycode.KeyUP：放開鍵盤。PrivateSubxxx_KeyUp(keycode，shift)。Load：載入表單。PrivateSubxxx_Load，xxxisaform。Forastartupform,theeventoccurswhenanapplicationstarts.Thiseventalsooccurswhenaformisfirstshownorastheresultofareferencetoanunloadedform'spropertiesorcontrols.91FormEvents(Cont.)KeyPress：使用FormEvents(Cont.)LostFocus：表單物件失去焦點，PrivateSubxxx_LostFocus(

)，xxxisanobject.MouseDown：按下滑屬鍵，PrivateSubobject_MouseDown(button,shift,x,y)button：Integerthatidentifiesthechosenbutton,eithertheleft，middleortherightbutton.shift：ReturnsanintegerthatcorrespondstothestateoftheSHIFT,CTRL,andALTkeyswhenauserpressesorreleasestheleftorrightbutton,asspecifiedinthebuttonparameter.x,

y：Returnsanumberthatspecifiesthecurrentlocationofthepointerofthemousedevice.92FormEvents(Cont.)LostFocus：表FormEvents(Cont.)MouseMove：移動滑鼠。PrivateSubobject_MouseMove(button,shift,x,y)MouseUp：放開滑鼠。PrivateSubobject_MouseUp(button,shift,x,y)OKClick：按下表單上的OK鍵。PrivateSubform_OnOKClick()Paint：原本被遮蓋的物件，當遮蓋物移走時會觸發此事件重繪視窗。另外視窗大小改變也會觸發此事件。PrivateSubobject_Paint(

)93FormEvents(Cont.)MouseMove：移FormEvents(Cont.)QueryUnload：Thiseventoccursimmediatelybeforeaformorapplicationcloses.PrivateSubForm_QueryUnload(cancel,unloadmode)。cancel：Integer.Settingthisparametertoanyvalueotherthan0stopstheformandapplicationfromclosing.unloadmode：ValuethatindicatesthecauseoftheQueryUnloadevent.Theunloadmodeparameterisalways0.IfyouuseApp.Endtoterminateanapplication,formsdonotexecutetheQueryUnloadandUnloadevents.94FormEvents(Cont.)QueryUnloadFormEvents(Cont.)Resize：ThiseventoccurswhenaformorPictureBoxcontrolisfirstdisplayedorwhenthewindowstateofaformchanges.PrivateSubform_Resize()PrivateSub

picturebox_Resize(height,width)。height：Newheightofthecontrol.width：Newwidthofthecontrol.95FormEvents(Cont.)Resize：ThisFormEvents(Cont.)SIPChange：輸入面版的狀態（顯示或不顯示)有改變時，會引發此事件。PrivateSubform_SIPChange(Boolean)，Boolean：Booleanthatreturnsadisplaystateoftheinputpanel.TheSIPChangeeventoccurswhentheinputpanelisdisplayedorhidden.ReturnsTRUEiftheinputpanelisdisplayed,FALSEiftheinputpane