实验3VB程序设计运行环境使用

上传人:油条 文档编号:1726536 上传时间:2017-07-11 格式:DOC 页数:5 大小:115KB
返回 下载 相关 举报
实验3VB程序设计运行环境使用_第1页
第1页 / 共5页
实验3VB程序设计运行环境使用_第2页
第2页 / 共5页
实验3VB程序设计运行环境使用_第3页
第3页 / 共5页
实验3VB程序设计运行环境使用_第4页
第4页 / 共5页
实验3VB程序设计运行环境使用_第5页
第5页 / 共5页
亲,该文档总共5页,全部预览完了,如果喜欢就下载吧!
资源描述

《实验3VB程序设计运行环境使用》由会员分享,可在线阅读,更多相关《实验3VB程序设计运行环境使用(5页珍藏版)》请在金锄头文库上搜索。

1、实验 1 VB 程序设计运行环境使用一、 实验目的熟悉 VB 集成编辑环境,掌握创建工程文件、保存工程文件、启动工程文件、设计窗体界面等基本操作。二、 实验内容利用 timer 制作 label 滚动。三、 实验步骤和运行结果1. 建立工程 12. Form1 中拖入 label,caption:华中师范大学欢迎你。3. Form1 中拖入 command,caption:停止。4. Form1 中拖入 timer。5. 编写代码:Private Sub Command1_Click()If Timer1.Enabled = False ThenTimer1.Enabled = TrueCom

2、mand1.Caption = 停止ElseIf Timer1.Enabled = True ThenTimer1.Enabled = flaseCommand1.Caption = 滚动End IfEnd SubPrivate Sub label1_click()Private Sub Form_Load()Me.Tag = 1End SubPrivate Sub Timer1_Timer()If Label1.Left Me.Width ThenMe.Tag = 2ElseIf Label1.Left = 0 ThenMe.Tag = 1End IfIf Me.Tag = 1 ThenLabel1.Left = Label1.Left + 100ElseIf Me.Tag = 2 ThenLabel1.Left = 0End IfEnd Sub6.实验结果 四、 实验总结1. Timer:Enabled 属性:表示计时器是否有效(是否触发 Timer事件) ,为 True 时,计时器被激活,反之,停止计时。2. Elseif 不能分开写

展开阅读全文
相关资源
相关搜索

当前位置:首页 > 商业/管理/HR > 其它文档

电脑版 |金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号