home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Learn_Basi1768047102004.psc / tutorials / frm_date.frm < prev    next >
Text File  |  2004-07-10  |  3KB  |  95 lines
  1. VERSION 5.00
  2. Begin VB.Form Form7 
  3.    BorderStyle     =   4  'Fixed ToolWindow
  4.    Caption         =   "Date And Time"
  5.    ClientHeight    =   2775
  6.    ClientLeft      =   45
  7.    ClientTop       =   315
  8.    ClientWidth     =   5160
  9.    LinkTopic       =   "Form7"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2775
  13.    ScaleWidth      =   5160
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.CommandButton Command1 
  17.       Caption         =   "Exit"
  18.       BeginProperty Font 
  19.          Name            =   "MS Sans Serif"
  20.          Size            =   9.75
  21.          Charset         =   0
  22.          Weight          =   400
  23.          Underline       =   0   'False
  24.          Italic          =   0   'False
  25.          Strikethrough   =   0   'False
  26.       EndProperty
  27.       Height          =   915
  28.       Left            =   120
  29.       Picture         =   "frm_date.frx":0000
  30.       Style           =   1  'Graphical
  31.       TabIndex        =   2
  32.       Top             =   1680
  33.       Width           =   4935
  34.    End
  35.    Begin VB.Timer Timer1 
  36.       Interval        =   1
  37.       Left            =   1080
  38.       Top             =   0
  39.    End
  40.    Begin VB.Label Label2 
  41.       Alignment       =   2  'Center
  42.       BackColor       =   &H00C0C0FF&
  43.       BorderStyle     =   1  'Fixed Single
  44.       BeginProperty Font 
  45.          Name            =   "Arial Black"
  46.          Size            =   12
  47.          Charset         =   0
  48.          Weight          =   400
  49.          Underline       =   0   'False
  50.          Italic          =   0   'False
  51.          Strikethrough   =   0   'False
  52.       EndProperty
  53.       Height          =   495
  54.       Left            =   120
  55.       TabIndex        =   1
  56.       Top             =   1080
  57.       Width           =   4935
  58.    End
  59.    Begin VB.Label Label1 
  60.       BackColor       =   &H00C0C0FF&
  61.       BorderStyle     =   1  'Fixed Single
  62.       BeginProperty Font 
  63.          Name            =   "Arial Black"
  64.          Size            =   12
  65.          Charset         =   0
  66.          Weight          =   400
  67.          Underline       =   0   'False
  68.          Italic          =   0   'False
  69.          Strikethrough   =   0   'False
  70.       EndProperty
  71.       Height          =   495
  72.       Left            =   120
  73.       TabIndex        =   0
  74.       Top             =   360
  75.       Width           =   4935
  76.    End
  77. End
  78. Attribute VB_Name = "Form7"
  79. Attribute VB_GlobalNameSpace = False
  80. Attribute VB_Creatable = False
  81. Attribute VB_PredeclaredId = True
  82. Attribute VB_Exposed = False
  83. Private Sub Command1_Click()
  84. Unload Me
  85. Form2.Show
  86. End Sub
  87.  
  88. Private Sub Form_Load()
  89. Label1.Caption = "Today is : " & Format(Now(), "Long Date")
  90. End Sub
  91.  
  92. Private Sub Timer1_Timer()
  93. Label2.Caption = "Now it is :-" & Format(Now(), "Long time")
  94. End Sub
  95.