form1.frm

一款漂亮的控件。 快

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "个人助手界面的实现"
   ClientHeight    =   3045
   ClientLeft      =   4440
   ClientTop       =   3480
   ClientWidth     =   6330
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   3045
   ScaleWidth      =   6330
   Begin VB.Frame Frame1 
      Height          =   1350
      Index           =   1
      Left            =   2250
      TabIndex        =   2
      Top             =   675
      Width           =   2010
      Begin VB.CommandButton btnZoom 
         Caption         =   "从一侧闪出个人助手"
         Height          =   490
         Index           =   1
         Left            =   165
         TabIndex        =   3
         Top             =   285
         Width           =   1710
      End
   End
   Begin VB.Frame Frame1 
      Height          =   1350
      Index           =   0
      Left            =   90
      TabIndex        =   0
      Top             =   675
      Width           =   2010
      Begin VB.CommandButton btnZoom 
         Caption         =   "从按钮处闪出个人助手"
         Height          =   490
         Index           =   0
         Left            =   165
         TabIndex        =   1
         Top             =   300
         Width           =   1710
      End
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "个人助手界面的实现"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   14.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   465
      Left            =   30
      TabIndex        =   4
      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


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 = "黑体"
.msgText.FontBold = True
.msgText.FontItalic = False
.msgText.FontSize = 14
.A_SystemIcon = IDI_EXCLAMATION
.A_AddButton 0, "确定"
.A_AddButton 1, "No"
.A_AddButton 2, "取消"
.A_MsgText = "创建您自己的个人助手, 呈现很酷的加载效果！"
.A_Initialize
End With

 
Select Case Index
Case 0
rg.frmZoomFromObj btnZoom(0), frmAssist
Case 1
rg.frmZoom frmAssist, FromTaskBarTray, ZoomFormOpen

End Select
End Sub


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