visual basic 手把手教程 第1章

1、实实例例实例实例1.1实例实例1.2实例实例1.3实例实例1.4本章实例本章实例1.1 VB集成开发环境集成开发环境P1单击单击 1.1.1 Hello程序程序 单击单击 结束程序结束程序 P1操作步骤操作步骤 （1）启动）启动Visual Basic集成环境集成环境 【开始【开始】|【程序【程序】|【Microsoft Visual Basic 6.0中文版中文版】|【Microsoft Visual Basic 6.0中文版中文版】 第第1步步第第2步步第第3步步窗体设计器窗体设计器工具箱工具箱工程资源工程资源管理器管理器对象属对象属性窗口性窗口查看对象查看对象查看代码查看代码单击命令按钮

2、（单击命令按钮（CommandButton）图标图标 ，添加命令按钮，添加命令按钮（2）设计用户界面）设计用户界面 单击标签（单击标签（Label）图标）图标 ，添加标签，添加标签（3）设置对象属性）设置对象属性 属性名属性名属性值属性值对象名对象名对象对象属属 性性属性值属性值窗体窗体（名称）（名称）CaptionPicturefrmEx1_1欢迎界面欢迎界面选取一图形文件选取一图形文件标签标签（名称）（名称）CaptionlblInfo（置空置空）命令按钮命令按钮1（名称）（名称）CaptioncmdDisplay显示显示命令按钮命令按钮2（名称）（名称）CaptioncmdExit退出退

3、出（4）编写代码）编写代码 双击控件或单击工程窗口的双击控件或单击工程窗口的“查看代码查看代码”按钮，进入代码窗口按钮，进入代码窗口 在对象框中选择在对象框中选择cmdDisplay对象对象在过程框中选择在过程框中选择Click事件事件 Private Sub cmdDisplay_Click()End Sub lblInfo.Caption = 欢迎进入欢迎进入Visual Basic. 在对象框中选择在对象框中选择cmdExit对象对象在过程框中选择在过程框中选择Click事件事件 Private Sub cmdExit _Click()End Sub End （5）保存文件）保存文件 分

4、别保存窗体文件分别保存窗体文件(frm)、工程文件、工程文件(vbp) 单击单击【启动【启动】按钮】按钮 运行程序运行程序单击单击【结束【结束】按钮】按钮 停止工程运行停止工程运行（6）运行程序）运行程序 技能要点技能要点 界面设计要简洁、美观，控件布局要合理。界面设计要简洁、美观，控件布局要合理。 代码框架最好由系统自动生成。代码框架最好由系统自动生成。 建议将同一工程的所有类型的文件存放在同建议将同一工程的所有类型的文件存放在同 一文件夹中。一文件夹中。 适当加入一些注释，一般采用注释符适当加入一些注释，一般采用注释符“”。 1.1.2 改进的改进的Hello程序程序 【实例【实例1.2】

5、修改实例】修改实例1.1，为窗体设置图标，为窗体设置图标，且无最大化、最小化按钮，将标签设置为且无最大化、最小化按钮，将标签设置为“透明透明”状态。在窗体上再增加状态。在窗体上再增加1个命令按个命令按钮。程序运行时，钮。程序运行时，“显示显示”命令按钮呈命令按钮呈“可可用用”状态，而状态，而“清除清除”命令按钮置为命令按钮置为“禁用禁用”状态。状态。 单击单击 单击单击 P6【文件】【文件】/【打开工程【打开工程】操作步骤操作步骤 （1）打开已有工程文件）打开已有工程文件 （2）设计用户界面）设计用户界面 在窗体中增加一个命令按钮在窗体中增加一个命令按钮 （3）设置对象属性）设置对象属性 对象

6、对象属属 性性属性值属性值窗体窗体（名称）（名称）CaptionIconMaxButtonMinButtonPicturefrmEx1_2欢迎界面欢迎界面选取一图标文件选取一图标文件FalseFalse选取一图形文件选取一图形文件对象对象属属 性性属性值属性值标签标签（名称）（名称）CaptionBackStyleForeColorFontlblInfo（置空置空）0-Transparent红色红色楷体、小四楷体、小四命令按钮命令按钮1（名称）（名称）CaptionEnabledcmdDisplay显示显示True命令按钮命令按钮2（名称）（名称）CaptionEnabledcmdCls清除清

7、除False命令按钮命令按钮3（名称）（名称）CaptioncmdExit退出退出（4）编写代码）编写代码 Private Sub cmdDisplay_Click() lblInfo.Caption = 欢迎进入欢迎进入Visual Basic. End SubPrivate Sub cmdExit_Click() EndEnd Sub cmdDisplay.Enabled = FalsecmdCls.Enabled = TruePrivate Sub cmdCls_Click() lblInfo.Caption = cmdCls.Enabled = False cmdDisplay.Ena

