home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / SebaMix_Pr53742272002.psc / mdlProgressBar.bas < prev    next >
Encoding:
BASIC Source File  |  2001-06-04  |  1.2 KB  |  35 lines
  1. Attribute VB_Name = "mdlProgressBar"
  2. Option Explicit
  3.  
  4. Public Const LF_FACESIZE = 32
  5. Public Type LOGFONT
  6.         lfHeight As Long
  7.         lfWidth As Long
  8.         lfEscapement As Long
  9.         lfOrientation As Long
  10.         lfWeight As Long
  11.         lfItalic As Byte
  12.         lfUnderline As Byte
  13.         lfStrikeOut As Byte
  14.         lfCharSet As Byte
  15.         lfOutPrecision As Byte
  16.         lfClipPrecision As Byte
  17.         lfQuality As Byte
  18.         lfPitchAndFamily As Byte
  19.         lfFaceName As String * LF_FACESIZE
  20. End Type
  21.  
  22.  
  23. Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  24.  
  25. Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
  26.  
  27. Public Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
  28.  
  29. Public Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
  30.  
  31. Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
  32.  
  33. Public Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
  34.  
  35.