VB6.0 下载地址:http://img.isundae.cn/Visual Basic6.0.zip

一. 日常签到📆

https://docs.qq.com/form/fill/DZWZBZEJudFNZS0N3

二. 课程内容🌍

1. 准备好笔记本,练习纸。
2. 手边有电脑的同学可以使用电脑。
3. 坐好!坐好!坐好!

🏆实例一

模拟进度条

实例说明

⭐本实例模拟了进度条的效果。

设计过程

  1. 新建一个标准工程
  2. 其中的几个控件如下表:
    控件 控件名 属性:属性值
    form form1 📍Caption:进度条 📍StartUpPosition:2-屏幕中心
    label label1 📍Caption:
    label label2 📍Caption:
    CommandButton 📍Command1 📍Caption:开始加载
    Timer Timer1 📍Enabled:False 📍Interval:10
    Timer Timer2 📍Enabled:True 📍Interval:10
  3. 代码如下:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    Option Explicit

    Private Sub Command1_Click()
    Label1.Visible = True
    Timer1.Enabled = True

    End Sub

    Private Sub Timer1_Timer()

    If Label1.Width > 10000 Then
    Timer1.Enabled = False
    Label2.Caption = "加载完成!"
    Exit Sub
    End If
    Label1.Width = Label1.Width + 200
    Label2.Caption = Int((Label1.Width / 10000) * 100) & "%"
    End Sub

重点知识

Timer 控件的具体运用。

🏆实例二

模拟打字效果

实例说明

⭐本实例模拟了打字效果。

设计过程

  1. 新建一个标准工程
  2. 代码如下:
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    Option Explicit

    Private str As String
    'Private i As Integer

    Private Sub Command1_Click()
    Timer1.Enabled = True
    str = Text1.Text
    Label1.Caption = "打印中..."
    Text1.Enabled = False
    End Sub

    Private Sub Timer1_Timer()
    Static i As Integer
    i = i + 1
    If i > Len(str) Then '字符串长度
    Timer1.Enabled = False
    Label1.Caption = "打印结束!"
    Label2.Caption = Left(str, i)
    Text1.Enabled = True
    Exit Sub
    End If

    Label2.Caption = Left(str, i) + "_"
    'Print Left(str, i)
    End Sub

Enabled 属性

返回或设置一个值,该值用来确定一个窗体或控件是否能够对用户产生的事件作出反应。

语法

object.Enabled [= boolean]

Enabled 属性的语法包含下面部分:

部分 描述
object 对象表达式,其值是“应用于”列表中的一个对象。如果 object 被省略,则与活动窗体模块相联系的窗体被认为是 object
boolean 一个用来指定 object 是否能够对用户产生的事件作出反应的布尔表达式

设置

boolean 的设置为:

设置 描述
True (缺省)允许 object 对事件作出反应。
False 阻止 object 对事件作出反应。

说明

Enabled 属性允许在运行时使窗体和控件成为有效或无效。例如,可以使对象成为不能用于应用程序的当前状态的无效状态。也可以使之纯粹用来显示,比如一个提供只读信息的文本框的控件无效。

通过把 Enabled 设置为 False 来使 Timer 控件成为无效,将取消由控件的 Interval 属性所建立的倒计数。

对于 Menu 控件,Enabled 在运行时可正常地读/写。但是对于那些被 Visual Basic 的加载宏遗弃或提供的菜单项来说,Enabled 是只读的,例如在“外接程序”菜单中的“外接程序管理器”命令。

三. 提交作业✅

https://docs.qq.com/form/fill/DZUNkSVZhSXNGT3VM

四. 下课休息💨

本节课相关问题课在下方留言👇👇👇


 评论


载入天数...载入时分秒...