Visual Basic程序设计案例教程 刘红梅 第4章

《Visual Basic程序设计案例教程 刘红梅 第4章》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第4章使用常用控件创建应用程序界面任务描述4.1任务分析4.2创建“学生信息录入”窗体4.3学习目标理解掌握常用控件的界面设计、属性设置；理解掌握常用控件方法的运用、事件的调用；学会运用常用控件设计应用程序。重点和难点重点：单选按钮、复选框、列表框和组合框的属性、事件及方法；难点：利用常用控件设计应用程序。课时安排讲授4学时，实训4学时4.1任务描述在界面设计中，除了用到基本控件：文本框、命令按钮和标签之外，还要用到很多控件。为了创建“学生信息录入”窗体，要用到图片框、列表框、单选钮、复选框、框架等

2、。本章详细介绍VisualBasic6.0常用控件的使用方法。4.2任务分析要在VisualBasic6.0中创建“学生信息录入”窗体，如图4-1所示。需要在窗体中添加如下控件：8个标签、3个文本框、2个命令按钮、1个框架、2个单选钮、1个组合框、1个下拉列表框、1个图片框等。各控件的属性设置在学习了控件之后，再进行设计。4.2任务分析图4-1“学生信息录入”窗体4.3创建“学生信息录入”窗体4.3.1图片框（PictureBox）4.3.2图像框（Image）4.3.3复选框（CheckBox）和

3、单选按钮（OptionButton）4.3.4列表框（ListBox）4.3.5组合框（ComboBox）4.3.6框架（Frame）4.3.7水平滚动条（HScrollBar）和垂直滚动条（VScrollBar）4.3.8计时器（Timer）4.3创建“学生信息录入”窗体4.3.1图片框（PictureBox）图片框用来显示图形，显示Print方法输出的文本，也可以作为其他控件的容器。1．属性除了和其他控件共有的属性之外，图片框的主要属性还有：（1）Picture（图片）属性。指定图片框中显示的图

4、形。既可以在属性窗口中设置，又可以在代码中实现。单击属性窗口中的“Picture”属性，右边出现“对话框”按钮。单击此按钮，打开“加载图片”对话框，如图4-2所示。4.3.1图片框（PictureBox）图4-2“加载图片”对话框4.3.1图片框（PictureBox）单击“文件类型”下拉列表框右边的箭头，下拉出文件类型列表，如图4-3所示。可以看到图片框可以加载的图形文件类型有：BMP、GIF、JPG、WMF、ICO等格式的文件。图4-3加载图形类型4.3.1图片框（PictureBox）在代码中

5、设置，需要用函数LoadPicture()。LoadPicture()函数的功能是将图形文件装入图片框或图像框。语句格式如下：对象名.Picture=LoadPicture([filename])说明：①对象名：要加载图形的图片框、图像框或窗体的名称。②filename：指定被显示图形的包含路径的文件名。③当函数后没有指定文件名，可以清除图形。4.3.1图片框（PictureBox）（2）AutoSize（自动大小）属性。决定控件是否能自动调整大小以显示所有的内容。属性值为True（真）和False

6、（假）。当属性值设置为True时，表示控件大小能自动调整，以显示全部内容。当属性值设置为False时，表示控件大小不能自动调整，超出控件区域的图形内容不被显示。此值为默认值。4.3.1图片框（PictureBox）例4-1设计程序，实现在图片框中加载图形，调整图形的大小，观察图形在图片框中的显示情况。（1）设计界面。在窗体上添加1个图片框和4个命令按钮。（2）设置属性。控件属性设置如表4-1所示。4.3.1图片框（PictureBox）表4-1例4-1控件属性设置控件属性名属性值图片框NamePic

7、ture1命令按钮NameCaptionCommand1犹抱琵琶半遮面命令按钮NameCaptionCommand2千呼万唤始出来命令按钮NameCaptionCommand3加载命令按钮NameCaptionCommand4清空4.3.1图片框（PictureBox）设计后的界面如图4-4所示。图4-4例4-1的设计界面4.3.1图片框（PictureBox）（3）编写代码。双击窗体，打开代码窗口，输入如下代码：PrivateSubForm_Load()Command1_ClickCommand3

8、_ClickEndSubPrivateSubCommand1_Click()Picture1.AutoSize=FalsePicture1.Height=260EndSubPrivateSubCommand2_Click()Picture1.AutoSize=TrueEndSub4.3.1图片框（PictureBox）PrivateSubCommand3_Click()Picture1.Picture=LoadPicture("C:ProgramFilesMicr