frmbubble.frm

传奇网吧伴侣源码

VERSION 5.00
Object = "{4034C11D-8602-11D1-9840-002078110E7D}#1.0#0"; "ASASSISTANTPOPUP.OCX"
Object = "{D19CC187-8393-11D1-983F-002078110E7D}#1.0#0"; "ASBUBBLEFORM.OCX"
Begin VB.Form frmBubble 
   BorderStyle     =   0  'None
   Caption         =   "frmBubble"
   ClientHeight    =   5130
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3240
   LinkTopic       =   "Form1"
   ScaleHeight     =   5130
   ScaleWidth      =   3240
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin asBubbleWindow.asBubbleForm BForm 
      Height          =   4935
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   3015
      _ExtentX        =   5318
      _ExtentY        =   8705
      BackColor       =   12648447
      ArrowHeight     =   16
      Radius          =   12
      Begin VB.CheckBox Check1 
         BackColor       =   &H00C0FFFF&
         Caption         =   "为了不防碍您玩游戏，只要用鼠标双击小人就停止动画。"
         Height          =   375
         Index           =   5
         Left            =   160
         TabIndex        =   16
         Top             =   3600
         Value           =   1  'Checked
         Width           =   2680
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00C0FFFF&
         Caption         =   "快速保存网址，只要按住超链接拖到卡通MM身上就行了。"
         Height          =   375
         Index           =   4
         Left            =   160
         TabIndex        =   15
         Top             =   3120
         Width           =   2680
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00C0FFFF&
         Caption         =   "把IE浏览器恢复成默认状态。"
         Height          =   255
         Index           =   3
         Left            =   160
         TabIndex        =   14
         Top             =   2760
         Width           =   2680
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         Height          =   270
         Index           =   2
         Left            =   1560
         MaxLength       =   2
         TabIndex        =   11
         Text            =   "40"
         Top             =   1845
         Width           =   375
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         Height          =   270
         Index           =   1
         Left            =   840
         MaxLength       =   2
         TabIndex        =   10
         Text            =   "12"
         Top             =   1845
         Width           =   375
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00C0FFFF&
         Caption         =   "离开后自动关闭QQ，防止因为忘记关QQ而泄露密码和隐私。"
         Height          =   375
         Index           =   2
         Left            =   160
         TabIndex        =   9
         Top             =   2280
         Width           =   2655
      End
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         Height          =   270
         Index           =   0
         Left            =   860
         MaxLength       =   50
         TabIndex        =   6
         Text            =   "不早了，该走了！"
         Top             =   1485
         Width           =   1815
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00C0FFFF&
         Caption         =   "重要事情提醒，放心上网："
         Height          =   375
         Index           =   1
         Left            =   160
         TabIndex        =   5
         Top             =   1080
         Width           =   2535
      End
      Begin VB.CheckBox Check1 
         BackColor       =   &H00C0FFFF&
         Caption         =   "整点报时提醒，掌握时间。"
         Height          =   375
         Index           =   0
         Left            =   160
         TabIndex        =   4
         Top             =   720
         Width           =   2535
      End
      Begin asAssistantPopup.asAssisPopup PopCancel 
         Height          =   345
         Left            =   1560
         TabIndex        =   2
         Top             =   4200
         Width           =   1005
         _ExtentX        =   1773
         _ExtentY        =   609
         BackColor       =   12648447
         Caption         =   "取消"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin asAssistantPopup.asAssisPopup PopEnter 
         Height          =   345
         Left            =   360
         TabIndex        =   1
         Top             =   4200
         Width           =   1005
         _ExtentX        =   1773
         _ExtentY        =   609
         BackColor       =   12648447
         Caption         =   "确定"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin VB.Label Label1 
         BackColor       =   &H00C0FFFF&
         BackStyle       =   0  'Transparent
         Caption         =   "分提醒。"
         Height          =   255
         Index           =   4
         Left            =   2040
         TabIndex        =   13
         Top             =   1875
         Width           =   735
      End
      Begin VB.Label Label1 
         BackColor       =   &H00C0FFFF&
         BackStyle       =   0  'Transparent
         Caption         =   "点"
         Height          =   255
         Index           =   3
         Left            =   1320
         TabIndex        =   12
         Top             =   1875
         Width           =   255
      End
      Begin VB.Label Label1 
         BackColor       =   &H00C0FFFF&
         BackStyle       =   0  'Transparent
         Caption         =   "时间："
         Height          =   255
         Index           =   2
         Left            =   360
         TabIndex        =   8
         Top             =   1875
         Width           =   615
      End
      Begin VB.Label Label1 
         BackColor       =   &H00C0FFFF&