frm_qq.frm

快速的多文件传送源码

VERSION 5.00
Object = "{6D5E3200-FEE5-11D0-943D-444553540000}#1.0#0"; "CTLBAR32.OCX"
Begin VB.Form frm_qq 
   Caption         =   "我的QQ菜单"
   ClientHeight    =   4920
   ClientLeft      =   5520
   ClientTop       =   3630
   ClientWidth     =   3795
   LinkTopic       =   "Form1"
   ScaleHeight     =   4920
   ScaleWidth      =   3795
   Begin VB.CommandButton cmd_Insert 
      Caption         =   "插入项目"
      Height          =   375
      Left            =   2160
      TabIndex        =   5
      Top             =   2520
      Width           =   1215
   End
   Begin CTLISTBARLibCtl.ctListBar ctListBar1 
      Height          =   4575
      Left            =   180
      TabIndex        =   4
      Top             =   120
      Width           =   1695
      _Version        =   65536
      _ExtentX        =   2990
      _ExtentY        =   8070
      _StockProps     =   70
      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
      BeginProperty ListFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackImage       =   "frm_qq.frx":0000
      Image1          =   "frm_qq.frx":001C
      Image2          =   "frm_qq.frx":086C
      Image3          =   "frm_qq.frx":0AFC
      Image4          =   "frm_qq.frx":0D90
      Image5          =   "frm_qq.frx":1024
      Image6          =   "frm_qq.frx":12B0
      BorderColor     =   16576
      ListBackColor   =   8421376
      BarForeColor    =   12632256
      GradColorFrom   =   16761024
      Caption         =   "我的好友"
   End
   Begin VB.CommandButton cmd_DelItem 
      Caption         =   "删除项目"
      Height          =   375
      Left            =   2160
      TabIndex        =   3
      Top             =   1920
      Width           =   1215
   End
   Begin VB.CommandButton cmd_AddItem 
      Caption         =   "添加项目"
      Height          =   375
      Left            =   2160
      TabIndex        =   2
      Top             =   1320
      Width           =   1215
   End
   Begin VB.CommandButton cmd_DelList 
      Caption         =   "删除分组"
      Height          =   375
      Left            =   2160
      TabIndex        =   1
      Top             =   720
      Width           =   1215
   End
   Begin VB.CommandButton cmd_AddList 
      Caption         =   "添加分组"
      Height          =   375
      Left            =   2160
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
End
Attribute VB_Name = "frm_qq"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strListName, strItemName As String
Dim intListNum, intItemNum As Integer

Private Sub cmd_AddItem_Click()
  strItemName = ""
  intListNum = 0
  intListNum = Val(InputBox("请输入要添加的项目所在分组的标识号", "添加项目"))
  If intListNum <> 0 Then strItemName = InputBox("请输入要添加的项目的名称", "添加项目")
  If strItemName <> "" Then ctListBar1.AddListItem intListNum, strItemName, ctListBar1.Image1
End Sub

Private Sub cmd_AddList_Click()
  strListName = ""
  strListName = InputBox("请输入要添加的分组名称", "添加分组")
  If strListName <> "" Then ctListBar1.AddList strListName
End Sub

Private Sub cmd_DelItem_Click()
  intListNum = 0
  intItemNum = 0
  intListNum = Val(InputBox("请输入要删除的项目所在分组的标识号", "删除项目"))
  If intListNum <> 0 Then intItemNum = Val(InputBox("请输入要删除的项目的标识号", "删除项目"))
  If intItemNum <> 0 Then ctListBar1.DeleteItem intListNum, intItemNum
End Sub

Private Sub cmd_DelList_Click()
  intListNum = 0
  intListNum = Val(InputBox("请输入要删除的分组标识号", "删除分组"))
  If intListNum <> 0 Then ctListBar1.DeleteList intListNum
End Sub

Private Sub cmd_Insert_Click()
  intListNum = 0
  intItemNum = 0
  strItemName = ""
  intListNum = Val(InputBox("请输入要插入的项目所在分组的标识号", "插入项目"))
  If intListNum <> 0 Then intItemNum = Val(InputBox("请输入要插入的项目所在位置的标识号", "插入项目"))
  If intItemNum <> 0 Then strItemName = InputBox("请输入要插入的项目的名称", "插入项目")
  If strItemName <> "" Then ctListBar1.InsertListItem intListNum, intItemNum, strItemName, ctListBar1.Image1
End Sub

Private Sub ctListBar1_ItemClick(ByVal nList As Integer, ByVal nItem As Integer)
  MsgBox "你点击的项目名称是：" & ctListBar1.ItemText(nList, nItem), vbInformation, nList & "-" & nItem
End Sub

Private Sub Form_Load()
  ctListBar1.AddList "陌生人"
  ctListBar1.AddList "黑名单"
  ctListBar1.AddListItem 1, "My heart", ctListBar1.Image1
  ctListBar1.AddListItem 1, "第七乐章", ctListBar1.Image2
  ctListBar1.AddListItem 1, "小A", ctListBar1.Image3
  ctListBar1.AddListItem 1, "小B", ctListBar1.Image4
  ctListBar1.AddListItem 1, "张三", ctListBar1.Image5
  ctListBar1.AddListItem 1, "李四", ctListBar1.Image6
End Sub