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 / classlib / desaware / dwhndtab.cls < prev    next >
Encoding:
Text File  |  1996-02-17  |  1.0 KB  |  42 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "dwHandleTable"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. Option Explicit
  9.  
  10. ' Class dwHandleTable
  11. ' Desaware API Toolkit object library
  12. ' Copyright (c) 1996 by Desaware Inc.
  13. ' All rights reserved
  14.  
  15. Private iHandleTable As HANDLETABLE
  16.  
  17. Public Sub CopyToHANDLETABLE(ByVal lpHandleTable As Long)
  18.     If lpHandleTable = 0 Then RaiseError 5, "dwHandleTable"
  19.     agCopyData iHandleTable, ByVal lpHandleTable, Len(iHandleTable)
  20. End Sub
  21.  
  22. #If Win32 Then
  23. Public Property Get ObjectHandle(i As Long) As Long
  24.     ObjectHandle = CLng(iHandleTable.ObjectHandle(i))
  25. End Property
  26. #Else
  27. Public Property Get ObjectHandle() As String
  28.     ObjectHandle = iHandleTable.ObjectHandle
  29. End Property
  30. #End If
  31.  
  32. #If Win32 Then
  33. Public Property Let ObjectHandle(i As Long, vNewValue As Long)
  34.     iHandleTable.ObjectHandle(i) = vNewValue
  35. End Property
  36. #Else
  37. Public Property Let ObjectHandle(vNewValue As String)
  38.     iHandleTable.ObjectHandle = vNewValue
  39. End Property
  40. #End If
  41.  
  42.