home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Tiny_Dev_E1795559192004.psc / BizCard / class / clsGraphics.cls < prev    next >
Text File  |  2001-09-17  |  1KB  |  38 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsGraphics"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Public Sub PutPixelA(ByVal tHDC As Long, ByVal X As Long, ByVal Y As Long, ByVal Color As Long)
  15.     SetPixel tHDC, X, Y, Color
  16. End Sub
  17.  
  18. Public Sub DrawLine(x1 As Long, y1 As Long, x2 As Long, y2 As Long, Colour As Long)
  19.     Form1.Line (x1, y1)-(x2, y2), Colour, B
  20. End Sub
  21.  
  22. Public Sub Printf(S As String)
  23.     frmWorkArea.ForeColor = frmWorkArea.ForeColorf
  24.     frmWorkArea.Print S
  25. End Sub
  26.  
  27. Function TextOutA(ByVal tHDC As Long, ByVal X As Long, ByVal Y As Long, ByVal Text As String) As Long
  28.     TextOutA = TextOut(tHDC, X, Y, Text, Len(Text))
  29. End Function
  30.  
  31. Function GetHDC(ByVal Hangle As Long) As Long
  32.     GetHDC = GetDC(Hangle)
  33. End Function
  34.  
  35. Function GetPixelA(ByVal tHDC As Long, ByVal X As Long, ByVal Y As Long)
  36.     GetPixelA = GetPixel(tHDC, X, Y)
  37. End Function
  38.