- 1、本文档共2页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
单击“开1 任务描述 创建一个倒计时的简单应用程序。 功能是: 当在文本框内输入倒计时的分钟数后, 始”按钮就开始倒计时,倒计时结束时,弹出“时间到!”的信
单击“开
2 界面设计
添加的控件有: 一个标签 一个文本框 一个命令按钮 一个计时器控件
设置对象属性:
Form1 窗体: Caption ——”倒计时器”
Label1 控件: Caption ——”请输入倒计时的分钟数”、 AutoSize —— True
Comma nd 控件:Capti on ” 开始”
Text1 控件: Alignment ——”2-Center ”
Timer1 控件: Intervel ——” 1000”
3代码设计
代码编辑器“通用”部分代码:
Dim m As Long '声明一个变量
控件代码:
' 使控件计时器开始工作
= True
'将分钟数转换为秒数,并保存在变量 m中
m = Val * 60
' 改变标签控件的标题
= " 现在开始倒计时 "
' 使命令按钮不可见
= False
控件代码:
Private Sub Timer1_Timer() ' 当 =true 时,本程序每秒自动执行一次 ' 每运行一次,就将 m 变量的值减 1 秒 m = m - 1
If m < 0 Then ' 如果倒计时结束,则
= False ' 关闭计时器
MsgBox " 时间到! ", 0, " 倒计时 "
= " 请输入倒计时的分钟数 "
= "" ' 清空文本框
= True ' 使命令按钮可见
Else ' 否则显示倒计时数
End If
End Sub
保存和运行程序
保存工程
( 1)单击“文件”菜单中的“保存工程”或单击工具栏上的“保存工程”按钮, 系统弹出“文
件另存为”对话框,提示用户输入窗体文件名。将窗体文件名该为。
( 2)紧接着出现“工程另存为”对话框,以来保存工程文件。将文件名改为,然后单击“保 存”按钮。
运行程序
单击工具栏上的启动按钮就可以运行该时钟程序了。
编译与打包
编译应用程序
编译应用程序就是把一个应用程序制成一个可执行文件,即 .EXE 文件。这样程序被编译在
磁盘上,应用程序就可以脱离 VB 环境,在操作系统下单独运行了。
编译方法:单击“文件”菜单中的“生成”选项,出现“生成工程”对话框,在其中输入, 然后单击“确定”按钮就可以了。
打包
如上所述,.EXE文件可以脱离 VB环境,在操作系统下单独运行,但不能简单地认为这样就 可以将该.EXE文件发布给他人,或者可以拷贝到活动磁盘上 带到任意的系统上去使用。因为在
执行已编译的代码时, VB要运行特定的运行库,但每台计算机安装的运行库不一定相同,因此
必须创建一个安装程序来发布文 件。
安装运行
当用户需要在其它机器上运行已打包的程序时, 必须进行程序安装。 首先找到压缩包所在的 目录,然后双击文件, Windows 就会执行 安装程序显示欢迎对话框,单击“确定”按钮后,系 统将显示“安装程序”对话框。接下来的安装步骤和安装其他软件方法是一样的,不再赘述。
VB 应用程序开发的一般步骤
设计应用程序界面
设计对象属性
编写代码
保存和运行程序
编译和打包
安装运行
文档评论(0)