Atlanta Custom Software Development 

 
   Search        Code/Page
 

User Login
Email

Password

 

Forgot the Password?
Services
» Web Development
» Maintenance
» Data Integration/BI
» Information Management
Programming
  Database
Automation
OS/Networking
Graphics
Links
Tools
» Regular Expr Tester
» Free Tools

DrawSystemIcon - Draw a system icon on any device context

Total Hit ( 2568)

Rate this article:     Poor     Excellent 

 Submit Your Question/Comment about this article

Rating


 


Click here to copy the following block
Private Declare Function LoadIconByID Lib "user32" Alias "LoadIconA" (ByVal _
  hInstance As Long, ByVal lpIconName As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hDC As Long, _
  ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long

Enum SystemIconConstants
  IDI_APPLICATION = 32512
  IDI_HAND = 32513
  IDI_QUESTION = 32514
  IDI_EXCLAMATION = 32515
  IDI_ASTERISK = 32516
  IDI_WINDOWS = 32517
End Enum

' draw a system icon on the specified device context

Sub DrawSystemIcon(ByVal icon As SystemIconConstants, ByVal hDC As Long, _
  ByVal x As Long, ByVal y As Long)
  Dim hIcon As Long
  ' get the handle of the icon
  hIcon = LoadIconByID(0, icon)
  ' draw it onto the specified device context
  DrawIcon hDC, x, y, hIcon
End Sub


Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)

Job Description : He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )


Home   |  Comment   |  Contact Us   |  Privacy Policy   |  Terms & Conditions   |  BlogsZappySys

© 2008 BinaryWorld LLC. All rights reserved.