条形码-第2章-Visual-Basic绘图基础课件

浙江科技学院教信系计算机基础教学网站：,www.Goit.Net,版权,山东科技大学物流与车辆工程系,第二章,Visual Basic绘图基础,1.了解Visual Basic坐标系统,。,2.了解Visual Basic图形控件,。,3.了解Visual Basic颜色设置,。,4.了解Visual Basic绘图方法。,本章要求：,第二章 Visual Basic绘图基础 1.了,2.1 Visual Basic坐标系统,Visual Basic 的坐标系统是指在屏幕（screen）、窗体(form)、容器(container)上定义的表示图形对象位置的平面二维格线，一般采用数对（x,y）的形式定位。其中，x 值是沿 x 轴点的位置，最左端是默认位置 0。y 值是沿 y 轴点的位置，最上端是默认位置 0。,在Visual basic坐标系中，沿坐标轴定义位置的测量单位统称为刻度，坐标系统的每个轴都有自己的刻度。坐标轴的方向、起点和刻度都是可变的。,2.1 Visual Basic坐标系统 Vi,一、通过ScaleMode属性设置坐标系统,2.1 Visual Basic坐标系统,一、通过ScaleMode属性设置坐标系统,当ScaleMode属性值为0时，用户可以创建自定义坐标系统，通过设置ScaleLeft、ScaleTop、ScaleWidth和ScaleHeight属性的值，来创建所需的坐标系统。,Scaleleft：设置对象左边距值。,Scaletop：设置对象上边距值。,Scalewidth：设置对象宽度。,Scaleheight：设置对象高度。,二、自定义坐标系统,2.1 Visual Basic坐标系统,当ScaleMode属性值为0时，用户可以创建自定义坐标系统,定义形式如下：,object.scale(x1,y1)(x2,y2),Scale 方法的语法包含内容如下所示：,三、使用scale方法定义坐标系统,2.1 Visual Basic坐标系统,部分,描述,object,可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则带有焦点的 Form 对象默认为,object,x1,y1,可选的。均为单精度值，指示定义 object 左上角的水平（x-轴）和垂直（y-轴）坐标。这些值必须用括号括起。如果省略，则第二组坐标也必须省略,x2,y2,可选的。均为单精度值，指示定义 object 右下角的水平和垂直坐标。这些值必须用括号括起。如果省略，则第一组坐标也必须省略,定义形式如下：三、使用scale方法定义坐标系统 2.1 V,在Visual Basic系统中，常用的图形控件有直线控件Line和形状控件Shape，利用这两种图形也可绘制一般的几何图形，如使用Shape可以产生圆、矩形等形状，编程简单，所需的系统资源较少。Line和Shape控件在Visual Basic的工具箱中的位置和形状。,2.2 Visual Basic图形控件,在Visual Basic系统中，常用的图形控件有直线控件L,当ScaleMode属性值为0时，用户可以创建自定义坐标系统，通过设置ScaleLeft、ScaleTop、ScaleWidth和ScaleHeight属性的值，来创建所需的坐标系统。,Scaleleft：设置对象左边距值。,Scaletop：设置对象上边距值。,Scalewidth：设置对象宽度。,Scaleheight：设置对象高度。,一、Line直线控件,2.2 Visual Basic图形控件,当ScaleMode属性值为0时，用户可以创建自定义坐标系统,（1）BackStyle、BorderColor、BorderStyle、BorderWidth、FillStyle、Index和Visible属性同直线控件对象。,（2）BackColor属性。用于返回或设置对象的背景颜色。如果 BackStyle 属性的设置值为 0（透明），则忽略 BackColor 属性。,（3）Shape属性。用于返回或设置一个值，该值指示一个 Shape 控件的外观。,（4）位置和大小属性。Left、Top属性用于设置shape控件的左上角坐标位置，Width和Height属性用于设置Shape控件的宽度和高度。,例：已知在EAN-13商品条码中，每一个条码字符均由7个模块组成，用直线控件表示一个字符的模块组成。,二、Shape控件,2.2 Visual Basic图形控件,（1）BackStyle、BorderColor、Borde,在设置窗体的背景色BackColor时，单击右侧的颜色值，从该图中可以选择系统颜色。,一、,调色板,2.3 Visual Basic颜色,在设置窗体的背景色BackColor时，单击右侧的颜色值，从,RGB颜色是Red（红）、Green（绿）和Blue（蓝）英文的缩写，RGB函数通过三原色的值设置一种混合颜色。RGB函数的使用格式如下：,RGB(红色值,绿色值,蓝色值),红色、绿色和蓝色三种颜色值均为0255之间的整数，0表示某种颜色的亮度最低，255表示某种颜色的亮度最高。,二、,RGB颜色,2.3 Visual Basic颜色,RGB颜色是Red（红）、Green（绿）和Blue（蓝）英,Visual Basic保留了Quick BSAIC的QBColor函数，QBColor是程序运行过程中改变颜色的方法之一，用于选择 16 种 Microsoft QuickBasic颜色中的一种。QBColor函数的用法格式如下：,QBColor(颜色值),其中“颜色值”的取值范围是015，共可表示16种颜色。,三、,QBColor,2.3 Visual Basic颜色,Visual Basic保留了Quick BSAIC的QBC,四、VB中的颜色常数,2.3 Visual Basic颜色,文字常数,值,颜色,vbBlack,&H0,黑色,vbRed,&HFF,红色,vbGreen,&HFF00,绿色,vbYellow,&HFFFF,黄色,vbBlue,&HFF0000,兰,vbMagenta,&HFF00FF,洋红,vbCyan,&HFFFF00,青色,vbWhite,&HFFFFFF,白色,四、VB中的颜色常数 2.3 Visual Basic颜色文,使用Line和Shape控件能制作简单的图形，使用过程中要加载多个这样的控件，在容纳多个Line或Shape控件的容器上构建其他图形时，应及时卸载或添加相关图形控件，操作起来较为烦琐，应用也不灵活。Visual Basic程序在窗体、打印机和图片框等对象或上控件提供了较为灵活的绘图方法，即采用直线Line、圆Circle等方法或采用API函数进行作图。图形方法可以实现一些图形控件无法达到的视觉效果。例如，使用图形方法能够创建圆弧或画单个像素，便于构成复杂的图形。,2.4 Visual Basic绘图,使用Line和Shape控件能制作简单的图形，使用过程中要加,格式：object.Cls,参数：object 所在处代表一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则带有焦点的 Form 就被认为是 object。,作用：清除运行时 Form 或 PictureBox 所生成的图形和文本。,一、Cls方法,2.4 Visual Basic绘图,格式：object.Cls一、Cls方法 2.4 Visua,格式：object.PSet Step(x,y),color,参数：object是可选的对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。,作用：将对象上的点设置为指定颜色。,所画点的尺寸取决于 DrawWidth 属性值。当DrawWidth为1时，PSet 将一个像素点设置为指定颜色；当DrawWidth大于1时，则点的中心位于指定坐标。,二、Pset方法,2.4 Visual Basic绘图,格式：object.PSet Step(x,y),格式：,object.Point(x,y),参数：object是可选的一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则为带有焦点的窗体对象名称。,作用：返回在Form或PictureBox上所指定磅的红-绿-蓝(RGB)颜色。,如果由x和y坐标所引用的点位于object之外，Point方法将返回-1,。,三、,Point,方法,2.4 Visual Basic绘图,格式：object.Point(x,y)三、Point方法,格式：object.Line Step(x1,1)Step(x2,y2),color,BF。,例如，下列语句在窗体上画一条斜线。,Line(0,0)-(1000,1000),在第一点坐标省略的情况下，使用Line方法绘制的直线的起点为在该对象上绘图或输出文字时的当前位置，由CurrentX和CurrentY属性表示。,四、,Line 方法,2.4 Visual Basic绘图,格式：object.Line Step(x1,1),格式：object.Circle Step(x,y),radius,color,start,end,aspect,绘制圆的格式为：,object.Circle Step(x,y),颜色,绘制圆弧的格式为：,Object.Circle Step(x,y),颜色,起始角,终止角,绘制椭圆的格式为：,Object.Circle Step(x,y),颜色,起始角,终止角,纵横比,五、,Circle方法,2.4 Visual Basic绘图,格式：object.Circle Step(x,y),格式：object.Print outputlist,参数：object是要输出文字的对象，可以是窗体、打印机、图片框；outputlist是要输出的文字内容。,功能：在窗体、打印机或图片框的指定位置输出文字。,在使用该方法时必须修改窗体、打印机或图片框的CurrentX和CurrentY属性的值，在当前位置输出文字。,六、,Print方法,2.4 Visual Basic绘图,格式：object.Print outputlist六、,格式：object.PaintPicture picture,x1,y1,width1,height1,x2,y2,width2,height2,opcode,例：已知窗体上有两个图片框控件，分别为Pic1和Pic2，其中Pic1中已加载了图片，使用PaintPicutre方法，在Pic2中显示Pic1的图片。,Private Sub Form_Click(),Pic2.PaintPicture Pic1.Picture,0,0,Pic2.Width,Pic2.Height,0,0,Pic1.Width,Pic1.Height,End Sub,七、,PaintPicture方法,2.4 Visual Basic绘图,格式：object.PaintPicture picture,在Visual Basic中除Line、Circle等方法外，还可以使用API函数进行图形设置，构造复杂的图形界面等。,例：已知EAN-13商品条码字符集5的A子集二进制字符串为0110001，使用有关的API函数绘制该条码并输出文字。,API函数中使用的坐标系单位是像素，在绘制该数字的条码时，指定每个模块的宽度为10个像素（清晰起见），绘图时在每个出现1的位置绘制矩形框并进行填充，出现0的位置则跳过。,八、,常用的API绘图函数,2.4 Visual Basic绘图,在Visual Basic中除Line、Circ,