timezone.frm

不错的一个VB菜单设计 界面和功能都不错

VERSION 5.00
Object = "*\A..\SOURCE\FAST2003.vbp"
Object = "*\A..\SOURCE\FAST2003.vbp"
Begin VB.Form frmTimeZone 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Date & Time"
   ClientHeight    =   2505
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   Icon            =   "TimeZone.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2505
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer timTimer 
      Interval        =   500
      Left            =   90
      Top             =   1980
   End
   Begin VB.CommandButton cmdDateTime 
      Caption         =   "Date && Time..."
      Height          =   420
      Left            =   1710
      TabIndex        =   1
      Top             =   1935
      Width           =   1320
   End
   Begin VB.CommandButton cmdTimeZone 
      Caption         =   "Time Zone..."
      Height          =   420
      Left            =   3195
      TabIndex        =   0
      Top             =   1935
      Width           =   1320
   End
   Begin FLWSystem.FWTimeZone objTimeZone 
      Left            =   630
      Top             =   1935
      _ExtentX        =   820
      _ExtentY        =   820
   End
   Begin VB.Label lblInfo 
      Caption         =   "4"
      Height          =   240
      Index           =   4
      Left            =   180
      TabIndex        =   6
      Top             =   1530
      Width           =   4335
   End
   Begin VB.Label lblInfo 
      Caption         =   "3"
      Height          =   240
      Index           =   3
      Left            =   180
      TabIndex        =   5
      Top             =   1170
      Width           =   4335
   End
   Begin VB.Label lblInfo 
      Caption         =   "2"
      Height          =   240
      Index           =   2
      Left            =   180
      TabIndex        =   4
      Top             =   810
      Width           =   4335
   End
   Begin VB.Label lblInfo 
      Caption         =   "1"
      Height          =   240
      Index           =   1
      Left            =   180
      TabIndex        =   3
      Top             =   450
      Width           =   4335
   End
   Begin VB.Label lblInfo 
      Caption         =   "0"
      Height          =   240
      Index           =   0
      Left            =   180
      TabIndex        =   2
      Top             =   90
      Width           =   4335
   End
End
Attribute VB_Name = "frmTimeZone"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
  Call objTimeZone.Refresh

  lblInfo(0) = objTimeZone.StandardName
  lblInfo(1) = objTimeZone.DaylightName
  lblInfo(2) = "Difference with GMT " & objTimeZone.Difference & " minutes"
End Sub

Private Sub cmdDateTime_Click()
  Call objTimeZone.ShowProperties(FLWSystem.flwDateTimeGeneral)
End Sub

Private Sub cmdTimeZone_Click()
  Call objTimeZone.ShowProperties(FLWSystem.flwDateTimeZone)
End Sub

Private Sub timTimer_Timer()
  lblInfo(3) = "System date / time : " & objTimeZone.SystemDate
  lblInfo(4) = "Local date / time  : " & objTimeZone.LocalDate
End Sub