VisualBasic程序设计项目化教程 项目9 制作调色板

《VisualBasic程序设计项目化教程 项目9 制作调色板》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VisualBasic程序设计项目化教程主编管小清郭贺彬项目九制作调色板项目目标：本项目设计并实现了一个简单的调色板，利用RGB三元色的原理来设置三种基色的值，来调出各种颜色；每种颜色利用滚动条来控制值的变化（滚动条的值的变化范围为0~255）；除此之外还可以利用公共对话框中提供的颜色设置功能来设置所需要的颜色。主要用来学习VB的图片控件的使用，滚动条的使用和RGB（）函数的使用等。项目九制作调色板项目主要知识点：1、图片控件的使用Picture控件的使用Image控件的使用2、滚动条的使用基本属性特有属性常用事件3、RGB（）函数的使用4、Val

2、（）函数的使用5、公共对话框的使用6、控件的BackColor属性7、程序设计思想的训练项目九制作调色板项目实施步骤：掌握相关基础知识界面设计窗体设计控件属性设置程序设计编程初步程序代码程序调试，功能完善保存项目工程9.1第1步基础知识9.1.1Picture控件的使用图片框(PictureBox)控件的主要作用是为用户显示图片，也可作为其他控件的容器。实际显示的图片是由Picture属性决定的。1、图片框的基本属性：Name、Height、Width、Top、Left、Enabled、Visible等。2、图片框的特有属性：（1）Picture属

3、性Picture属性用于窗体、图片框和图像框。它可通过属性窗口进行设置，也可在程序中进行设置，即使用LoadPicture()函数，装入图片文件。在窗体、图片框和图像框中显示的图形以文件形式存放在磁盘上，VB6.0支持以下格式的图形文件。位图文件(Bitmap)图标文件(Icon)图元文件(Metafile)压缩位图文件(JPEG)压缩位图文件(GIF)9.1第1步基础知识（2）AutoSize属性图片框控件不能伸缩图像使图像适应它的大小。如果把图片框控件的AutoSize属性设置为True，那么图片框控件就会自动调整自身的大小以容纳整个图像。3、

4、图片框控件的特点图片框控件的最大特点是，它的表现更像一个窗体对象，它具有许多与窗体对象相似的属性和方法。窗体的所有显示文本和图像的方法、作图方法以及与之相关的属性在图片框控件中都有同名的方法和属性。图片框控件有自己的坐标系统，也可以重新定义坐标系统。PictureBox控件也可作为容器使用，把控件添加到图片框控件中的方法与把控件添加到框架控件中的方法也相同。9.1第1步基础知识4、图形文件的装入图形文件的装入有两种方法：一种是在设计阶段装入，另一种是在运行期间装入。（1）在设计阶段装入图形文件在设计阶段装入图形文件用两种方法：①用属性窗口中的Pic

5、ture属性装入可以通过Picture属性，把图形文件装入窗体、图片框或图像为例，操作步骤如下：在窗体上建立一个图片框。保持图片框为活动的控件，在属性窗口中找到Picture属性，单击该属性条，其右端出现3个点“…”按钮。单击右端出现3个点“…”按钮，屏幕显示“加载图片”对话框。单击“文件类型”栏右端的箭头，将下拉显示可以装入的图形文件类型，可从中选择所需要的文件类型。在中间的“搜寻”目录列表框中，选择含有图形文件的目录，可以根据需要选择某个目录，单击“打开”按钮，然后在该目录中，选择所要装入的文件。单击“打开”按钮以上的操作步骤也适合图像框。如果

6、窗体上没有活动的图片框，窗体为活动时，装入的图形文件将装到窗体上。9.1第1步基础知识②利用剪切板装入用Windows下的绘图软件，处理所需的图形，并将该图形拷贝到剪贴板中。启动VB，在窗体上建立一个图形框，并保持为活动状态。执行“编辑”菜单中的“粘贴”命令，剪贴板中的图形将出现在图形框中。在建立图片框时，应适当调整其大小，以便能装入完整的图形。（2）在运行期间装入图形文件Picture属性可以设置被显示的图片文件名(包括可选路径名)。在程序运行时，可以使用LoadPicture()函数，在图片框中装入图形。格式：对象.Picture=LoadPi

7、cture("图形文件名")功能：在图形框中装入一个图形。9.1第1步基础知识说明：对象可以是图片框或图像框，也可以是窗体，如果是窗体，对象名可以省略。如果删除一个图形，可以使用LoadPicture()函数，将一个空白图形装入图形框的Picture属性。格式：对象.Picture=LoadPicture()如果图片框中已有图形，则被新装入的图形所覆盖。装入图片框中的图形，可以拷贝到另一个图片框中。假设在窗体中已建立了两个图片框：Picture1与Picture2，则用：Picture1.Picture=LoadPicture("C：＼Graphi

8、cs＼Icons＼Arrows＼arw06up.ico")Picture2.Picture=Picture1.Pictur