《图片框控件用以显示图片》由会员分享，可在线阅读，更多相关《图片框控件用以显示图片（23页珍藏版）》请在金锄头文库上搜索。
1、图片框,图片框控件用以显示图片，也可以作为其他对象的容器、显示图形方法的输出结果和Print方法输出的文本。,图片框,图片框加载图片的方法 设计时在属性窗口中点击“Picture”属性， 程序运行时Picture1.picture=loadpicture(filenam$) 常用属性Autosize, true时，自动包围图片大小 Align属性，0时为标准位置 1，2，3，4分别表示加载的图片靠图片框的上、下、左、右放置。,图片框常用方法,Print 与form中的print 相同 Cls 清除,影像框控件 img,Picture 属性，image1.picture=loadpicture(
2、filename$) Stretch, true时压缩或拉伸图片使得图片与影像框大小相同 图片框的 autosize 与 影像框的stretch属性 autosize 改变 框的大小，stretch改变图片的大小,常用事件,除了click外，还有 change, mousedown Mouseup,mousemove 下列事件过程可以显示鼠标在影像框控件上点击位置的坐标值。 Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 参数x、y为鼠标在影像框按下处的坐标值
3、。form1.Print X, Y End Sub Image控件可接受Click等事件，因此可以充当图形命令按钮。,形状控件,形状控件Shape1.shape 值代表不同的形状 0 矩形 VbShapeRectangle 1 正方形 VbShapeSquare 2 椭圆 VbShapeOval 3 圆 VbShapeCircle 4 圆角矩形 VbShapeRoundedRectangle 5 圆角正方形 VbShapeRoundedSquare,Shape1.borderstyle 0 透明 即无边 1 实线 缺省 2 长虚线(当borderwidth为1时） 3 虚线 4 点划线 5 双
4、点划线 6 内插实线 实线往图形里边画,形状控件,Fillstyle属性 填充属性 0 实心填充 1 透明 缺省 2 水平线填充 3 垂直线 4 斜线 5 反斜线 6网格 7 倾斜网格,形状控件,其他属性 BorderColor：设置边框颜色。 FillColor：设置填充颜色。 BorderWidth：设置边框宽度,6.1.4 直线控件,工具箱中直线控件的图标为 。直线控件缺省的控件名称为：Line1、Line2、，微软建议名称前缀为lin。直线控件与形状控件相似，但只用于画线。界面设计时可以通过鼠标操作调整线段的位置、长短和颜色等属性；程序运行时，可以通过改变直线的端点坐标（x1,y1）、
5、（x2,y2）来移动它或调整它的长短。同形状控件的边框样式属性一样，Line控件通过对BorderStyle属性的设置定义该控件所显示的直线的线形，其不同取值表示不同的线形，分别为透明、实线、长虚线、虚线、点划线、双点划线等。,6.2.1 容器坐标系,2控件自身宽度、高度的属性 (1) Width属性，该属性值为控件本身的宽度。 (2) Height属性，该属性值为控件本身的高度。 在图6-11中，如果拖动框架控件、改变其在窗体中的位置，框架控件的Top、Left属性可以被改变，而Width、Height属性不改变。 3容器（窗体、图片框）的坐标属性 (1) ScaleLeft属性，容器左上角
6、的横坐标，缺省值为0（启始值）。 (2) ScaleTop属性，容器左上角的纵坐标，缺省值为0 （启始值） 。 (3) ScaleWidth属性，容器内部的宽度值。 (4) ScaleHeight属性，容器内部的高度值 (5) CurrentX、CurrentY属性，分别表示当前点在容器内的横坐标、纵坐标。设置CurrentX、CurrentY属性后，所设值就是下一个输出方法的当前位置。,坐标刻度属性,Scalemode 值为1，单位为缇（缺省），1缇=0.01764mm 值为2，单位为磅，1磅=0.353mm 值为3，单位为像素 值为4，单位为字符，1字符宽6磅，高12磅 值为5，单位为英寸
7、 值为6，单位为毫米 值为7，单位为厘米,容器的坐标属性,1.scale 方法容器名.scale (x1,y1) (x2,y2)定义容器左上角起始坐标为 x1,y1容器右下角结束坐标为x2,y2 使用此方法后，不论容器大小如何变化，最大坐标总是 x2,y2 使用scale 后，scalemode的值变为0,容器常用事件,Mousedown Private Sub form1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) SHIFT 键（位 0），CTRL 键（位 1），以及 ALT 键（位 2）
8、最少二进制位的一个位字段。这些位的值分别等于 1，2，和 4。,例如：将窗体Form1的背景色设置为红色，也可以写作： Form1.BackColor=QBColor(12),表6-2 Color参数的设置值及对应的颜色,图形方法,画点 方法 pset Pset step(x,y),color 无step表示， 在x,y坐标处输出 容器的当前输出位置坐标为（容器名.CurrentX，容器名.CurrentY），加Step关键字则在坐标（容器名.CurrentX+x，容器名.CurrentY+y）位置画点。 该方法所画点的大小，取决于容器的DrawWidth属性值。DrawWidth用来设置绘图
9、线的宽度，值以像素为单位，取值范围是132767，缺省值为1即一个像素宽。 Point（x,y) 返回某点的颜色值,2返回某点颜色值的函数Point 格式：Point(x,y) 该函数的返回值为点(x,y)的颜色值。 如执行语句“C=Point(50,100)”，将窗体坐标(50,100)处点的颜色值存入变量C。,画线和矩形方法,line (x1,y1)-(x2,y2),color 也可 line (x2,y2),color表示从上次结束的地方接着画,6.3.2 图形方法与应用,(2) 多点折线。连续使用缺省起点、画两点连线的语句，可以绘制多点折线：每句的终点位置为下一句的起点位置，首句或是采
10、用格式1，或是以当前输出位置作为起点。例如：下列语句在窗体上所绘折线如图6-15所示。 Line (50,100)-(100,100),RGB(120,120,200) Line -(150,150),RGB(120,120,200) Line -Step(-50,50),RGB(120,120,200) Line -(50,200),RGB(120,120,200) Line -(0,150),RGB(120,120,200) Line -(50,100),RGB(120,120,200),例6-1 以下程序利用Pset方法绘制Cos(x)函数曲线。 Private Sub Form_Cli
11、ck()Dim x As Integer,i As IntegerFor i=0 To 10000PSet (i,1200),vbRed 用画点的方法连线Next iFor x=0 To 10000PSet(x,1000*Cos(x*3.1415926/1800)+1200),vbBlueNext x End Sub,6.3.2 图形方法与应用, 格式2：容器名.Line (x1,y1)-Step(x2,y2),Color,BF用画矩形边框的颜色再填充矩形为实心，该语句的输出效果与容器的FillStyle、FillColor属性无关。例如：执行下列语句后，在窗体上的输出结果如图6-16所示。
12、Form1.FillStyle=2 Form1.FillColor=vbBlue Form1.ForeColor=vbGreen Line(100,100)-(1500,1000), vbRed,B 红色外框，兰色水平填充线 Line(1600,100)-(2500,1000), , B 绿色外框，兰色水平填充线 Line(2800,100)-(3800,1000),vbRed,BF 红色实心矩形,6.3.2 图形方法与应用,4圆、圆弧与椭圆方法Circle(1) 画圆。 格式：容器名.Circle Step(x,y),radius,Color以(x,y)为圆心（有Step关键字则以(Curr
13、entX+x,CurrentY+y)为圆心）、以radius为半径画颜色值为Color的圆。缺省容器名、Color选项的有关规则同前，不再赘述。 (2) 画圆弧。格式：容器名.Circle Step(x,y),radius,Color,start,endstart、end为Single类型表达式，该方法以start弧度为起点按逆时针方向到end弧度为止画一段圆弧（平行于x轴的正向为0弧度）。若start为负值，该方法还画出1条从圆心到圆弧相应端点的连线，参数end也同样。 (3)画椭圆（弧）。格式：容器名.Circle Step(x,y),radius, Color ,start,end,aspectaspect是取正值的Single类型表达式，为椭圆纵轴与横轴之比。若aspect值小于1，则radius为横轴的长度，否则为纵轴的长度。在缺省某参数前的参数时，不可以缺省“,”号。,画圆方法,Circle (x,y),radius,color画圆弧 Circle (x,y), radius,color,start,end Start,end正数表示画圆框，负数表示画填充圆弧,
