form1.frm

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

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Assistant"
   ClientHeight    =   4920
   ClientLeft      =   2925
   ClientTop       =   2820
   ClientWidth     =   6435
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   4920
   ScaleWidth      =   6435
   Visible         =   0   'False
   WindowState     =   1  'Minimized
   Begin VB.TextBox Text1 
      Height          =   315
      Left            =   90
      TabIndex        =   16
      Text            =   "Add Cool Animation to your windows."
      Top             =   4440
      Width           =   6135
   End
   Begin VB.Frame Frame1 
      Caption         =   "Zoom From Screen"
      Height          =   1830
      Index           =   2
      Left            =   90
      TabIndex        =   6
      Top             =   2190
      Width           =   6165
      Begin VB.CommandButton btnZoom 
         Caption         =   "Bottom RIght"
         Height          =   390
         Index           =   12
         Left            =   4320
         TabIndex        =   15
         Top             =   1275
         Width           =   1710
      End
      Begin VB.CommandButton btnZoom 
         Caption         =   "Bottom Center"
         Height          =   390
         Index           =   11
         Left            =   4320
         TabIndex        =   14
         Top             =   795
         Width           =   1710
      End
      Begin VB.CommandButton btnZoom 
         Caption         =   "Bottom Left"
         Height          =   390
         Index           =   10
         Left            =   4320
         TabIndex        =   13
         Top             =   300
         Width           =   1710
      End
      Begin VB.CommandButton btnZoom 
         Caption         =   "Middle Right"
         Height          =   390
         Index           =   9
         Left            =   2220
         TabIndex        =   12
         Top             =   1275
         Width           =   1710
      End
      Begin VB.CommandButton btnZoom 
         Caption         =   "Middle Center"
         Height          =   390
         Index           =   8
         Left            =   2220
         TabIndex        =   11
         Top             =   795
         Width           =   1710
      End
      Begin VB.CommandButton btnZoom 
         Caption         =   "Middle Left"
         Height          =   390
         Index           =   7
         Left            =   2220
         TabIndex        =   10
         Top             =   300
         Width           =   1710
      End
      Begin VB.CommandButton btnZoom 
         Caption         =   "Top Right"
         Height          =   390
         Index           =   6
         Left            =   120
         TabIndex        =   9
         Top             =   1275
         Width           =   1710
      End
      Begin VB.CommandButton btnZoom 
         Caption         =   "Top Center"
         Height          =   390
         Index           =   5
         Left            =   120
         TabIndex        =   8
         Top             =   795
         Width           =   1710
      End
      Begin VB.CommandButton btnZoom 
         Caption         =   "Top Left"
         Height          =   390
         Index           =   4
         Left            =   120
         TabIndex        =   7
         Top             =   300
         Width           =   1710
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Zoom From Tray"
      Height          =   1350
      Index           =   1
      Left            =   2250
      TabIndex        =   3
      Top             =   675
      Width           =   2010
      Begin VB.CommandButton btnZoom 
         Caption         =   "Zoom From Tray"
         Height          =   390
         Index           =   3
         Left            =   165
         TabIndex        =   5
         Top             =   285
         Width           =   1710
      End
      Begin VB.CommandButton btnZoom 
         Caption         =   "Zoom To Tray"
         Height          =   390
         Index           =   2
         Left            =   165
         TabIndex        =   4
         Top             =   765
         Width           =   1710
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Zoom From Objects"
      Height          =   1350
      Index           =   0
      Left            =   90
      TabIndex        =   0
      Top             =   675
      Width           =   2010
      Begin VB.CommandButton btnZoom 
         Caption         =   "Zoom To Button"
         Height          =   390
         Index           =   1
         Left            =   165
         TabIndex        =   2
         Top             =   780
         Width           =   1710
      End
      Begin VB.CommandButton btnZoom 
         Caption         =   "Zoom From Button"
         Height          =   390
         Index           =   0
         Left            =   165
         TabIndex        =   1
         Top             =   300
         Width           =   1710
      End
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "Message:"
      Height          =   270
      Left            =   90
      TabIndex        =   18
      Top             =   4140
      Width           =   1950
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Make your own Assistant"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   30
      TabIndex        =   17
      Top             =   60
      Width           =   6345
   End
   Begin VB.Image imgPic 
      Height          =   1380
      Left            =   4425
      Picture         =   "Form1.frx":0000
      Top             =   675
      Width           =   1860
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Public Sub Msg(Results As Integer)
 If Results = 1 Then
  rg.frmZoom frmAssist, TopLeft, ZoomFormClosed
 Else:
 End If
End Sub

Private Sub btnZoom_Click(index As Integer)
Unload MsgForm
If index <> 1 Then Unload frmAssist
With MsgForm
.A_SetBackColor vbHighlight
.msgText.ForeColor = vbYellow
.msgText.FontName = "Arial"
.msgText.FontBold = True
.msgText.FontItalic = False
.msgText.FontSize = 14
.A_SystemIcon = IDI_EXCLAMATION
.A_SendResultsTo Me
.A_AddButton 0, ""
.A_AddButton 1, "No"
.A_AddButton 2, "Cancel"
.A_MsgText = Text1
.A_Initialize
End With

 
Select Case index
Case 0
rg.frmZoomFromObj btnZoom(0), frmAssist
Case 1
rg.frmZoomToObj btnZoom(1), frmAssist
Case 2
rg.frmZoom frmAssist, ToTaskBarTray, ZoomFormClosed
Case 3
rg.frmZoom frmAssist, FromTaskBarTray, ZoomFormOpen
Case 4
rg.frmZoom frmAssist, TopLeft, ZoomFormOpen
Case 5
rg.frmZoom frmAssist, TopCenter, ZoomFormOpen
Case 6
rg.frmZoom frmAssist, TopRight, ZoomFormOpen
Case 7
rg.frmZoom frmAssist, MidLeft, ZoomFormOpen
Case 8
rg.frmZoom frmAssist, MidCenter, ZoomFormOpen
Case 9
rg.frmZoom frmAssist, MidRight, ZoomFormOpen
Case 10
rg.frmZoom frmAssist, BtmLeft, ZoomFormOpen
Case 11
rg.frmZoom frmAssist, BtmCenter, ZoomFormOpen
Case 12
rg.frmZoom frmAssist, BtmRight, ZoomFormOpen
End Select
End Sub


Private Sub Form_Load()
'Ramon Guerrero
'[e-mail]
'[e-mail]
'[e-mail]

Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2

With MsgForm
.A_SetBackColor vbHighlight
.msgText.ForeColor = vbHighlightText
.msgText.FontName = "宋体"
.msgText.FontBold = True
.msgText.FontItalic = False
.msgText.FontSize = 12
.A_SystemIcon = IDI_QUESTION
.A_SendResultsTo Me
.A_AddButton 0, "确定"
.A_AddButton 1, "取消"
.A_MsgText = "使用帮助"
.A_Initialize
End With

rg.frmZoom Me, TopLeft, ZoomFormOpen, 350, Explode

End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload MsgForm
Unload frmAssist
'rg.frmZoom Me, ToTaskBarTray, ZoomFormClosed
End Sub