8、bled = TrueEnd Sub（5）保存文件）保存文件【文件】【文件】/【frmEx1_2.frm另存为另存为】【文件】【文件】/ 【工程另存为【工程另存为】技能要点技能要点 很多属性可在设计阶段设置，也可在运行阶段设很多属性可在设计阶段设置，也可在运行阶段设置置 。但有些属性只能在设计阶段或只能在运行。但有些属性只能在设计阶段或只能在运行阶段才能设置。阶段才能设置。 输入输入“cmdCls.”后，出现后，出现成员列表成员列表。若不出现，。若不出现，说明该对象的名称有错，应检查。说明该对象的名称有错，应检查。 “标题（标题（Caption）”和和“名称（名称（Name）”是是两个不同属性

9、。两个不同属性。合理设置命令按钮的合理设置命令按钮的“可用可用”与与“禁用禁用”状状态。态。编写事件过程时，采用逐个编写、调试的方式。编写事件过程时，采用逐个编写、调试的方式。1.2 设计简单的设计简单的VB应用程序应用程序 P91.2.1 文本信息的显示文本信息的显示 【实例【实例1.3】在窗体上添】在窗体上添加加2个标签，标签的内个标签，标签的内容分别是容分别是“Happy New Year”和和“新年新年快乐快乐”，文字的字体和，文字的字体和颜色不同。程序运行时，颜色不同。程序运行时，单击窗体，交换两个标单击窗体，交换两个标签的内容。双击窗体，签的内容。双击窗体，结束程序的运行。结束程序

10、的运行。 P9（1）属性设置）属性设置对象对象属属 性性属性值属性值窗体窗体（名称）（名称）CaptionPicturefrmEx1_3贺词互换贺词互换选取一图形文件选取一图形文件标签标签1（名称）（名称）CaptionBackStyleFontForeColorlblWish1Happy New Year0-Transparent华文行楷、二号华文行楷、二号红色红色标签标签2（名称）（名称）CaptionBackStyleFontForeColorlblWish2新年快乐新年快乐0-Transparent华文彩云、二号华文彩云、二号兰色兰色Private Sub Form_Click() t

11、emp = lblWish1.Caption lblWish1.Caption = lblWish2.Caption lblWish2.Caption = tempEnd Sub Private Sub Form_DblClick() EndEnd Sub（2）代码）代码技能要点技能要点 一定要明确编写代码的位置。一定要明确编写代码的位置。不要将所有代码编写完毕再运行。不要将所有代码编写完毕再运行。标签的标签的BackStyle（背景风格）属性为（背景风格）属性为“0-Transparent”时，产生透明效果。时，产生透明效果。要实现要实现A和和B的交换功能，必须使用中间变量的交换功能，必须使

12、用中间变量T。 1.2.2 窗体中显示图片和文字窗体中显示图片和文字 【实例【实例1.4】窗体中有】窗体中有4个命令按钮。程序运行时，个命令按钮。程序运行时，窗体显示出一幅图（作为背景图），单击窗体显示出一幅图（作为背景图），单击“春春”、“夏夏”、“秋秋”和和“冬冬”4个命令按钮，在窗体个命令按钮，在窗体中分别显示不同的图片；单击窗体，清除显示的中分别显示不同的图片；单击窗体，清除显示的图片，同时在窗体上直接输出图片，同时在窗体上直接输出“要显示的图是什要显示的图是什么？么？”；双击窗体，清除窗体上显示的文字，重；双击窗体，清除窗体上显示的文字，重新显示出背景图。新显示出背景图。 P12（1

13、）属性设置）属性设置对象对象属属 性性属性值属性值窗体窗体（名称）（名称）CaptionfrmEx1_4四季图四季图命令按钮命令按钮1（名称）（名称）CaptioncmdSpring春春命令按钮命令按钮2（名称）（名称）CaptioncmdSummer夏夏命令按钮命令按钮3（名称）（名称）CaptioncmdAutumn秋秋命令按钮命令按钮4（名称）（名称）CaptioncmdWinter冬冬Private Sub Form_Load() frmEx1_4.Picture = LoadPicture(d:vb background.jpg)End Sub （2）代码）代码Private Sub

14、 cmdSpring_Click() frmEx1_4.Picture = LoadPicture(d:vb scn_spring.wmf)End Sub “夏夏”、“秋秋”、“冬冬”命令按钮的命令按钮的Click事件过程事件过程类似类似注意路径注意路径Private Sub Form_Click()frmEx1_4.Picture = LoadPicture()Print 要显示的图是什么？要显示的图是什么？End Sub Private Sub Form_DblClick()ClsfrmEx1_4.Picture = LoadPicture(d:vb background.jpg)End Sub 使用使用LoadPicture函数装载图形时一定要写明函数装载图形时一定要写明文件的完整路径和文件名全称（含扩展名）。文件的完整路径和文件名全称（含扩展名）。在运行时要删除已装载的图形，应使用在运行时要删除已装载的图形，应使用“Load