Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Jak odczytac aktualnie uzywana ilosc kolorow ekranu ? (8,16,24 czy 32 bit)
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003
Jak odczytac aktualnie uzywana ilosc kolorow ekranu ? (8,16,24 czy 32 bit)

Tak jak w temacie...
Jak odczytac aktualnie uzywana ilosc kolorow ekranu ? (8,16,24 czy 32 bit)
Jezeli ilosc kolorow jest ustawiona na 16 bit to robia sie cuda z obrazkami... Musi byc ustawiona na 32 bit , ale jak wykryc ze jest za mala ?
PILNE

11-10-2004 20:45
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

To powinno zadziałać (użyłem pictureboxa z AutoRedraw na true):

Private Type BITMAP
    bmType As Long
    bmWidth As Long
    bmHeight As Long
    bmWidthBytes As Long
    bmPlanes As Integer
    bmBitsPixel As Integer
    bmBits As Long
End Type
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Dim PicInfo As BITMAP
   
Private Sub Command1_Click()
GetObject Picture1.Image, Len(PicInfo), PicInfo
MsgBox PicInfo.bmBitsPixel

End Sub


_____________________________________________
www.mob.abc.pl - moja strona o VB

11-10-2004 20:55
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

Wielkie dzieki - DZIALA ...

[Post edytowany dnia 11-10-2004 20:59 przez Knight Lore'FC]

11-10-2004 20:59
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1