vb第2章可视化编程的概念与步骤

《vb第2章可视化编程的概念与步骤》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第2章可视化编程的概念与步骤2.1窗体对象2.2可视化编程的概念2.3可视化编程环境与步骤2.1窗体对象一、窗体简介窗体本身是对象，但不由控件生成。在资源窗口点右键/添加/添加窗体窗体的主要属性：书P21，表2.1autoRedraw用于多窗体程序设计中，实现屏幕图像重建。值为True/false。Icon窗体最小化时的图标（图形文件）Picture在窗体上加载图形Visible可见性（设计阶段总是可见的）BorderStyle边框属性0～5六种状态2.1窗体对象二、单窗体设计例题【例vb2-1】窗体上三个命令按钮,“窗体变大”,“窗体变小”，“退出”。程序运行后，还会显示一个小图标

2、。1、界面：2.1窗体对象2、属性：窗体：Caption改变窗体尺寸NameForm1命令钮1：Caption窗体变大NameCmdLarge命令钮2：Caption窗体变小NameCmdSmall命令钮3：Caption退出NameCmdExit2.1窗体对象3、程序PrivateSubForm_Load()Picture=LoadPicture("c:windowstiles.bmp")EndSub西文双撇号图形文件在本机的路径2.1窗体对象Load事件通常用来对属性和变量进行初始化。LoadPicture是一个函数，将指定的图形文件调入内存。[对象.]Picture=…将函

3、数值赋给窗体对象的Picture属性，对象指窗体、图片框、图象框，缺省窗体。＝>指定属性两法：属性窗口设置、程序中赋值2.1窗体对象PrivateSubCmdLarge_Click()Height=Height+500Width=Width+500EndSubPrivateSubCmdSmall_Click()Height=Height-500Width=Width-500EndSubPrivateSubCmdExit_Click()EndEndSubWidth/height的单位为twip，1英寸等于1440twip2.1窗体对象三、多个窗体设计例题【例vb2－2】先显示一号窗体，

4、单击该窗体，显示二号窗体。1、界面2.1窗体对象添加第二个窗体：工程资源窗口—>鼠标右键/添加/添加窗体—>看工程资源窗口缺省文件名—>按工具条上存盘按钮，分别为两个窗体及工程存盘—>再查看工程资源窗口文件名已修改(参考“存盘.ppt”)2.1窗体对象2、界面窗体1：Caption一号NameForm1（缺省）窗体2：Caption二号NameForm2（缺省）标签：Caption动物之家NameLabel1（缺省）BackStyle0(透明）Font黑体2号ForeColor红改变或删除窗体上的栅格(工具/选项/通用)2.1窗体对象3、代码窗体1：PrivateSubForm_Cl

5、ick()Form1.HideForm2.ShowEndSubPrivateSubForm_Load()Picture=LoadPicture("F:imagedoor.wmf")EndSub窗体2：与窗体1相似使用本机路径2.1窗体对象小结：2个窗体有各自的代码窗口，同为Form_Click事件，不会混！存储两个frm文件，打开一个vbp文件改变启动窗体：工程/工程属性/通用Load语句仅加载窗体，不显示；Show加载窗体且显示；Unload语句仅卸载；Hide方法隐藏，不卸载。2.2可视化编程的概念一、对象的属性、事件、方法1、对象：是窗体及控件工具箱中的控件派生出的实体。可

6、以是系统设计好的（预定义对象），也可由用户定义。对象是具有特殊属性（数据）和行为方式（方法）的实体。通过对象的三要素操作、控制对象。2.2可视化编程的概念2、对象的属性：对象所具有的一组特征常用的窗体属性：见书P21，表2.13、设置对象属性在属性窗口设置：只用于属性的初始化设置在代码窗口设置：动态地设置或改变属性值，格式：对象名.属性名=属性值2.2可视化编程的概念4、对象的事件：在对象上所发生的事情,触发事件就是执行一段程序代码。事件驱动：对象待命用户/系统触发事件对象对事件响应（程序代码）＝>=>2.2可视化编程的概念例：窗体事件ClickDbClickLoad：加载窗体Unl

7、oad：卸载窗体Activate/Deactivate：窗体被激活(非激活）时Paint（绘画）：当窗体被移动或放大时触发该事件2.2可视化编程的概念5、对象的方法：对象执行的动作例：窗体的方法Cls方法【例vb2-3】Cls方法的使用PrivateSubCmdShow_Click()Font.Size=18Print"cls方法的使用"EndSub2.2可视化编程的概念PrivateSubCmdCircle_Click()Picture1.Circle(