test.frm

将xml格式的文件导入到 数据库中,将xml格式的文件导入到 数据库中

VERSION 5.00
Object = "{C4CD8DD2-6CD1-43EB-BA66-F91AB2E2E07E}#1.0#0"; "MyTubrTray.ocx"
Begin VB.Form Test 
   Caption         =   "系统托盘"
   ClientHeight    =   2280
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4485
   Icon            =   "Test.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   2280
   ScaleWidth      =   4485
   StartUpPosition =   3  '窗口缺省
   Begin MyTubrTray.TubrTray TubrTray1 
      Left            =   660
      Top             =   0
      _ExtentX        =   714
      _ExtentY        =   714
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   400
      Left            =   2040
      Top             =   60
   End
   Begin VB.CommandButton Command2 
      Caption         =   "改变托盘提示文本"
      Height          =   795
      Left            =   2280
      TabIndex        =   1
      Top             =   660
      Width           =   1875
   End
   Begin VB.CommandButton Command1 
      Caption         =   "闪烁托盘图标"
      Height          =   795
      Left            =   240
      TabIndex        =   0
      Top             =   660
      Width           =   1695
   End
   Begin VB.Menu TestMenu 
      Caption         =   "测试菜单"
      Begin VB.Menu menuright 
         Caption         =   "右键菜单"
         Begin VB.Menu menu1 
            Caption         =   "托盘右键菜单"
         End
         Begin VB.Menu menu2 
            Caption         =   "菜单2"
         End
         Begin VB.Menu menu3 
            Caption         =   "菜单3"
         End
         Begin VB.Menu menu4 
            Caption         =   "退出(end)"
         End
      End
   End
End
Attribute VB_Name = "Test"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'********************************************
'本控件由绿兔社区-VB版块开发 http://www.tubr.com/club QQ:6487911
'本控件 注册和未注册都无任何使用限制，可免费使用
'********************************************

Private Sub Form_Load()
    '*********************************************************************************
    '本控件 注册和未注册都无任何使用限制，可免费使用
    '只是未注册用户，使用以前要加上以下版权声明，否则不能正常使用
    '.TrayPoweredBy = "本控件由绿兔社区-VB版块提供 http://www.tubr.com/club QQ:6487911"
    '本控件注册后，可去除以下版权声明，注册费用10元。不注册在加了以下一行版权声明后一样可以正常使用
    '**********************************************************************************
    Me.TubrTray1.TrayPoweredBy = "本控件由绿兔社区-VB版块提供 http://www.tubr.com/club QQ:6487911"
    '**********************************************************************************
    
    Dim Pic As Picture
    Set Pic = Me.Icon '将托盘图标设为窗体的图标
'    Set Pic = LoadPicture(App.Path & "\1.ico") '也可从文件中载入
    
    Me.TubrTray1.TrayShow Pic '显示托盘
'   Me.TubrTray1.TrayShow '省略后面的参数可载入空图标

    Me.TubrTray1.TrayTipText = "托盘提示文本" '设置鼠标放在托盘上时，显示出来的托盘提示文本
End Sub

Private Sub menu4_Click()
    Me.TubrTray1.TrayRemove '退出时删除托盘
    End
End Sub

'******************************************
'以下为托盘事件
'******************************************
Private Sub TubrTray1_Click()
    Me.SetFocus '单击托盘事件
End Sub

Private Sub TubrTray1_DblClick()
    Me.SetFocus '双击托盘事件
End Sub

Private Sub TubrTray1_MouseUp(Button As Integer)
    Select Case Button
            Case 1 '1为左键
                
            Case 2 '2为右键
                Me.PopupMenu menuright '弹出菜单
    End Select
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Me.TubrTray1.TrayRemove '退出时删除托盘
End Sub

Private Sub Command1_Click()
    Me.Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
    Me.TubrTray1.TrayTipText = "改变托盘提示文本"
End Sub

Private Sub Timer1_Timer()
    Dim Pic As Picture
    If Me.Timer1.Tag = "" Then
        Me.TubrTray1.TrayShow     '省略后面的参数可载入空图标
        Me.Timer1.Tag = "闪烁"
    Else

        Set Pic = Me.Icon
        Me.TubrTray1.TrayShow Pic '改变托盘图标，也用TrayShow方法
        Me.Timer1.Tag = ""
    End If
    DoEvents
End Sub