assist.frm

TMS（小型票务管理VB+Access）

VERSION 5.00
Begin VB.Form assist 
   BackColor       =   &H00E0E0E0&
   BorderStyle     =   0  'None
   Caption         =   "help!"
   ClientHeight    =   2925
   ClientLeft      =   10005
   ClientTop       =   0
   ClientWidth     =   3420
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   2925
   ScaleWidth      =   3420
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   50
      Left            =   2520
      Top             =   1920
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   50
      Left            =   2520
      Top             =   1200
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   " "
      DragMode        =   1  'Automatic
      Height          =   375
      Left            =   1680
      TabIndex        =   2
      Top             =   1080
      Width           =   255
   End
   Begin VB.Label cache 
      BackStyle       =   0  'Transparent
      Caption         =   " "
      Height          =   375
      Left            =   240
      TabIndex        =   1
      Top             =   1200
      Width           =   255
   End
   Begin VB.Shape Shape3 
      BackColor       =   &H00E0E0E0&
      BackStyle       =   1  'Opaque
      Height          =   135
      Left            =   1005
      Shape           =   2  'Oval
      Top             =   240
      Width           =   135
   End
   Begin VB.Shape Shape2 
      BackColor       =   &H00E0E0E0&
      BackStyle       =   1  'Opaque
      Height          =   135
      Left            =   1200
      Shape           =   2  'Oval
      Top             =   120
      Width           =   255
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H00E0E0E0&
      BackStyle       =   0  'Transparent
      Caption         =   "Need Help ?"
      Height          =   435
      Left            =   1440
      MouseIcon       =   "assist.frx":0000
      MousePointer    =   99  'Custom
      TabIndex        =   0
      ToolTipText     =   "Click to access the help data"
      Top             =   360
      Width           =   1755
   End
   Begin VB.Shape Shape1 
      FillColor       =   &H00E0E0E0&
      FillStyle       =   0  'Solid
      Height          =   735
      Left            =   1440
      Shape           =   4  'Rounded Rectangle
      Top             =   120
      Width           =   1815
   End
   Begin VB.Image Image1 
      Height          =   3000
      Left            =   0
      Picture         =   "assist.frx":030A
      Top             =   0
      Width           =   2100
   End
End
Attribute VB_Name = "assist"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i



Private Sub cache_DragDrop(Source As Control, X As Single, Y As Single)
  Source = Label2
  MsgBox "(C)MAXIME GHEYSEN 2001 ALL RIGHTS RESERVED", vbExclamation, "MAXIME GHEYSEN"
End Sub


Private Sub Form_Load()
 assist.Height = 1
 assist.Width = 1
Timer1.Enabled = True

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
label1.FontBold = False
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
label1.FontBold = False
End Sub

Private Sub Label1_Click()
      Mainform.CommonDialog1.HelpFile = ".\help\help.hlp"
      Mainform.CommonDialog1.HelpCommand = cdlHelpContents
      Mainform.CommonDialog1.showHelp

End Sub

'Function InternetOpenURL()
'Dim modObjIE
'Set modObjIE = Nothing
'    Set modObjIE = CreateObject("InternetExplorer.Application")
'    modObjIE.Visible = True
'    modObjIE.AddressBar = False
'    modObjIE.FullScreen = True
'    modObjIE.MenuBar = False
'    modObjIE.Navigate2 "file:\\\C:\tms\help.html"
'End Function

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
label1.FontBold = True
End Sub

Private Sub Timer1_Timer()

   If i = 10 Then
     Timer1.Enabled = False
     Exit Sub
   End If
   i = i + 1
   assist.Height = i * 292.5
   assist.Width = i * 342
End Sub
Private Sub Timer2_Timer()

   If i = 0 Then
     Timer2.Enabled = False
     Exit Sub
   End If
   i = i - 1
   assist.Height = assist.Height - 292.5
   assist.Width = assist.Width - 342
End Sub