frmtest.frm

来自「这个代码对于VB开发人员有好大的帮助,这是一个不错的东西呀」· FRM 代码 · 共 172 行

VERSION 5.00
Begin VB.Form frmTest 
   Caption         =   "托盘气球提示"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdDel 
      Caption         =   "删除图标"
      Height          =   375
      Left            =   3150
      TabIndex        =   7
      Top             =   930
      Width           =   1215
   End
   Begin VB.ComboBox cmbType 
      Height          =   300
      ItemData        =   "frmTest.frx":0000
      Left            =   840
      List            =   "frmTest.frx":0010
      Style           =   2  'Dropdown List
      TabIndex        =   6
      Top             =   1560
      Width           =   2145
   End
   Begin VB.TextBox txtInfo 
      Height          =   345
      Left            =   840
      TabIndex        =   3
      Text            =   "你好，欢迎使用叶帆软件！"
      Top             =   1020
      Width           =   2115
   End
   Begin VB.TextBox txtTitle 
      Height          =   345
      Left            =   840
      TabIndex        =   1
      Text            =   "叶帆软件"
      Top             =   480
      Width           =   2115
   End
   Begin VB.CommandButton cmdShow 
      Caption         =   "显示提示"
      Height          =   375
      Left            =   3180
      TabIndex        =   0
      Top             =   450
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "类型："
      Height          =   315
      Left            =   270
      TabIndex        =   5
      Top             =   1590
      Width           =   885
   End
   Begin VB.Label lblInfo 
      Caption         =   "信息："
      Height          =   315
      Left            =   270
      TabIndex        =   4
      Top             =   1050
      Width           =   885
   End
   Begin VB.Label lblTitle 
      Caption         =   "标题："
      Height          =   315
      Left            =   270
      TabIndex        =   2
      Top             =   510
      Width           =   885
   End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************************
'**模 块 名：frmTest
'**说    明：YFsoft 版权所有2004 - 2005(C)
'**创 建 人：叶帆
'**日    期：2004-10-14 09:08:28
'**修 改 人：
'**日    期：
'**描    述：托盘气球提示
'**版    本：V1.0.0
'*************************************************************************
Option Explicit

'*************************************************************************
'**函 数 名：cmdDel_Click
'**输    入：无
'**输    出：无
'**功能描述：删除图标
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2004-10-14 09:34:58
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub cmdDel_Click()
    DelNotifyIcon Me
End Sub

'*************************************************************************
'**函 数 名：cmdShow_Click
'**输    入：无
'**输    出：无
'**功能描述：显示提示
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2004-10-14 09:34:44
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub cmdShow_Click()
    ShowNotifyIcon Me, txtTitle, txtInfo, cmbType.ListIndex
End Sub

'*************************************************************************
'**函 数 名：Form_Load
'**输    入：无
'**输    出：无
'**功能描述：
'**全局变量：
'**调用模块：初始化
'**作    者：叶帆
'**日    期：2004-10-14 09:08:57
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub Form_Load()
  cmbType.ListIndex = 1    '信息图标
  cmdShow_Click            '显示信息
End Sub
'*************************************************************************
'**函 数 名：Form_Unload
'**输    入：Cancel(Integer) -
'**输    出：无
'**功能描述：结束
'**全局变量：
'**调用模块：
'**作    者：叶帆
'**日    期：2004-10-14 09:35:32
'**修 改 人：
'**日    期：
'**版    本：V1.0.0
'*************************************************************************
Private Sub Form_Unload(Cancel As Integer)
       
    '删除图标
    cmdDel_Click
    
    ' 卸载所有窗体
    Dim frm As Form
    For Each frm In Forms
        Unload frm
    Next
End Sub