assist.frm

考试分析系统 v0.6.0

VERSION 5.00
Begin VB.Form assist 
   BackColor       =   &H00E0E0E0&
   BorderStyle     =   0  'None
   Caption         =   "系统助手"
   ClientHeight    =   2925
   ClientLeft      =   10005
   ClientTop       =   0
   ClientWidth     =   3225
   LinkTopic       =   "mdiform1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   ScaleHeight     =   2925
   ScaleWidth      =   3225
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   50
      Left            =   2400
      Top             =   1200
   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
      AutoSize        =   -1  'True
      BackColor       =   &H00E0E0E0&
      Caption         =   "您需要帮助么?"
      Height          =   180
      Left            =   1680
      MouseIcon       =   "Assist.frx":0000
      MousePointer    =   99  'Custom
      TabIndex        =   0
      ToolTipText     =   "单击获取帮助信息"
      Top             =   360
      Width           =   1185
   End
   Begin VB.Shape Shape1 
      BorderStyle     =   6  'Inside Solid
      FillColor       =   &H00E0E0E0&
      FillStyle       =   0  'Solid
      Height          =   735
      Left            =   1440
      Shape           =   4  'Rounded Rectangle
      Top             =   120
      Width           =   1695
   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 Form_Click()
PopupMenu MDIForm1.Pup
End Sub

Private Sub Form_Load()
Me.Left = 10
Me.Top = 10

 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_Click()
PopupMenu MDIForm1.Pup
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()
 If Dir(App.Path & "\帮助文档.doc") = "" Then
     MsgBox "    帮助文件丢失，请查找 帮助文档.doc 文件！" & Chr(13) & "然后将它存放在应用程序所在的目录。", , App.Title
 Else
    Dim Scr_hDC As Long
    Dim StartDoc As Long
     Scr_hDC = GetDesktopWindow()
     StartDoc = ShellExecute(Scr_hDC, "Open", App.Path & "\帮助文档.doc", "", "C:\", 1)
 End If
End Sub

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