第五章基础控件的增强功能二.pptVIP

第五章 基础控件的增强功能（二） 5-1 image控件 功能：提供程序显示图像，这个图片可以是位图、图标（.bmp .jpg .gif )等文件格式图形。 其关键性接口成员： 类别 名称 说明 属性 picture 用于设置装载的图形 stretch 可伸缩性 装载图形可以在属性窗口中设置，也可以在运行时用程序代码加载。 用程序代码对image控件装载图片的方法： image名.picture=loadpicture(文件标识符) 当装入某张图片到image控件中时，image默认的模式是让图像框的大小随着装入的图像来改变。 如果事先将其stretch属性设置为true，那么被装入的图像将按照图像框的大小做等比例的缩放。 例：编写一个显示图片程序，能按照用户要求可以将图像调整成 跟image框相等大小或者以图像原来大小来显示。（ ch05\练习1.vbp) 5-2 picturebox控件 功能：picture控件除了可以显示图像之外，还可以用来描绘图形。 Picturebox被装入图片时，picturebox的大小并不会随着图象的大小来改变，这样的好处是：除了显示图片，还保留某些空间来绘图。 当确实需要将picturebox控件大小调整到和图像大小相同，此时只需要将picturebox中autosize属性设置为true。 例：利用picturebox控件显示西瓜图片，并在右侧画上一个矩形和椭园形。（ch05\练习2.vbp) 例：写一个可供用户画直线、弧、园、椭园及输入文字的程序。（ch05\画板.vbp) 1）在窗体上放置一个框架，在内放置一个option控件数组。 2）再放置一个框架，在内放置一个label控件数组。 3）在窗体上放置一个picturebox控件。 在窗体通用处定义模块全局变量 dim x0, y0 as single dim x1, y1 as single dim ang1, ang2 as single dim k,r as single dim switch as integer 无论选择哪一种画图，都会触发option1_click(index as integer)事件 在该事件中必须用一个全局变量记住用户选择了哪种画图（用switch)有些画图要求给初始值，则这些初始值在这里给出。 Private sub option1_click(index as integer) switch=index if swich=3 then pi=3,14159 ang1=pi*val(inpuitbox(“输入起始角：”))/180 ang2=pi*val(inpuitbox(“输入终止角：”))/180 endif if switch=4 then k=val(inputbox(“输入椭园比率：”)) end if if switch=5 then picture1.mousepointer=3 end if if switch=6 then picrure1.cls x0=empty x1=empty endif end sub 无论选择哪一种画图方式，都是按下鼠标、移动鼠标、放开鼠标。即是一定触发mousedown、mousemove、mouseup事件，在每一个事件中利用switch判断用户选择哪种画图。写下这个画图的代码。 在mousedown事件中获得画图的起始点。 Private sub picture1_mousedown(button as integer,shift as integer, x as single, y as single) x0=x y0=y if switch5 the picture1.mousepointer=2 endif end sub 在mousemove事件中，根据用户选择画图方式，写下代码： private sub picture1_mousemove(button as intger, shift as integer, x as single, y as single) select case switch case 0