frmsel.frm

防Listview控件源码

VERSION 5.00
Begin VB.Form frmSel 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "另类自定义listview控件源码(支持真彩色图标)"
   ClientHeight    =   3150
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5610
   Icon            =   "frmSel.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3150
   ScaleWidth      =   5610
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdIcons 
      Caption         =   "真彩色大图标示例"
      Height          =   390
      Left            =   375
      TabIndex        =   4
      Top             =   2325
      Width           =   1815
   End
   Begin VB.CommandButton cmdDrop 
      Caption         =   "资源拖放示例"
      Height          =   390
      Left            =   375
      TabIndex        =   3
      Top             =   1800
      Width           =   1815
   End
   Begin VB.CommandButton Command3 
      Caption         =   "简单示例"
      Height          =   390
      Left            =   375
      TabIndex        =   2
      Top             =   1275
      Width           =   1815
   End
   Begin VB.CommandButton Command2 
      Caption         =   "黑色背景示例"
      Height          =   390
      Left            =   375
      TabIndex        =   1
      Top             =   750
      Width           =   1830
   End
   Begin VB.CommandButton Command1 
      Caption         =   "播放列表示例"
      Height          =   390
      Left            =   375
      TabIndex        =   0
      Top             =   225
      Width           =   1845
   End
End
Attribute VB_Name = "frmSel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/05/08
'描    述：另类自定义listview控件源码(支持真彩色图标)
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
'
'感谢您使用本站源码，如果方便的话请给于本站一点支持，谢谢。
'
'本站物品:
'700MB容量的VB.NET源码光盘(38元包快递)
'支持支付宝交易:http://auction1.taobao.com/auction/0/item_detail-0db1-a8aba972995270433643e99d2e4ac592.jhtml
'也可以银行汇款：http://www.mndsoft.com/sale/yh.png
'
'USB电脑遥控器 源码光盘
'支持支付宝交易:http://auction1.taobao.com/auction/0/item_detail-0db1-dd4a9c3f6a5785231091b01d54af01fd.jhtml
'也可以银行汇款：http://www.mndsoft.com/sale/yh.png
'
'如果您给于本站一点支持，本站将更好的利用自身优势为您寻找您需要的代码!
Option Explicit

Private Sub cmdDrop_Click()
    frmDrop.Show , Me
End Sub

Private Sub cmdIcons_Click()
    frmBig.Show , Me
End Sub

Private Sub Command1_Click()
    frmPlaylist.Show , Me
End Sub

Private Sub Command2_Click()
    frmBlack.Show , Me
End Sub

Private Sub Command3_Click()
    frmSimp.Show , Me
End Sub