frmassist.frm

vb实用编程150例(光盘) 是我从网上下载的

VERSION 5.00
Begin VB.Form frmAssist 
   BackColor       =   &H80000002&
   BorderStyle     =   4  'Fixed ToolWindow
   ClientHeight    =   1380
   ClientLeft      =   5325
   ClientTop       =   5220
   ClientWidth     =   1860
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1380
   ScaleWidth      =   1860
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer1 
      Interval        =   1800
      Left            =   3735
      Top             =   2145
   End
   Begin VB.Image imgPic 
      Height          =   1380
      Left            =   0
      Picture         =   "frmAssist.frx":0000
      Top             =   0
      Width           =   1860
   End
   Begin VB.Image Image1 
      Height          =   1380
      Index           =   2
      Left            =   3030
      Picture         =   "frmAssist.frx":11AD
      Top             =   1320
      Width           =   1860
   End
   Begin VB.Image Image1 
      Height          =   1380
      Index           =   1
      Left            =   3030
      Picture         =   "frmAssist.frx":235A
      Top             =   1320
      Width           =   1860
   End
   Begin VB.Image Image1 
      Height          =   1380
      Index           =   0
      Left            =   3030
      Picture         =   "frmAssist.frx":350E
      Top             =   1320
      Width           =   1860
   End
End
Attribute VB_Name = "frmAssist"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private frm As Object


Private Sub Form_Load()
 Me.Top = GetSetting("rgOfficeAssistant", "FP", "Top", (Screen.Height - Me.Height) / 2)
 Me.Left = GetSetting("rgOfficeAssistant", "FP", "Left", (Screen.Width - Me.Width) / 2)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call SaveSetting("rgOfficeAssistant", "FP", "Top", Me.Top)
Call SaveSetting("rgOfficeAssistant", "FP", "Left", Me.Left)

MsgForm.Hide
MsgForm.Hide
 
Unload MsgForm

If ZoomedFromLast = -1 Then

rg.frmZoom Me, TopLeft, ZoomFormClosed
Else
rg.frmZoom Me, ZoomedFromLast, ZoomFormClosed
End If

 
End Sub

Private Sub Timer1_Timer()
Dim xCoutner As Integer
On Error Resume Next
For xcounter = 0 To 1

imgPic.Picture = Image1(xcounter).Picture
imgPic.Refresh

Call Sleep(100)

Next
End Sub