VB程序设计:实验内容

实验目的

➢掌握图片框与图像框控件常用属性、事件与方法。

➢掌握直线控件和形状控件的常用属性、事件与方法。

【实验11-1】在窗体上添加一个图像框，鼠标单击图像框时，图像框移动到窗体中一个随机位置。假设 （100，100）与（4000，5000）为窗体中指定区域的左上角与右下标的坐标。

方法分析：

① 单击图像框时移动图像框，触发了Image控件的Click事件，在此事件过程中，要想移动Image控件，就需要使用方法Move。

② 图像框移动的目标位置是随机位置，故需要利用随机函数产生目标位置的坐标值（x，y）。令x = Int（Rnd * （4000 - 100 + 1）+ 100）；y = Int（Rnd * （5000 - 100 + 1）+ 100）。

具体步骤如下：

① 在窗体上添加一个图像框控件。

② 设置图像框的相关属性。修改Stretch属性为True， 在 Picture属性中加载图像。

③ 编写代码如下：

【实验11-2】在窗体上添加6个命令按钮，单击各命令按钮分别完成的功能是画直线、矩形、圆、孤、扇形和椭圆。最后运行的结果应如图11-1所示。

图11-1

方法分析：(www.xing528.com)

① 在窗体中添加6个命令按钮，将Caption属性值分别修改为“画直线”、“画矩形”、“画圆”、“画弧线”、“画扇形”和“画椭圆”。

② 由于画各个图形的动作均发生在单击相应的命令按钮，因此相应的程序代码就编写在各命令按钮的Click事件中。

③ 设置窗体的DrawWidth属性设置为7（单位为像素），指定画在窗体中线条的宽度。

程序代码如下：

【实验11-3】编写程序，交换两个图片框中的图形。

方法分析：

① 在Form1窗体上画三个图片框控制，其中：Picture1和Picture2用来装载两个图片，Picture3是在Picture1 和Picture2交换图片时起到一个临时存放图片的作用。

② 假设H盘中存在两个图片ZW_015.GIF 和ZW_016.GIF，首先在Form_Load过程中将两个图片分别加载到两个图片框中，然后在Form_Click事件中，实现两个图片的交换。如图11-2所示。

图11-2