VBNET程序设计实用教程6

《VBNET程序设计实用教程6》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB.NET程序设计实用教程第6章Windows窗体与控件本章主要内容剪贴板演示程序我的电子相册程序石头、剪刀、布游戏程序课程选择程序日历时钟程序本章任务本章要点窗体的属性、方法和事件文本类控件的应用按钮类控件的应用列表类控件的应用图片框控件的应用进度条、滚动条、定时器、轨迹条等控件的应用6.1窗体与控件概述Windows窗体和控件是利用VB.NET开发Windows应用程序的基础，在VB.NET的应用程序中，窗体和控件都是对象，都是类的实例。Windows窗体是可视化程序设计的基础界面，用来作为其它控件对象的载体或容器。控件是添加到窗体上的对象，是界面上的要素，每种类型的控件

2、都有一套属性、方法和事件，都实现某种特定的功能。6.1窗体与控件概述在前面章节的各任务中，已经学习了窗体的一些知识，知道窗体就是Windows的窗口。也用到了一些常用的控件，如Label控件、TextBox控件、Button控件等，知道这些控件可以作为界面上的要素，都能实现一定的功能。在VB.NET中，Windows窗体和控件有很多，本章将通过5个任务详细介绍常用Windows窗体和控件的属性、方法、事件及使用方法。6.2任务6-1：我的电子相册程序——窗体与图片框任务6-1描述：编写一个我的电子相册程序，程序的设计界面如图6-1所示。程序运行时将会出现如图6-2所示的“欢迎”

3、对话框，图6-2程序运行时出现的“欢迎”对话框图6-1程序设计界面6.2任务6-1：我的电子相册程序——窗体与图片框用户输入姓名后单击“确定”按钮将会进入电子相册（不需要姓名，将无法进入），如图6-3所示。当用户改变窗体大小时，照片自动改变大小以填满窗体。用户可以通过微调控件输入照片序号，也可以通过滚动条输入照片序号来显示相应的照片，并且微调按钮和滚动条的输入可以相互更新。图6-3程序运行界面6.2任务6-1：我的电子相册程序——窗体与图片框显示的照片文件存放在应用程序目录下，文件名任意，照片的张数任意。只需单击“单击”按钮，将会出现6-4所示的“再见”对话框，单击“确定”按钮

4、将退出应用程序。图6-4“再见”对话框6.2任务6-1：我的电子相册程序——窗体与图片框窗体有一个事件Load，该事件在窗体加载时发生，故为了使程序刚开始执行时就显示出欢迎对话框，可在该事件过程中调用InputBox函数来实现。窗体有一个名为Closing的事件，该事件在窗体关闭时发生，因此可在该事件中调用MsgBox函数显示出“再见”对话框。显示照片可使用PictureBox控件（图片框控件），为使照片填满图片框控件，必须设置图片框控件的SizeMode属性值为StretchImage，并且在窗体刚加载时或改变大小时，把图片框的大小设置与窗体的大小一致。当窗体的大小发生改变时

5、，将会发生窗体的Resize事件，因此可以在该事件中重新设置图片框的大小。为了显示当前文件夹下的多张照片，可设置一个字符串数组用来存放所有照片的文件名，并通过Directory类的GetFiles方法获得所有照片的文件名。通过序号显示照片时，只需把序号值减1作为存放照片文件名的数组元素的下标，对应的元素值就是要显示的照片文件名，通过程序把该照片文件在图片框中显示出来即可。为实现HScrollBar控件（水平滚动条控件）与NumericUpDown控件（微调控件）的相互更改，可在NumericUpDown控件的ValueChanged事件中把它的Value属性值赋值给HScrol

6、lBar控件的Value属性，在HScrollBar控件的Scroll事件中把它的Value属性值赋值给NumericUpDown控件的Value属性。6.2任务6-1：我的电子相册程序——窗体与图片框任务实现：1.启动VB.NET，新建一个项目，项目类型为“Windows应用程序”，项目的存放位置为“D:VBTASKCH06”，项目名为“Task6_1”2.把Form1窗体的Text属性值设置为“我的相册”，把它的Name属性值设置为“frmPhoto”。单击“解决方案资源管理器”中的“Form1.VB”窗体3.然后在属性窗口中把它文件名属性设置为“frmPhoto.vb

7、”。然后执行【项目】→【Task6_1属性】命令，在出现的“Task6_1属性页”对话框中把“启动对象”设置为“frmPhoto”4.对照程序设计界面，为窗体添加控件并设置控件的属性。控件的属性设置如表6-1所示6.2任务6-1：我的电子相册程序——窗体与图片框表6-1任务6-1控件属性设置及其功能控件名属性名属性值说明PictureBox1（PictureBox控件）BorderStyleDockFixed3DBottom显示相片Panel1（Panel控件）BorderStyleFixe