Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
determine bbp (bits per pixel)
- Thread starter djdidge
- Start date
- Thread starter
- #2
- Thread starter
- #3
tried using this API...
Private Const BITSPIXEL = 12
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
...
MsgBox("This system is using " & Format$(GetDeviceCaps(Me.Handle.ToInt64, BITSPIXEL)) & "-bit color.")
this returns a stupidly large number like 23254235363
Private Const BITSPIXEL = 12
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
...
MsgBox("This system is using " & Format$(GetDeviceCaps(Me.Handle.ToInt64, BITSPIXEL)) & "-bit color.")
this returns a stupidly large number like 23254235363
- Thread starter
- #4
thanks to the TheLearnedOne for this answer in another forum..............................................
Private Const BITSPIXEL As Integer = 12
Private Declare Function GetDeviceCaps Lib "gdi32" _
(ByVal hDC As Integer, ByVal nIndex As Integer) As Integer
Private Declare Function GetDesktopWindow Lib "User32.dll" () As Integer
Private Declare Function GetWindowDC Lib "User32.dll" (ByVal hWnd As IntPtr) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim hDc As Integer = GetWindowDC(Me.Handle)
Dim capsForm As Integer = GetDeviceCaps(hDc, BITSPIXEL)
MsgBox("This system is using " & capsForm & "-bit color.")
End Sub
Private Const BITSPIXEL As Integer = 12
Private Declare Function GetDeviceCaps Lib "gdi32" _
(ByVal hDC As Integer, ByVal nIndex As Integer) As Integer
Private Declare Function GetDesktopWindow Lib "User32.dll" () As Integer
Private Declare Function GetWindowDC Lib "User32.dll" (ByVal hWnd As IntPtr) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim hDc As Integer = GetWindowDC(Me.Handle)
Dim capsForm As Integer = GetDeviceCaps(hDc, BITSPIXEL)
MsgBox("This system is using " & capsForm & "-bit color.")
End Sub
- Status
Similar threads
