home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / vbpg32 / samples5 / ch06 / modex6b.bas < prev    next >
Encoding:
BASIC Source File  |  1996-11-20  |  510 b   |  14 lines
  1. Attribute VB_Name = "modEx6b"
  2. Option Explicit
  3.  
  4. Public Function Callback1_EnumFormats(ByVal lpstr As Long) As Long
  5.     Ex6b.List1.AddItem agGetStringFromPointer(lpstr)    ' Note string extraction
  6.     Callback1_EnumFormats = 1   ' Use API TRUE value, not VB's
  7. End Function
  8.  
  9. Public Function Callback2_EnumFormats(ByVal lpstr As Long) As Long
  10.     Ex6b.List2.AddItem agGetStringFromPointer(lpstr)    ' Note string extraction
  11.     Callback2_EnumFormats = 1   ' Use API TRUE value, not VB's
  12. End Function
  13.  
  14.