VB制作窗體程序基礎(chǔ)

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