drawitem.bas

VB圣经

Attribute VB_Name = "modDrawItem"
'***************************************************************
' (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

Public Type OwnedDrawItemStruct
    Owner As ArrayOwner
    pSA() As DRAWITEMSTRUCT
End Type
Public g_DerefDrawItemStruct As OwnedDrawItemStruct
Sub Main()
    InitVBoost
    With g_DerefDrawItemStruct
        InitArrayOwner .Owner, LenB(.pSA(0)), 0
    End With
End Sub

Public Function RedirectODLBWindowProc(ByVal This As OwnerDrawListBox, ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    RedirectODLBWindowProc = This.WindowProc(hWnd, uMsg, wParam, lParam)
End Function