form1.frm

这个软件是有三个非常好用的vb控件组成

VERSION 5.00
Object = "{43805283-DDA2-11D3-B3E7-EDC559154043}#2.1#0"; "FileView.ocx"
Object = "{5475A7A2-A50C-4D03-B836-EA29FDFA9406}#8.0#0"; "Hyperlink.ocx"
Object = "{2724431D-30C7-11D4-B93E-0050DA73070D}#1.0#0"; "Label3Dcontrol.ocx"
Object = "{27990B4A-5C1E-11D4-8F9C-000021DED564}#3.0#0"; "YLED.ocx"
Begin VB.Form Form1 
   Caption         =   "File Viewer"
   ClientHeight    =   6825
   ClientLeft      =   60
   ClientTop       =   420
   ClientWidth     =   9570
   LinkTopic       =   "Form1"
   ScaleHeight     =   6825
   ScaleWidth      =   9570
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   1440
      Top             =   6000
   End
   Begin ydfLed.yTime yTime1 
      Height          =   405
      Left            =   7560
      TabIndex        =   7
      Top             =   6240
      Width           =   1650
      _ExtentX        =   2910
      _ExtentY        =   714
   End
   Begin ydfLed.yDate yDate1 
      Height          =   405
      Left            =   5280
      TabIndex        =   6
      Top             =   6240
      Width           =   2025
      _ExtentX        =   3572
      _ExtentY        =   714
   End
   Begin ydfLed.YLED YLED1 
      Height          =   420
      Left            =   4560
      TabIndex        =   5
      Top             =   6240
      Width           =   510
      _ExtentX        =   900
      _ExtentY        =   741
   End
   Begin Hyperlink.Hyper Hyper2 
      Height          =   300
      Left            =   6360
      TabIndex        =   4
      Top             =   5400
      Width           =   2820
      _ExtentX        =   4974
      _ExtentY        =   529
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "[e-mail]"
      HyperLink       =   "[e-mail]"
      ForeColor       =   -2147483630
   End
   Begin Label3DControl.Label3D Label3D2 
      Height          =   495
      Left            =   4680
      TabIndex        =   3
      Top             =   5280
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   873
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Comic Sans MS"
         Size            =   15.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Comic Sans MS"
         Size            =   15.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackStyle       =   1
      Caption         =   "my email:"
      Caption         =   "my email:"
   End
   Begin Label3DControl.Label3D Label3D1 
      Height          =   495
      Left            =   120
      TabIndex        =   2
      Top             =   5280
      Width           =   1575
      _ExtentX        =   2778
      _ExtentY        =   873
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Comic Sans MS"
         Size            =   15.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Comic Sans MS"
         Size            =   15.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackStyle       =   1
      Caption         =   "my blog:"
      Caption         =   "my blog:"
   End
   Begin Hyperlink.Hyper Hyper1 
      Height          =   300
      Left            =   1800
      TabIndex        =   1
      Top             =   5400
      Width           =   2610
      _ExtentX        =   4604
      _ExtentY        =   529
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Caption         =   "http://hi.baidu.com/7vista"
      HyperLink       =   "http://hi.baidu.com/7vista"
      ForeColor       =   -2147483630
   End
   Begin FileViewControl.FileView FileView1 
      Height          =   5175
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9615
      _Version        =   131073
      _ExtentX        =   16960
      _ExtentY        =   9128
      _StockProps     =   64
      StartingFolder  =   "Form1.frx":0000
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Timer1_Timer()
yDate1.DateValue = Date
yTime1.TimeValue = Time
End Sub