Get DC and release it : Windows Resources « Windows API « VBA / Excel / Access / Word






Get DC and release it

 

Private Const BITSPIXEL = 12
Private Const LOGPIXELSX = 88
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDC As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hDC As Long, ByVal Index As Long) As Long

Sub Main()
  Dim hDC As Long
  hDC = GetDC(0)
  PointsPerPixel = 72 / GetDeviceCaps(hDC, LOGPIXELSX)
  Call ReleaseDC(0, hDC)
End Sub

 








Related examples in the same category

1.Clipping and Unclipping the Cursor
2.The FindWindow() function finds the first top-level window in the window list that satisfies the specified arguments.
3.Check Whether an Excel File Is Open on a Network
4.Custom About Dialog
5.Disable the X for Closing a Userform
6.Check mouse button
7.Returns the Windows directory
8.Get execuatable file name from a given file name
9.Get screen width and height
10.Get window's rectangle
11.Find window by class name
12.Show Excel Window Size
13.Get color depth
14.Get user name
15.Get the computer name
16.Freeze a window
17.Change the Excel icon