c'est quoi exactement un HBITMAP ?

Question

Bonjour a tous,
J'utilise un OCX qui me donne un HBITMAP, mais je n'arrive pas a m'en servir ?
C'est une image bitmap en mémoire?
Peux t on faire un getpixel dessus ?

Merci de votre aide...

Steph.

cs_Jack · Answer

Salut
Le 'h' précéde en général les variables qui représentent le Handle.
Dans ton cas, il s'agit d'une variable de type Long (VB6)
Donc oui, une image en mémoire, ou celle de la Picture d'une PictureBox.Picture.handle ou d'une Image.Picture.Handle

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

rapido6 · Answer

ok, merci deja pour l'info, mais
comment par exemple connaitre la couleur du pixel qui a pour coordonnées  x=10 et y=20 par exemple ? avec ce type de variable ???

Merci.

Steph.

jmf0 · Answer

Bonjour,

D'instinct :
- création d'une nouvelle StdPicture dans laquelle tu envoie ton hbitmap
- travail sur la stdpicture

genre : (avec utilisation de la fonction SelectObject de la librairie GDI32 de l'Api de Windows)

toto = SelectObject(hDC, hBitmap) ( ou toto est un long)

Dim mastd as stdpicture


mastd = IconToPicture(toto)

et tu travailles averc mastd (n'oublie pas de détruire ensuite toto à l'aide de la fonction DeleteObject de GDI32

jmf0 · Answer

Heu...
Utilise Set, bien sûr (Set mastd = .....)

rapido6 · Answer

Ok merci, je vais essayer ca au plus vite, je vous tiens au courant...

Steph.

rapido6 · Answer

Bon ca bloque !
au niveau de mastd = IconToPicture(toto) 
j'ai un message d'erreur comme quoi j'utilise mal la propriete !

voici une partie de mon code

Private Type PICTDESC
  cbSize As Long
  pictType As Long
  hIcon As Long
  hPal As Long
End Type
    
Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" _
  (lpPictDesc As PICTDESC, riid As Any, ByVal fOwn As Long, _
  ipic As IPicture) As Long


Function IconToPicture(ByVal hIcon As Long) As Picture
  Dim pic As PICTDESC
  Dim guid(0 To 3) As Long
  
  ' initialize the PictDesc structure
  pic.cbSize = Len(pic)
  pic.pictType = vbPicTypeIcon
  pic.hIcon = hIcon
  ' this is the IPicture GUID {7BF80980-BF32-101A-8BBB-00AA00300CAB}
  ' we use an array of Long to initialize it faster
  guid(0) = &H7BF80980
  guid(1) = &H101ABF32
  guid(2) = &HAA00BB8B
  guid(3) = &HAB0C3000
  ' create the picture,
  ' return an object reference right into the function result
  OleCreatePictureIndirect pic, guid(0), True, IconToPicture
End Function


toto = SelectObject(hdc, VideoCap1.SnapShot2HBITMAP)
Dim mastd As StdPicture
mastd = IconToPicture(toto)

jmf0 · Answer

Relis-moi...
Je t'ai dit d'utiliser set ...

cs_Jack · Answer

Re
Comme te l'a dit jmf0, comme il s'agit de l'attribution d'un objet, il faut utiliser "Set" devant "mastd"

rapido6 · Answer

he ouai, j'ai pas fais gaff !! je vais reessayer cet apres midi...

Merci...

Steph.

rapido6 · Answer

Je crois que je vais laisser tomber car j'ai maintenant une erreur du style que seuls les commentaires peuvent apparaitre apres les fonctions subs, etc ... 
qu'en pensez-vous de cette erreur ?

Steph...

jmf0 · Answer

ben...
cela veut dire que tu as écrit des choses dans n'importe quel ordre, pardi, et non en respectant les règles DE BASE  de vb ! (et la connaissance des bases est essentielle !)
On ne peut en général pas se mettre au volanbt d'une Ferrari sans au moins avoir appris à conduire une voiture de ville ...

rapido6 · Answer

Ok, je vais revoir ca a tete reposée 
Merci beaucoup pour l'aide !
De tout facon si ca fonctionne je vous le ferez savoir, c'est la moindre des choses.

J'espère a tres bientot...

Steph.

rapido6 · Answer

Je reviens a la charge
Bon, je n'ai plus d'erreur mais par contre la variable c m'affiche -1
donc rien !
A mon avis getpixel n'est pas la bonne solution !!!!

Steph.



    Dim toto As Long
    toto = SelectObject(hdc, VideoCap1.SnapShot2HBITMAP)
    Dim mastd As StdPicture
Set mastd = IconToPicture(toto)
Dim c As Long
   c = GetPixel(toto, 100, 100)
    Label5.Caption = c

C'est quoi exactement un HBITMAP ?

13 réponses

Votre réponse

Discussions similaires