资源描述：
《第6章常用控件讲解》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、第6章常用控件主要内容6.1图形控件6.2选择性控件6.3滚动条6.4时钟6.5高级控件6.6综合应用程序举例学习目标掌握图片框、图像框控件的属性重点掌握单选框、复选框、框架、计时器、列表框、组合框的使用掌握常用控件与控制结构相结合的综合应用程序画点、线及圆的方法6.1图形控件6.1.1图片框和图像框1.图片框:显示图片图像1）Picture属性:存放图形文件图片框对象名.Picture=LoadPicture(“图形文件名”)使用代码清除图片:图片框对象名.Picture=LoadPicture()Ali
2、gn属性：决定图片框的位置，为1时，位于窗体的顶部6.1图形控件6.1.1图片框和图像框1.图片框:3）Autosize属性:调整图片框的大小以适应图形尺寸。Autosize=True例:添加两个同样大小的图片框,把图片框picture2的Autosize属性设置为True,则效果如图所示.6.1图形控件6.1.1图片框和图像框2.图像框ImageStretch属性当Stretch=false(默认)时，图像框自动调整大小，以适应加载到图像框中的图形。当Stretch属性设置为True时,所装入的图形能够自
3、动缩放以适应图像框的大小。例:添加如图所示两个图像框,然后通过picture属性加两个图片,结果如图二所示,将图象框的Stretch属性设置为True,结果如图三Stretch=false时Stretch=True时6.1图形控件6.1.1图片框和图像框例6-1-2:程序运行后,单击命令按钮“加载图片”,则显示左图,单击”交换图片”,则显示右图,单击”清除图片”,则清除图像框中的图片.1.设计界面及属性添加三个命令按钮并设置Caption属性添加三个图像框,把第三个图像框Image的Visible属性设置为
4、False6.1图形控件6.1.1图片框和图像框2.编写代码:PrivateSubCommand1_Click()'加载Image1.Picture=LoadPicture(App.Path+"蔡依林.jpg")Image2.Picture=LoadPicture(App.Path+"周杰伦.jpg")EndSubPrivateSubCommand2_Click()'交换Image3.Picture=Image1.PictureImage1.Picture=Image2.PictureImage2.Pi
5、cture=Image3.PictureEndSubPrivateSubCommand3_Click()'清除Image1.Picture=LoadPictureImage2.Picture=LoadPictureEndSub6.1.2形状和直线1.形状(Shape)Shape控件可以用来画矩形、正方形、椭圆、圆、圆角矩形及圆角正方形。当Shape控件放到窗体时显示为一个矩形，通过Shape属性可确定所需要的几何形状。6.1.2形状和直线-形状控件1）Shape属性：设置其显示形状Shape属性描述0矩形1
6、正方形2椭圆3圆4圆角矩形5圆角正方形6.1.2形状和直线-形状控件2）FillStyle属性：设置FillStyle属性可以构成不同的填充效果。FillStyle属性可以在0-7之间取值。FillStyle属性描述0实心1透明2水平线3垂直线4左上对角线5右下对角线6交叉线7对角交叉线6.1.2形状和直线直线:直线控件用来画水平线、垂直线和对角线.BorderStyle属性:设置线条的类型。0透明线1实心线(默认值)2长划线3点线4点划线5点点相间的长划线6内部实线2)BorderWidth属性:设置线条
7、的宽度，即线条的粗细,默认值为1。3）BorderColor属性：设置线条的颜色。4）X1、Y1、X2、Y2属性：确定直线起点、终点的坐标6.1.2形状和直线例:6-4形状控件的应用,添加一个形状控件和两个命令按钮,程序运行如图1,单击”绿色椭圆”,则如图2,单击”红色圆”,则如图3.6.1.2形状和直线PrivateSubCommand1_Click()Shape1.BorderColor=vbGreenShape1.Shape=2'椭圆Shape1.FillStyle=3'垂直线填充EndSubPriv
8、ateSubCommand2_Click()Shape1.BorderColor=vbRedShape1.Shape=3Shape1.FillStyle=4EndSub6.1.3图形方法坐标系的确定:当新建一个窗体时,新窗体采用缺省坐标系,坐标原点在窗体左上角.窗体的高度Height:3600窗体的宽度Width:4800窗体实际可用高度ScaleHeight:3195窗体实际可用宽度ScaleWidth:468
