基础控件的增强功能.pptxVIP

第五章 基础控件的增强功能（二）;如果事先将其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 写下画直线代码 case 1 写下画矩形代码 case 2 写下画园代码 case 3 写下画弧代码 case 4 写下画椭圆代码 end select end sub ;在mouseup事件中，根据用户选择画图方式，写下代码： private sub picture1_mouseup(button as intger, shift as integer, x as single, y as single) select case switch case 0 写下画直线代码 case 1 写下画矩形代码 case 2 写下