testdrawitem.frm

此源码为vb圣经编码

VERSION 5.00
Object = "{DC8AD394-6800-11D0-A751-00A0C91110C3}#1.0#0"; "Drawitem.ocx"
Begin VB.Form frmTestDrawItem 
   Caption         =   "Owner Draw ListBox Sample"
   ClientHeight    =   6060
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6270
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   18
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H80000008&
   LinkTopic       =   "Form1"
   ScaleHeight     =   6060
   ScaleWidth      =   6270
   StartUpPosition =   3  'Windows Default
   Begin ODListBox.OwnerDrawListBox OwnerDrawListBox1 
      Height          =   5940
      Left            =   60
      TabIndex        =   0
      Top             =   45
      Width           =   6135
      _ExtentX        =   10821
      _ExtentY        =   10478
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Object.WhatsThisHelpID =   -2147483648
   End
   Begin VB.Image imgGlyphs 
      Height          =   480
      Index           =   9
      Left            =   6840
      OLEDropMode     =   1  'Manual
      Picture         =   "TestDrawItem.frx":0000
      Top             =   2385
      Width           =   480
   End
   Begin VB.Image imgGlyphs 
      Height          =   480
      Index           =   8
      Left            =   7230
      OLEDropMode     =   1  'Manual
      Picture         =   "TestDrawItem.frx":0442
      Top             =   855
      Width           =   480
   End
   Begin VB.Image imgGlyphs 
      Height          =   480
      Index           =   7
      Left            =   6435
      OLEDropMode     =   1  'Manual
      Picture         =   "TestDrawItem.frx":0884
      Top             =   585
      Width           =   480
   End
   Begin VB.Image imgGlyphs 
      Height          =   480
      Index           =   6
      Left            =   6750
      OLEDropMode     =   1  'Manual
      Picture         =   "TestDrawItem.frx":0CC6
      Top             =   1590
      Width           =   480
   End
   Begin VB.Image imgGlyphs 
      Height          =   480
      Index           =   5
      Left            =   7560
      OLEDropMode     =   1  'Manual
      Picture         =   "TestDrawItem.frx":1108
      Top             =   1980
      Width           =   480
   End
   Begin VB.Image imgGlyphs 
      Height          =   480
      Index           =   4
      Left            =   7965
      Picture         =   "TestDrawItem.frx":154A
      Top             =   3195
      Width           =   480
   End
   Begin VB.Image imgGlyphs 
      Height          =   480
      Index           =   3
      Left            =   7875
      Picture         =   "TestDrawItem.frx":198C
      Top             =   2520
      Width           =   480
   End
   Begin VB.Image imgGlyphs 
      Height          =   480
      Index           =   2
      Left            =   6975
      Picture         =   "TestDrawItem.frx":1DD6
      Top             =   2925
      Width           =   480
   End
   Begin VB.Image imgGlyphs 
      Height          =   480
      Index           =   1
      Left            =   7830
      Picture         =   "TestDrawItem.frx":2218
      Top             =   1260
      Width           =   480
   End
   Begin VB.Image imgGlyphs 
      Height          =   3495
      Index           =   0
      Left            =   7290
      Picture         =   "TestDrawItem.frx":265A
      Top             =   315
      Width           =   8175
   End
End
Attribute VB_Name = "frmTestDrawItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***************************************************************
' (c) Copyright 2000 Matthew J. Curland
'
' This file is from the CD-ROM accompanying the book:
' Advanced Visual Basic 6: Power Techniques for Everyday Programs
'   Author: Matthew Curland
'   Published by: Addison-Wesley, July 2000
'   ISBN: 0-201-70712-8
'   http://www.PowerVB.com
'***************************************************************
Option Explicit
Private Sub Form_Load()
    With OwnerDrawListBox1
        .AddItem "    Subclassing", imgGlyphs(0).Picture
        .AddItem "in VB6", imgGlyphs(1).Picture
        .AddItem "is lightweight", imgGlyphs(2).Picture
        .AddItem "and easy", imgGlyphs(3).Picture
        .AddItem "with AddressOf", imgGlyphs(4).Picture
        .AddItem "and PushParamThunk.", imgGlyphs(5).Picture
        .AddItem "    Use DbgWProc.Dll", imgGlyphs(6).Picture
        .AddItem "in the IDE, ", imgGlyphs(7).Picture
        .AddItem "but don't", imgGlyphs(8).Picture
        .AddItem "ship it.", imgGlyphs(9).Picture
    End With
End Sub

Private Sub Form_Resize()
    OwnerDrawListBox1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub