visual basic 手把手教程 第1章

第1章VisualBasic简单程序

1.1 VB集成开发环境1.2 设计简单的VB应用程序1.3 小结实例实例1.1实例1.2实例1.3实例1.4本章实例1.1VB集成开发环境1.1.1Hello程序1.1.2改进的Hello程序P1【实例1.1】窗体中有一幅图片，同时添加 1个标签和2个命令按钮。单击1.1.1Hello程序

单击结束程序P1操作步骤（1）启动VisualBasic集成环境【开始】|【程序】|【MicrosoftVisualBasic6.0中文版】|【MicrosoftVisualBasic6.0中文版】第1步第2步第3步窗体设计器工具箱工程资源管理器对象属性窗口查看对象查看代码单击命令按钮（CommandButton）图标，添加命令按钮（2）设计用户界面单击标签（Label）图标，添加标签（3）设置对象属性属性名属性值对象名对象属性属性值窗体（名称）CaptionPicturefrmEx1_1欢迎界面选取一图形文件标签（名称）CaptionlblInfo（置空）命令按钮1（名称）CaptioncmdDisplay显示命令按钮2（名称）CaptioncmdExit退出（4）编写代码双击控件或单击工程窗口的“查看代码”按钮，进入代码窗口在对象框中选择cmdDisplay对象在过程框中选择Click事件PrivateSubcmdDisplay_Click()EndSublblInfo.Caption="欢迎进入VisualBasic..."在对象框中选择cmdExit对象在过程框中选择Click事件PrivateSubcmdExit

_Click()EndSubEnd

（5）保存文件分别保存窗体文件(frm)、工程文件(vbp)

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

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

（3）设置对象属性对象属

性属性值窗体（名称）CaptionIconMaxButtonMinButtonPicturefrmEx1_2欢迎界面选取一图标文件FalseFalse选取一图形文件对象属

性属性值标签（名称）CaptionBackStyleForeColorFontlblInfo（置空）0-Transparent红色楷体、小四命令按钮1（名称）CaptionEnabledcmdDisplay显示True命令按钮2（名称）CaptionEnabledcmdCls清除False命令按钮3（名称）CaptioncmdExit退出（4）编写代码PrivateSubcmdDisplay_Click()

lblInfo.Caption="欢迎进入VisualBasic..."EndSub

PrivateSubcmdExit_Click()EndEndSubcmdDisplay.Enabled=FalsecmdCls.Enabled=TruePrivateSubcmdCls_Click()

lblInfo.Caption=""

cmdCls.Enabled=False

cmdDisplay.Enabled=TrueEndSub（5）保存文件【文件】/【frmEx1_2.frm另存为…】【文件】/【工程另存为…】技能要点很多属性可在设计阶段设置，也可在运行阶段设置。但有些属性只能在设计阶段或只能在运行阶段才能设置。输入“cmdCls.”后，出现成员列表。若不出现，说明该对象的名称有错，应检查。“标题（Caption）”和“名称（Name）”是两个不同属性。合理设置命令按钮的“可用”与“禁用”状态。编写事件过程时，采用逐个编写、调试的方式。1.2设计简单的VB应用程序

1.2.1文本信息的显示1.2.2窗体中显示图片和文字P91.2.1文本信息的显示

【实例1.3】在窗体上添加2个标签，标签的内容分别是“HappyNewYear”和“新年快乐”，文字的字体和颜色不同。程序运行时，单击窗体，交换两个标签的内容。双击窗体，结束程序的运行。P9（1）属性设置对象属

性属性值窗体（名称）CaptionPicturefrmEx1_3贺词互换选取一图形文件标签1（名称）CaptionBackStyleFontForeColorlblWish1HappyNewYear0-Transparent华文行楷、二号红色标签2（名称）CaptionBackStyleFontForeColorlblWish2新年快乐0-Transparent华文彩云、二号兰色PrivateSubForm_Click()temp=lblWish1.Caption lblWish1.Caption=lblWish2.CaptionlblWish2.Caption=tempEndSubPrivateSubForm_DblClick()EndEndSub（2）代码交换算法技能要点一定要明确编写代码的位置。不要将所有代码编写完毕再运行。标签的BackStyle（背景风格）属性为“0-Transparent”时，产生透明效果。要实现A和B的交换功能，必须使用中间变量T。1.2.2窗体中显示图片和文字

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

性属性值窗体（名称）CaptionfrmEx1_4四季图命令按钮1（名称）CaptioncmdSpring春命令按钮2（名称）CaptioncmdSummer夏命令按钮3（名称）CaptioncmdAutumn秋命令按钮4（名称）CaptioncmdWinter冬PrivateSubForm_Load()frmEx1_4.Picture=LoadPicture("d:\vb\

background.jpg")EndSub（2）代码PrivateSubcmdSpring_Click()frmEx1_4.Picture=LoadPicture("d:\vb\

scn_spring.wmf")EndSub“夏”、“秋”、“冬”命令按钮的Click事件过程类似注意路径PrivateSubForm_Click() frmEx1_4.Picture=LoadPicture("") Print"要显示的图是什么？"EndSubPrivateSubForm_DblClick()

Cls frmEx1_4.Picture=LoadPicture("d:\vb\

background.jpg")EndSub技能要点使用LoadPicture函数装载图形时一定要写明文件的完整路径和文件名全称（含扩展名）。在运行时要删除已装载的图形，应使用“LoadPicture("")”形式，若在设计时删除图形，则选中Picture的属性值后，按“Delete”键。