vb教程第1章PPT学习教案

1、会计学1vb教程第教程第1章章实例实例1.1实例实例1.2实例实例1.3实例实例1.4本章实例本章实例第1页/共34页P1第2页/共34页单击单击 单击单击 结束程序结束程序 P1第3页/共34页【开始开始】|【程序程序】|【Microsoft Visual Basic 6.0中文版中文版】|【Microsoft Visual Basic 6.0中文版中文版】 第4页/共34页第第1步步第第2步步第第3步步第5页/共34页窗体设计器窗体设计器工具箱工具箱工程资源工程资源管理器管理器对象属对象属性窗口性窗口查看对象查看对象查看代码查看代码第6页/共34页单击命令按钮（单击命令按钮（Command

2、Button）图标图标 ，添加命令按钮，添加命令按钮单击标签（单击标签（Label）图标）图标 ，添加标签，添加标签第7页/共34页（3）设置对象属性）设置对象属性 属性名属性名属性值属性值对象名对象名第8页/共34页对象对象属属 性性属性值属性值窗体窗体（名称）（名称）CaptionPicturefrmEx1_1欢迎界面欢迎界面选取一图形文件选取一图形文件标签标签（名称）（名称）CaptionlblInfo（置空置空）命令按钮命令按钮1（名称）（名称）CaptioncmdDisplay显示显示命令按钮命令按钮2（名称）（名称）CaptioncmdExit退出退出第9页/共34页双击控件或单击

3、工程窗口的双击控件或单击工程窗口的“查看代码查看代码”按钮，进入代码窗口按钮，进入代码窗口 在对象框中选择在对象框中选择cmdDisplay对象对象在过程框中选择在过程框中选择Click事件事件 Private Sub cmdDisplay_Click()End Sub lblInfo.Caption = 欢迎进入欢迎进入Visual Basic. 第10页/共34页在对象框中选择在对象框中选择cmdExit对象对象在过程框中选择在过程框中选择Click事件事件 Private Sub cmdExit _Click()End Sub End 第11页/共34页分别保存窗体文件分别保存窗体文件(

4、frm)、工程文件、工程文件(vbp) 单击单击【启动启动】按钮按钮 运行程序运行程序单击单击【结束结束】按钮按钮 停止工程运行停止工程运行（6）运行程序）运行程序 第12页/共34页第13页/共34页单击单击 单击单击 P6第14页/共34页【文件文件】/【打开工程打开工程】第15页/共34页在窗体中增加一个命令按钮在窗体中增加一个命令按钮 （3）设置对象属性）设置对象属性 对象对象属属 性性属性值属性值窗体窗体（名称）（名称）CaptionIconMaxButtonMinButtonPicturefrmEx1_2欢迎界面欢迎界面选取一图标文件选取一图标文件FalseFalse选取一图形文件

5、选取一图形文件第16页/共34页对象对象属属 性性属性值属性值标签标签（名称）（名称）CaptionBackStyleForeColorFontlblInfo（置空置空）0-Transparent红色红色楷体、小四楷体、小四命令按钮命令按钮1（名称）（名称）CaptionEnabledcmdDisplay显示显示True命令按钮命令按钮2（名称）（名称）CaptionEnabledcmdCls清除清除False命令按钮命令按钮3（名称）（名称）CaptioncmdExit退出退出第17页/共34页Private Sub cmdDisplay_Click() lblInfo.Caption =

6、欢迎进入欢迎进入Visual Basic. End SubPrivate Sub cmdExit_Click() EndEnd Sub cmdDisplay.Enabled = FalsecmdCls.Enabled = TruePrivate Sub cmdCls_Click() lblInfo.Caption = cmdCls.Enabled = False cmdDisplay.Enabled = TrueEnd Sub第18页/共34页【文件文件】/【frmEx1_2.frm另存为另存为】【文件文件】/ 【工程另存为工程另存为】第19页/共34页 输入输入“cmdCls.”后，出现后，

7、出现成员列表成员列表。若不出现。若不出现，说明该对象的名称有错，应检查。，说明该对象的名称有错，应检查。 “标题（标题（Caption）”和和“名称（名称（Name）”是两个不同属性。是两个不同属性。 合理设置命令按钮的合理设置命令按钮的“可用可用”与与“禁用禁用”状状态。态。 编写事件过程时，采用逐个编写、调试的方式。编写事件过程时，采用逐个编写、调试的方式。第20页/共34页P9第21页/共34页P9第22页/共34页对象对象属属 性性属性值属性值窗体窗体（名称）（名称）CaptionPicturefrmEx1_3贺词互换贺词互换选取一图形文件选取一图形文件标签标签1（名称）（名称）Cap

8、tionBackStyleFontForeColorlblWish1Happy New Year0-Transparent华文行楷、二号华文行楷、二号红色红色标签标签2（名称）（名称）CaptionBackStyleFontForeColorlblWish2新年快乐新年快乐0-Transparent华文彩云、二号华文彩云、二号兰色兰色第23页/共34页Private Sub Form_DblClick() EndEnd Sub（2）代码）代码第24页/共34页第25页/共34页P12第26页/共34页第27页/共34页对象对象属属 性性属性值属性值窗体窗体（名称）（名称）CaptionfrmE

9、x1_4四季图四季图命令按钮命令按钮1（名称）（名称）CaptioncmdSpring春春命令按钮命令按钮2（名称）（名称）CaptioncmdSummer夏夏命令按钮命令按钮3（名称）（名称）CaptioncmdAutumn秋秋命令按钮命令按钮4（名称）（名称）CaptioncmdWinter冬冬第28页/共34页（2）代码）代码Private Sub cmdSpring_Click() frmEx1_4.Picture = LoadPicture(d:vb scn_spring.wmf)End Sub “夏夏”、“秋秋”、“冬冬”命令按钮的命令按钮的Click事件过事件过程类似程类似注意路径注意路径第29页/共34页Private Sub Form_DblClick()ClsfrmEx1_4.Picture =