第6章常用控件.ppt

第六章常用控件6.1图形控件图片框
图片框(PictureBox)主要用来显示图片图象。
（1）在设计阶段装入图片
改变属性窗口中的Picture属性
（2）在运行期间装入图片
对象名.Picture=LoadPicture([filename])
如：Picture1.Picture=LoadPicture("c:\windows\Bubbles.bmp")
删除图片框的图形也同样使用LoadPicture
如：Picture1.Picture=LoadPicture()例［6-1］图片框示例。在窗体Form1上画一个图片框，名称为P1，高为1900，宽为2400。请编写适当的事件过程，使得在运行时，如果单击窗体，则装入D盘下的文件名为Pic1.bmp的图片，如下图所示；如果双击窗体，则图片框中的图片消失。图片框的Autosize属性：决定控件是否自动适应图片的大小
true：图片框自动调整大小适应图片。
false：图片框不能自动调整大小，加载的图形保持其原始尺寸。
图像框
图像框(Image)作用与图片框类似，区别在于：
1、图片框可以作为其它控件的容器，而图像框否
2、图片框可以通过Print方法显示文本，而图像框否
3、图像框比图片框占用内存少，显示速度快
Stretch属性：决定图片是否自动适应控件的大小
true：被加载图形自动调整大小适应图象框的大小。
false：图象框自动调整大小适应加载的图形。程序清单如下：
PrivateSubForm_Click()
P1.Picture=LoadPicture（″D:\Pic1.bmp″）
′装入图片
EndSub

PrivateSubForm_DblClick()
P1.Picture=LoadPicture（″″）′清除图片
EndSub例［6-2］交换图形。编写程序，交换两个图像框中的图形。
建立程序界面如图6-7所示。在窗体上建立三个图像框，一个命令按钮。然后进行属性设置。程序清单如下：
PrivateSubCommand1_Click()
′交换图片
Image3.Picture=Image1.Picture
Image1.Picture=Image2.Picture
Image2.Picture=Image3.Picture
EndSub6.1.2形状和直线
形状控件（Shape）直线控件（Line）BorderWidth：用于设置线条的宽度，即线
条粗细。
BorderColor：用于设置线条颜色。
X1、X2、Y1、Y2：用于设置直线的起点和终点。在运行时，要移动或调整直线控件大小，可以通过改变X1、X2、Y1、Y2属性来进行。

例[6－3]形状控件示例。
例[6－4]形状控件和直线控件绘制直方图示例。6.1.2图形方法
图形控件主要用来显示图形和进行简单的图形绘制，如果要实现高级绘图功能，则需要采用图形方法。

1.画点方法:
Pset方法用于在指定位置、以指定颜色画点。格式如下：
［对象名］.Pset［step］(x，y)［，颜色］
其中:
对象名：可以是窗体或图片框的名称，缺省为当前窗体名。
Step：可选项，有该参数时，表明所画的点坐标（X，Y）是相对坐标，相对于当前坐标点（由CurrentX，CurrentY决定）而言；没有该参数时，点坐标（X，Y）是绝对坐标。
颜色：点的颜色，若省略则采用对象的前景色(ForeColor)画点。颜色为RGB颜色值。例［6-5］窗体上随机画带颜色的点示例（如下图）。PrivateSubForm_Click()
Scale(0,0)-(100,100)'用户自定义坐标
DrawWidth=8'设置点的大小
m_x=Rnd*100'设置随机点坐标(m_x,m_y)
m_y=Rnd*100
m_red=Rnd*255'设置随机颜色
m_Green=Rnd*255
M_blue=Rnd*255
'画点
PSet(m_x,m_y),RGB(m_red,m_Green,M_blue)EndSub窗体的坐标系2.画直线、矩形方法
Line方法用于画直线和矩形。格式如下：
[对象名.]Line[[step](x1,y1)]-[step](x2,y2)[,颜色][,B[F]]
其中：
对象名：可以是窗体或图片框的名称，缺省为当前窗体名。
Step：可选项，有该参数时，表示坐标为相对于当前点的坐标，否则为绝对坐标。
(x1，y1)：可选项，起点坐标。如果省略，表示起点为(CurrentX，CurrentY)。
(x2，y2)：终点或右下角坐标。2.画直线、矩形方法（续）
Line方法用于画直线和矩形。格式如下：
[对象名.]Line[[step](x1,y1)]-[step](x2,y2)[,颜色