hvor mange Bit farver er der på min skærm??

Tags:    visual-basic

Kan man på en eller anden måde få vist hvor mange bit farver der er på en skærm ??

Det skal bare vises i en MsgBox.

Håber der er nogen der kan hjælpe.
Hilsen Majbritt



8 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
Istedet for sub form_lad kan du laegge den i et modul og kalde den istedet jo

Okay, men VB 6.0 kender ikke "GetDeviceCaps", så jeg er lidt på herrens mark..... kan du ikke give lidt mere hjælp ??


Lav et modul og skriv:
<pre>
Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
</pre>
Så skulle VB 6.0 kende GetDeviceCaps.

I Am The Cyborg, and i`m here to serve :)

[Redigeret d. 06/08-03 11:52:20 af Simon Kjærulff]



Private Sub Form_Load()
MsgBox "This system is using " & _
Format$(GetDeviceCaps(hdc, BITSPIXEL)) & _
"-bit color."
Unload Me
End Sub




Private Sub Form_Load()
MsgBox "This system is using " & _
Format$(GetDeviceCaps(hdc, BITSPIXEL)) & _
"-bit color."
Unload Me
End Sub


Den kommer med en "Compile error: Sub or Function not defined", skal jeg ikke have noget kode i et Modul ??



Istedet for sub form_lad kan du laegge den i et modul og kalde den istedet jo



Istedet for sub form_lad kan du laegge den i et modul og kalde den istedet jo


Okay, men VB 6.0 kender ikke "GetDeviceCaps", så jeg er lidt på herrens mark..... kan du ikke give lidt mere hjælp ??




Den vil ikke som jeg vil.
Uanset, hvad min skærm står til i farver, skriver den "Bare" 16444-bit farver...

Hvordan kan det være..??

Hilsen Majbritt



Lav et modul og skriv:
<pre>
Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
</pre>
Så skulle VB 6.0 kende GetDeviceCaps.

Skriv derefter i din form:
<pre>
Private Form_Load()
MsgBox GetDeviceCaps(hdc, 12)
End Sub
</pre>

Det skulle virke

I Am The Cyborg, and i`m here to serve :)



Tusind tak for hjælpen....

Hilsen Majbritt



t