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 / ch08 / analyze.bas next >
Encoding:
BASIC Source File  |  1996-11-27  |  1.3 KB  |  41 lines
  1. Attribute VB_Name = "modAnalyze"
  2. ' Analyze.vbp
  3. ' Copyright (c) 1995-1997 by Desaware Inc. All Rights Reserved
  4.  
  5. Option Explicit
  6.  
  7. Public Objlist() As Long
  8.  
  9. Public Function Callback1_EnumMetaFile(ByVal hDC As Long, ByVal lpHTable As Long, ByVal lpMFR As Long, ByVal nObj As Long, ByVal lpClientData As Long) As Long
  10.     Dim di&
  11.     Dim f$, od$
  12.     Dim x%
  13.     Dim foundone%
  14.     ReDim Objlist(nObj)
  15.     Dim mr As METARECORD
  16.     agCopyData ByVal lpMFR, mr, Len(mr)
  17.     f$ = frmAnalyze.GetFunctionName(mr.rdFunction)
  18.     If frmAnalyze.chkSingle.value Then
  19.         frmPrompt.lblFunc.Caption = f$
  20.         frmPrompt.Show 1
  21.     End If
  22.     If frmAnalyze.IncludeRecord Then
  23.         di& = PlayMetaFileRecord(hDC, ByVal lpHTable, ByVal lpMFR, ByVal nObj)
  24.         frmAnalyze.List1.AddItem f$
  25.         If nObj > 0 Then
  26.             agCopyData ByVal lpHTable, Objlist(0), nObj * 4
  27.             For x% = 0 To nObj
  28.                 od$ = frmAnalyze.GetObjDescription(GetObjectType(Objlist(x)))
  29.                 If od$ <> "" Then
  30.                     If Not foundone% Then frmAnalyze.List1.AddItem "-- Objects in table"
  31.                     foundone% = True
  32.                     frmAnalyze.List1.AddItem "   " & od$
  33.                 End If
  34.             Next x%
  35.         End If
  36.     
  37.     End If
  38.     Callback1_EnumMetaFile = True
  39. End Function
  40.  
  41.