frmassist.frm

山西旅游酒店预定商务软件

VERSION 5.00
Begin VB.Form frmAssist 
   BackColor       =   &H80000002&
   BorderStyle     =   4  'Fixed ToolWindow
   ClientHeight    =   1380
   ClientLeft      =   4875
   ClientTop       =   5220
   ClientWidth     =   1860
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   1380
   ScaleWidth      =   1860
   ShowInTaskbar   =   0   'False
   Begin VB.Timer Timer2 
      Enabled         =   0   'False
      Interval        =   5000
      Left            =   1200
      Top             =   240
   End
   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

Public Function MsgResults(Results As Integer)
frm.Msg Results
End Function

Public Sub ReturnTo(f As Form)
Set frm = f
End Sub


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 imgPic_Click()
Timer2.Enabled = True
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

Private Sub Timer2_Timer()
frmAssist.ZOrder
End Sub