任務一：保持窗體上的標簽文本居中任務一：保持窗體上的標簽文本居中在工具箱中單擊label1，設置Font屬性，把AutoSize屬性設置為True。代碼實現：PrivatePrivateSubForm_Resize”轉變窗體時重執行以下程序Label1.Left=Int(Form1.ScaleWidth/2)-Int(Label1.Width/2)Label1.Top=Int(Form1.ScaleHeight/2)-Int(Label1.Height/2)EndSubPrivatePrivateSubForm_Unload(CancelAsInteger)DimaAsIntegera=MsgBox(“是否關閉程序？“,vbQuestion+vbYesNo,信息提示“)Ifa=vbNoThen ”假設單擊否Cancel=1 ”不卸載EndIfEndSub效果圖片：學問鏈接：ScaleHeightScaleWidth,ScaleHeightScaleWidthWidth屬性HeightTop屬性和Left屬性定義的。Width屬性和Height任務二：制作鍵盤按鍵測試程序將Form窗體的KeyPreview屬性設置為Tru3個標簽控件LabelLabelLabel3代碼實現：PrivatePrivateSubForm_KeyPress(KeyAsciiAsInteger)”推斷是否按下了”推斷是否按下了Esc鍵，假設是則完畢程序IfKeyAscii=27ThenUnloadMeElse”假設不是則在標簽Label2中顯示所按鍵的字符和代碼“&Chr(KeyAscii)&“,ASCII“&KeyAsciiEndIfEndSubPrivatePrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)”Shift的值推斷SHIFT、CTRL、ALT鍵是否按下SelectCaseShiftCase1Label3.Caption=“Alt、Ctrl、Shift狀態：SHIFT鍵按下“Case2Label3.Caption=“Alt、Ctrl、Shift狀態：CTRL鍵按下“Case4Label3.Caption=“Alt、Ctrl、Shift狀態：ALT鍵按下“CaseElseLabel3.Caption=“Alt、Ctrl、Shift狀態：未按“EndSelectEndSubPrivatePrivateSubForm_KeyUp(KeyCodeAsInteger,ShiftAsInteger)Form_KeyDownKeyCode,ShiftEndSub ”調用文件過程效果圖片：學問鏈接：窗體的KeyPreview屬性窗體的KeyPreview屬性用于返回或設臵一個值，打算是否在控件的鍵盤大事之前激活KeyDown、KeyUpKeyPress。KeyPreview設臵，語法格式如下：窗體名.KeyPreview=Boolean其中Boolean為布爾表達式，指定如何接收大事。假設設臵為True，則窗體先接收鍵盤大事，然后是活動控件接收大事；假設設臵為Fals〔默認值，而窗體不接收鍵盤大事。用KeyPreview屬性可以生成窗體的鍵盤處理程序。例如，應用程序利用功能鍵時，需要在窗體級處理擊鍵，而不是為每個可以接收擊鍵大事的控件編寫程序。假設窗體中沒有可見和有效的控件，它將自動接收全部鍵盤大事。假設要在窗體級處理鍵盤大事，而不允許控件接收鍵盤大事時，也可以在窗體的KeyPreview大事中設臵參數KeyAscii0，在窗體的KeyDown大事中設臵參數KeyCode0.鈕控件有焦點時的Enter窗體的KeyPressKeyPressANSI〔ANSIASCII符1-12，語法格式如下：PrivateSubForm_KeyPress(KeyAsciiAsInteger)KeyAscii是返回一個標準數字ANSIKeyPreview屬性被設臵為True該大事。一個KeyPress大事可以引用任何可打印的鍵盤字符，一個來自標準字母表的字符或少數幾個特別字符之一的字符與CtrlEnterBackSpaceKeyPressChr(KeyAscii)函數將KeyPress大事獲得的標準數字ANSI的字符并在標簽中顯示。窗體的KeyUp屬性和KeyDownKeyPress代理不了的功能可以由KeyDown屬性和KeyUp一個對象具有焦點時按下(KeyDown)或松開(KeyUp)一個鍵時發生，語法格式如下：PrivateSubobject_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrivateSubobject_KeyUp(KeyCodeAsInteger,ShiftAsInteger)KeyCodevbKeyF1(F1vbKeyHome(HomeShift時在該大事發生時響應Shift、CtrlAltShift、CtrlAlt1、24CtrlAltShift6.有效的控件時才可以獲得焦點。KeyDown屬性和KeyUp大事可應用于大多數鍵，通常應用于鍵；在需要對按下和松開一個鍵都響應時，可使用KeyDown、KeyUp在以下狀況下，不能引用KeyDown屬性和KeyUp大事：窗體有一個命令按鈕控件且Default屬性設臵為True時的EnterCancel屬性設臵為TrueEscTab任務三：制作簡潔的繪圖程序鍵，則畫一條從上次畫圖位置觸發的線段。任務分析：要想實現這一任務，首先要定義鼠標在窗體中坐標的全局變量，有了全局變量，程序無論響應MouseMoveMouseDownMouseUpMouseDown和MouseMove代碼實現：”聲明窗體級變量，用于保存鼠標指針位置”聲明窗體級變量，用于保存鼠標指針位置PrivatemouseBX,mouseEX,mouseBY,mouseEYAsInteger”用于推斷是否開頭畫線Private”用于推斷是否開頭畫線PrivateNYcrwAsBooleanPrivateSubForm_LoadPrivateSubForm_Load”程序運行去除窗體上的內容Form1.Cls”將畫線狀態設為‘否’NYcrw=FalseEndSub”按下鼠標按鈕時執行以下大事過程”按下鼠標按鈕時執行以下大事過程PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)”按下鼠標左鍵開頭連續畫線IfButton=1ThenPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)”按下鼠標左鍵開頭連續畫線IfButton=1ThenmouseBX=XmouseBY=YNYcrw=TrueEndIf”按下鼠標右鍵畫直線IfButton=2ThenForm1.Line-(X,Y)EndIfEndSub”在窗體上移動鼠標時執行以下大事過程”在窗體上移動鼠標時執行以下大事過程PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)”當畫線狀態為TrueIfNYcrw=TrueThenForm1.Line(mouseBX,mouseBY)-(X,Y)mouseBX=XmouseBY=YEndIfEndSub”釋放鼠標按鈕時執行以下大事過程”釋放鼠標按鈕時執行以下大事過程PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)NYcrw=FalseEndSub效果圖片：學問鏈接：窗體的MouseDown、MouseUpMouseMove大事窗體的MouseDown大事和MouseUp大事時當按下(MouseDown)或者釋放(MouseUp)鼠標按鈕時發生的大事。語法格式如下：PrivateSubForm_MouseDown(buttonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)PrivateSubForm_MouseUp(buttonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)MouseMove的邊框內時，窗體和控件均能識別MouseMovePrivateSubFormMouseMove(buttonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)在上述鼠標大事過程中，參數Button返回一個整數，用來表示該大事的產生是按下(MouseDown)或者釋放(MouseUp)哪個鼠標按鍵引起的。Button1、24，分別對應于左按鍵、右按鍵及中間鍵分別對應于左按鍵、右按鍵及中間鍵。參數Shift返回一個整數，在Button整數對應于Shift、CtrlAltShift1、24，分別代表Shift、Ctrl和AltShiftCtrlAltShift6.XYMouseDownMouseUpClickDblClick用來識別和響應各種鼠標狀態，并把這些狀態看做獨立的大事。在按下鼠標按鍵并釋放時，ClickMouseDownMouseUpShiftCtrlAlt加鍵盤組合操作的代碼。這是ClickDblClickMouseDown3就是使用MouseDown大事和LinePrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Line-(X,Y)Circle(X,Y),100EndSub窗體的Line方法：窗體的Line方法用于在窗體上畫直線和矩形，語法格式如下：窗體名.Line(x1,y1)-(x2,y2)其中參數(x1,y1)是可選的，其數值類型為Single，指定直線或矩形的起始坐標。假設省略，線起始于由CurrentXCurrentY參數(x2,y2)是必需的，其數值類型為Single，指定直線或矩形的終點坐標。DrawWidth屬性DrawMode屬性值和DrawStyle屬性值。執行Line方法時，CurrentX屬性和CurrentY屬性被參數設臵為終點。這個方法不能用于With…EndWith任務四：創立標準對話框需要在“工程”菜單中選擇“部件”命令添加CommonDialog控件,如以下圖：代碼實現：”單擊轉變圖標按鈕時執行以下大事過程”單擊轉變圖標按鈕時執行以下大事過程PrivateSubCommand1_ClickOnErrorGoTonofile”啟用錯誤捕獲CommonDialog1.InitDir=“f:\“”指定對話框翻開時的默認名目CommonDialog1.Filter=“圖標文件(*.ico)|*.ico“”指定文件類型過濾器CommonDialog1.Filter=“圖標文件(*.ico)|*.ico“”指定文件類型過濾器CommonDialog1.CancelError=TrueCommonDialog1.ShowOpen”翻開對話框Label1.Caption=Form1monDialog1.FileNameForm1.Icon=LoadPicture(CommonDialog1.FileName)ExitSubnofile:IfErr.Number=32755ThenLabel1.CaptionElseLabel1.CaptionEndIfEndSub”通過標簽顯示所選文件名”更改窗體的圖標”單擊設置顏色按鈕時執行以下大事過程”單擊設置顏色按鈕時執行以下大事過程PrivateSubCommand2_ClickOnErrorGoTonofile”啟用錯誤捕獲CommonDialog1.CancelError=True”單擊取消時生成錯誤CommonDialog1.ShowColor”顯示顏色對話框BackColor=CommonDialog1.Colornofile:EndSub”更改窗體的背景顏色”單擊設置字體按鈕時執行以下大事過程”單擊設置字體按鈕時執行以下大事過程PrivateSubCommand3_ClickOnErrorGoTonofile”啟用錯誤捕獲Form1monDialog1.CancelError=True”單擊取消時生成錯誤”設置CommonDialog控件中與字體對話框相關的屬性CommonDialog1.Flags=cdlCFEffectsOrcdlCFBoth ”設置對話框選項CommonDialog1.FontName=Label1.FontName ”字體CommonDialog1.FontSize=Label1.FontSize ”大小CommonDialog1.FontBold=Label1.FontBold ”加粗CommonDialog1.FontStrikethru=Label1.FontStrikethruCommonDialog1.FontUnderline=Label1.FontUnderlineCommonDialog1.FontItalic=Label1.FontItalicCommonDialog1.ShowFontLabel1.FontName=CommonDialog1.FontNameLabel1.FontSize=CommonDialog1.FontSizeLabel1.FontBold=CommonDialog1.FontBoldLabel1.FontItalic=CommonDialog1.FontItalicLabel1.FontUnderline=CommonDialog1.FontUnderlineLabel1.FontStrikethru=CommonDialog1.FontStrikethruLabel1.ForeColor=CommonDialog1.Color”刪除線”下滑線”斜體nofile:nofile:EndSub效果圖片：學問鏈接：通用對話框(CommonDialog)控件：通用對話框(CommonDialog)控件供給一組標準的操作對話框，進展諸如翻開和保存文件，設臵打印選項，以及選擇顏色和字體等操作。在VisualBasic6.0件不在標準控件工具箱中，需要添加“MicrosoftCommonDialogControl6.0“部件。使用通用對話框時，可在窗體的任何位臵添加一個CommonDialog控件，并對其進展屬性設臵。工程設計階段在窗體上顯示的CommonDialog控件圖標，在程序運行時不會顯示。程序運行時想要顯示通用對話框，應當調用CommonDialog控件的以下方法：①：ShowOpen：顯示翻開對話框②：ShowSave：顯示另存為對話框③：ShowColor：顯示顏色對話框④