frmmsg.frm

OCX DLL注册工具 OCX DLL注册工具

VERSION 5.00
Begin VB.Form Form2 
   BorderStyle     =   0  'None
   Caption         =   "温馨提示"
   ClientHeight    =   1800
   ClientLeft      =   6630
   ClientTop       =   5850
   ClientWidth     =   3615
   LinkTopic       =   "Form2"
   ScaleHeight     =   120
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   241
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin 工程1.xp_canvas xp_canvas1 
      Height          =   1815
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   3615
      _extentx        =   6376
      _extenty        =   4471
      caption         =   "温馨提示"
      icon            =   "frmMsg.frx":0000
      Begin 工程1.xptopbuttons xptopbuttons1 
         Height          =   315
         Left            =   3232
         Top             =   90
         Width           =   315
         _extentx        =   556
         _extenty        =   556
      End
      Begin 工程1.xpcmdbutton xpcmdbutton1 
         Height          =   375
         Left            =   1440
         TabIndex        =   1
         Top             =   1200
         Width           =   975
         _extentx        =   1720
         _extenty        =   661
         caption         =   "确定"
         font            =   "frmMsg.frx":08DC
      End
      Begin VB.Image Image1 
         Height          =   480
         Left            =   240
         Picture         =   "frmMsg.frx":0900
         Top             =   600
         Width           =   480
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "你选择的ActiveX控件注销失败！"
         Height          =   180
         Left            =   840
         TabIndex        =   2
         Top             =   720
         Width           =   2610
      End
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Unload(Cancel As Integer)

    Set Form2 = Nothing

    Form1.Show

    Form1.xp_canvas1.SetFocus 'XP风格窗体获得焦点

End Sub

Private Sub xpcmdbutton1_Click()

    Unload Me

End Sub

Private Sub xptopbuttons1_Click()

    Unload Me

End Sub