VB制作窗体程序基础

任务一：保持窗体上的标签文本居中任务一：保持窗体上的标签文本居中在工具箱中单击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：显示颜色对话框④