【VB开源代码栏目提醒】:文章导读:在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-Ex8_5.frm的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    VERSION 5.00
    Begin VB.Form Ex8_5 
       Caption         =   "命令按扭的应用"
       ClientHeight    =   2715
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   4200
       LinkTopic       =   "Form1"
       ScaleHeight     =   2715
       ScaleWidth      =   4200
       StartUpPosition =   3  '窗口缺省
       Begin VB.CommandButton Command2 
          Cancel          =   -1  'True
          Caption         =   $"Ex8_5.frx":0000
          Height          =   375
          Left            =   2400
          TabIndex        =   4
          Top             =   2040
          Width           =   1095
       End
       Begin VB.CommandButton Command1 
          Caption         =   $"Ex8_5.frx":0010
          Default         =   -1  'True
          Height          =   375
          Left            =   720
          TabIndex        =   3
          Top             =   2040
          Width           =   1095
       End
       Begin VB.Label Label3 
          BorderStyle     =   1  'Fixed Single
          Height          =   375
          Left            =   600
          TabIndex        =   2
          Top             =   1440
          Width           =   3135
       End
       Begin VB.Label Label2 
          BorderStyle     =   1  'Fixed Single
          Height          =   375
          Left            =   600
          TabIndex        =   1
          Top             =   840
          Width           =   3135
       End
       Begin VB.Label Label1 
          Caption         =   "显示今天的日期和时间"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   12
             Charset         =   134
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   375
          Left            =   840
          TabIndex        =   0
          Top             =   240
          Width           =   2415
       End
    End
    Attribute VB_Name = "Ex8_5"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Command1_Click()
        Command1.Visible = False '隐藏Command1按钮
        Label1.Visible = False   '隐藏Label1控件
        Label2.Caption = "日期" + Date$
        Label3.Caption = "时间" + Time$
    End Sub
    Private Sub Command2_Click()
        End          '退出窗体
    End Sub
    
    

上一篇：Ex8_4.frm
下一篇：她要是喜欢我