VB程序设计 第六章 常用控件

VisualBasic程序设计教程ptc.imust.cn内蒙古科技大学实践训练中心第六章常用控件6.1图形控件6.1.1图片框和图像框1、图片框(PictureBox)图片框(PictureBox)主要用来显示图片和图像。可以显示的图形文件格式：位图()*.bmp；图标(*.ico)、光标(*.cur)、元文件(*.wmf)、增强的元文件(*.emf)、JPEG文件(*.jpg)、GIF文件(*.gif)；在图片框中显示图片的方法：⑴在属性窗口设置Picture属性；⑵在代码中使用LoadPicture()函数载入图片：图片框对象名.Picture=LoadPicture(“图形文件名”)其中：图形文件名是包括路径在内的图形文件名。6.1图形控件6.1.1图片框和图像框清除图片框中的图形的方法：⑴在属性窗口中直接删除Picture属性内容；⑵在代码中使用LoadPicture()函数清除图片：图片框对象名.Picture=LoadPicture(“”)或图片框对象名.Picture=LoadPicture()图片框自动缩放：修改AutoSize属性值为True，则图片框自动调整大小以适应图形。6.1图形控件6.1.1图片框和图像框图片框还可以显示用Print方法产生的文本和用图形方法绘制的图形，其清除方法：图片框对象名.Cls图片框还可以作为其他控件的容器：当图片框移动时，图片框内的其他控件也随之移动；对于这些控件而言，其Top、Left属性是相对于图片框而言的；6.1图形控件6.1.1图片框和图像框2、图像框(Image)与图片框的区别：⑴图片框是容器控件，而图像框不能作为容器；⑵图片框可以利用Print方法显示文本，图像框则不能；⑶图像框比图片框占用内存少，显示速度快，故当两者都满足设计者的要求时，优先考虑图像框；⑷图片框用AutoSize属性控制图片框的尺寸自动适应图片的大小，图像框用Stretch属性对图片进行大小调整；6.1图形控件6.1.1图片框和图像框2、图像框(Image)对于加载到图片框或图像框的图片，可使用SavePicture命令将图形保存到磁盘上。SavePicture对象名.属性,文件名其中：对象名为选定的图片框或图像框；属性为图形属性，如Picture；文件名指图形保存的文件名，目前只支持BMP文件；6.1图形控件6.1.1图片框和图像框例[6-1_1]图片框示例。在窗体上画一个图片框，名为P1，高为1900，宽为2400，编写适当的事件过程，使得在运行时若单击窗体，则装入D盘的文件名为Pic1.jpg的图片，若双击窗体，则窗体中的图片消失。解题思路：装入图片的方法：Loadpicture(“d:\pic1.jpg”)；清除图片的方法：Loadpicture(“”)或Loadpicture();PrivateSubForm_Click()P1.Picture=LoadPicture(d:\pic1.jpg)EndSubPrivateSubForm_DblClick()P1.Picture=LoadPicture()EndSub6.1图形控件6.1.1图片框和图像框例[6-1_2]交换图形。编写程序，交换两个图像框中的图形。解题思路：交换两个变量的值一般要引入第三个变量进行交换。本题借助于第三个图像框实现交换。Image3.Picture=Image1.PictureImage1.Picture=Image2.PictureImage2.Picture=Image3.Picture6.1图形控件6.1.2形状(Shape)和直线(Line)1、形状(Shape)功能：用来画矩形、正方形、椭圆、圆、圆角矩形及圆角正方形。形状控件放置到窗体上或图片框上时，原始显示为正方形，通过设置Shape属性可得到需要的图形。Shape属性值形状0矩形(默认)1正方形2椭圆3圆4圆角矩形5圆角正方形另：BorderColor：设置形状的边框颜色；FillStyle：填充类别，取值范围：0-7，分别表示不同的填充方式FillColor：形状的填充颜色6.1图形控件6.1.2形状(Shape)和直线(Line)2、直线(Line)功能：用来画水平线、垂直线或对角线。通过设置该控件的位置、长度、颜色、宽度、线型等属性可产生不同风格的、不同颜色的直线。⑴BorderStyle：用于设置线条的类型；BorderStyle属性值形状0透明线1实线(默认值)2虚线(BorderWidth＝1时有效)3点线(BorderWidth＝1时有效)4点划线(BorderWidth＝1时有效)5双点划线(BorderWidth＝1时有效)6内收实线，边框的外边界就是形状的外边缘6.1图形控件6.1.2形状(Shape)和直线(Line)2、直线(Line)⑵BorderWidth：用于设置线条的宽度，即线条的粗细；⑶BorderColor：由于设置线条的颜色；例[6-1_3]形状控件实例。在窗体上利用形状控件画一个矩形，名称为Shape1，高和宽分别为1000、1700；再画两个命令按钮，名称分别为command1、command2，标题分别为“绿色椭圆”，“红色圆”。解题思路：形状的属性shape＝2为椭圆；形状的属性shape＝3为圆；PrivateSubCommand1_Click()Shape1.Shape=2'shape＝2为椭圆Shape1.BorderColor=vbGreen'边框为绿色EndSubPrivateSubCommand2_Click()Shape1.BorderColor=vbRed'边框颜色为红色Shape1.Shape=3'shape＝3为圆EndSub6.1图形控件6.1.2形状(Shape)和直线(Line)例[6-1_4]用形状控件和直线控件绘制直方图。解题思路：首先画出x轴(line1)和y轴(line2)，根据输入的四个值；首先确定四个标签（显示输入值）的位置；用输入的四个值来代替四个形状的高度(Height)；再根据其代表的值确定形状的顶部坐标（TOP）；label1label2label3label4(x1,y1)(x1,y2)(x2,y1)heighttopLine1Line26.1图形控件6.1.3图形方法使用绘图方法，首先确定所画图形的位置，这就需要先确定坐标系。当新建一个窗体时，新窗体采用缺省坐标系，坐标原点在窗体左上角，Height＝3600，Width＝4800，ScaleHeight＝3195，ScaleWidth＝4680。其中：ScaleHeight和ScaleWidth为窗体的实际可用的高度和宽度。自定义坐标系的方法：[对象名].Scale[(xLeft，yTop)－(xRight，yBottom)]其中：(xLeft，yTop)、(xRight，yBottom)为对象左上角和右下角坐标窗体xleft,ytop左上角坐标右下角坐标xright,ybottom6.1图形控件6.1.3图形方法1、画点方法(Pset)用于在指定的位置以指定的颜色画点。格式：[对象名].Pset[step](x,y)[,颜色]其中：对象名：窗体或图片框（picturebox）的名称；Step：可选项，有该参数，表明所画的点坐标(x，y)是相对坐标（相对于当前坐标点CurrentX，CurrentY），没有该参数，点坐标(x，y)为绝对坐标。颜色：点的颜色，若省略则采用对象的前景色(ForeColor)。如：Pset(70,70),RGB(255,255,0)‘设置点的颜色为RGB颜色Pset(70,70),BackColor’设置点的颜色为背景色6.1图形控件6.1.3图形方法例[6-1_5]窗体上随机画带颜色的点，实现满天星效果。解题思路：利用随机函数Rnd，确定每个点的随机坐标和颜色的随机值Dimm_x,m_y,m_red,m_green,m_blueAsLongScale(0,0)-(100,100)'自定义坐标DrawWidth=8'设置点的大小m_x=Rnd*100'设置随即坐标m_x,m_ym_y=Rnd*100m_red=Rnd*255'设置随机颜色m_green=Rnd*255m_blue=Rnd*255PSet(m_x,m_y),RGB(m_red,m_green,m_blue)'画点6.1图形控件6.1.3图形方法例[6-1_6]用Pset方法绘制以下参数方程决定的曲线x＝sin2t*cost0≤t≤2πy=sin2t*sint0≤t≤2π解题思路：根据方程：x、y的值均在－1～1之间，所以自定义坐标系：将窗体的坐上角的坐标设为（-1，1）；右下角的坐标为（1，-1）；即：scale（-1，1）-（1，-1）(0,0)(1,0)xy(-1,0)窗体Dimt,x,yAsSingleScale(-1,1)-(1,-1)ForeColor=vbRedFort=0To2*3.1415926Step0.001x=Sin(2*t)*Cos(t)y=Sin(2*t)*Sin(t)PSet(x,y),RGB(255,0,0)Next6.1图形控件6.1.3图形方法2、画直线、矩形方法Line方法可用于画直线和矩形；格式：[对象名].Line[Step(x1，y1)]－[Step](x2，y2)[，颜色][，B[F]]其中：对象名：窗体或图片框（picturebox）；Step：可选项，有该参数时，表示坐标为相对于当前点的坐标，否则为绝对坐标。(x1,y1)：起点坐标；若省略，则表示起点为(currentX，currentY)(x2,y2)：终点或右下角坐标颜色：直线或矩形的颜色，若省略则使用ForeColor属性指定的颜色B：若有B，则以(x1,y1)为左上角，以(x2,y2)为右下角坐标画矩形；F：在选择参数B后才能选择，有F表示矩形以矩形边框的颜色填充，否则，矩形用属性Fillcolor和Fillstyle填充；6.1图形控件6.1.3图形方法2、画直线、矩形方法例[6-1_7]用Line方法画三角形和矩形。解题思路：画三角形：前一条直线的终点就是后一条直线的起点,依次画完三条线就构成三角形。rem自定义坐标系,左上角(0,0),右下角(100,100)Scale(0,0)-(100,100)DrawWidth=5rem画三角形Line(10,30)-(10,80),vbRed'(10,30)-(10,80)Line-(40,80),vbGreen'(10,80)-(40,80)Line-(10,30),vbBlue'(40,80)-(10,30)rem画矩形Line(50,30)-(80,80),vbRed,BF6.1图形控件6.1.3图形方法3、画圆方法Circle方法用于画圆、椭圆、圆弧和扇形；格式：[对象名].Circle[Step](x，y),radius,[color]，[start]，[end][，aspect]其中：对象名：窗体或图片框；Step：可选项，有该参数时表示坐标为相对于当前点的坐标，否则为绝对坐标。(x,y)：中心坐标Radius：半径Color：边框颜色，若省略则使用ForeColor属性指定的颜色；Start，End：指定弧的起始、终止位置，以弧度为单位，取值：－2π～2π；负号表示在画弧的同时，还画出圆心到弧的的端点的连线；Aspect：表示纵轴和横轴的尺寸比，Aspect1，则表示在x轴方向画椭圆，Aspect1，表示在y轴方向画椭圆，默认为1；6.1图形控件6.1.3图形方法3、画圆方法例[6-1_8]用Circle方法画圆。Scale(0,0)-(100,100)'自定义坐标系Constpi=3.1415926Circle(25,50),20'画标准圆Circle(25,50),20,vbGreen,,,0.5'画绿色椭圆，纵横比0.5Circle(25,50),20,vbRed,,,2'画红色椭圆，纵横比2Circle(75,