Reprise du message précédent :
il faut bien, une fois mon bmp sauvegardé, que j'utilise la méthode Paint de ma form pour savoir quand le réafficher, non?

Numéro qui est en faite un pointeur ( void* )

BitBlt peut suffire, il suffit que tu transmette le hdc de ton bitmap en mémoire en tant que hdc source.

Dans l'évènement paint, on peut mettre le BitBlt qui fait le travail inverse : copie l'image de la mémoire sur la feuille. Elle aurait été sauvée avant, après affichage et tracé des traits dessus.
 
Ca devient vite lourd... Faudrait trouver une bonne âme "guru" qui ait le même VB, sous le même OS pour voir ce qui cloche. Ca tient des fois à quasiment "rien" ! Mais quand on change de version de Windows, y a des fois des surprises de comportements, changements, ..

rufo>tu pourrais me send ton prog et me dire exactement le résultat que tu veux, j'essayerais de voir ca en soirée (je suis au boulot la).

A tout hasard, le fait que ce soit un GIF et qu'il soit transparent, c'est indispensable ?
Avec un BMP (le GIF transformé), c'est pareil ?
 
(Ai pas pu essayer hier soir dans ce contexte, les contrôles graphiques VB3 ne savaient contenir que DIB, BMP, WMF, ICO).
 
Windows, c'est lequel ?

je suis sous Windows 2000. Et non, c'est obligé d'avoir un gif transparent...

 
je te remercie beaucoup. Je vais encore chercher aujourd'hui et si j'ai rien trouvé, je t'envoie mon code. Le pb, c'est que c'est un soft qui affiche l'état de potentiomètres d'un matériel. Donc, faudra que tu remplaces l'affichage réel des positions des 2 potars par des valeurs fixes...

oki ca marche

Y a aussi une méthode "lourde" qui consiste à avoir une série d'images GIF (transparente) des différentes positions du curseur (à condition qu'il n'y ait pas trop de positions possibles !!).
 
En affichant le potar puis, dessus, le curseur graphique..?
 
Avec BitBlt, on doit même pouvoir avoir une seule image de curseur et la plaquer sur l'autre au déplacement voulu (vu qu'on donne les coordonnées X et Y).

 
Tu pourrais m'écrire un petit ex avec un objet form qui possède un objet image, et je veux dessiner une ligne sur cet objet image (et que cette ligne ne soit pas effacée quand on place une autre fenêtre dessus). Ca me suffierait.
 
ps: impossible la solution de plusieurs images de curseurs : 256 positions!

Je vais voir ça. Je me suis replongé dans VisualBasic 3 hier soir dans un gros projet que j'avais écrit avant de le transcrire en C pour le rendre "ultra"-rapide (pb affichage de courbes de spectros sur PC lent). Vieux souvenirs...
 
Je peux que charger du BMP. Je vais regarder avec les API si on peut pas déja positionner un trait (j'ai le code pour), voir si on le perd ou pas. Si on peut dessiner une flèche (un V et un I). Je peux tester le résultat sous Win2000.
Il n'est aps dit que VB3 soit transposable directement en VB5 ou 6. Des choses ont changé, les int sont devenu des "long" de l'ancien temps, ...
 
J'ai regardé hier aussi, on peut faire des tableaux (array) de Line. J'étais pas sûr.
 
Voir quand même avec Karlkox s'il peut faire avancer le schmilblick "live".

 
le tableau de line, j'ai essayé ce matin
Dim TableauLines(12) as Line
 
with TableauLines(0)
    .X1 = 0: .Y1 = 0: .X2 = 50: .Y2 = 50: visible = True
end with
 
ça marche aps, qu'est-ce-que j'ai oublié???

au fait, comment on fait pour détruire un objet créé comme précédemment?

 
a moins qu'il soit détruit à la fermeture de l'appli, du reste, j'en suis sûr quand j'y réfléchis...

avec l'API DeleteObject

En VB, les objets restent (me semble-t-il) jusqu'à la fin. On peut les cacher (Hide True ou Visible False) ce qui peut être pratique pour une Image qui sert de conteneur dans la feuille. La bitmap est déja chargée (ça évite de la mettre avec le projet et de devoir la charger à l'éxécution, et on peut la copier, en extraire des bouts quand besoin), cachée, on l'affiche pas et ne la voit jamais.
 
Sous VB moderne, je sais pas (on peut peut-être créer dynamiquement des objets ?), mais sous VB3, quand on voulait faire un tableau d'objets, c'est au design que cela se passe/passait. On crée un objet (bouton, trait, case à cocher), on renseigne les champs utiles, puis on le sélectionne, le copie et le colle pour en faire un clone. On nous demande alors si on veut faire un array (j'utilise VB 3 Pro donc en anglais ) ou non. Si oui, le premier sera renomé Ligne(1), le nouveau Ligne(2) si le contrôle Line a été nommé Ligne. Si on continue, on crée Ligne(x). Si on avait dit non, le nouvel objet aurait un autre nom.
 
On peut, par contre, créer un tableau de coordonnées pour tracer soi-même (Me.Line ou par API). Cela permet de savoir/précalculer les positions des lignes avant traçage. Il faut avoir x1, y1, x2, y2. Je sais pas si la structure RECT existe en VB, ça aiderait..
 
Les deux rectangles à tracer en plus du curseur, ils sont pleins ou c'est juste un "cadre" de 4 traits ?
 

carbon_14 a écrit a écrit : En VB, les objets restent (me semble-t-il) jusqu'à la fin. On peut les cacher (Hide True ou Visible False) ce qui peut être pratique pour une Image qui sert de conteneur dans la feuille. La bitmap est déja chargée (ça évite de la mettre avec le projet et de devoir la charger à l'éxécution, et on peut la copier, en extraire des bouts quand besoin), cachée, on l'affiche pas et ne la voit jamais.   Sous VB moderne, je sais pas (on peut peut-être créer dynamiquement des objets ?), mais sous VB3, quand on voulait faire un tableau d'objets, c'est au design que cela se passe/passait. On crée un objet (bouton, trait, case à cocher), on renseigne les champs utiles, puis on le sélectionne, le copie et le colle pour en faire un clone. On nous demande alors si on veut faire un array (j'utilise VB 3 Pro donc en anglais ) ou non. Si oui, le premier sera renomé Ligne(1), le nouveau Ligne(2) si le contrôle Line a été nommé Ligne. Si on continue, on crée Ligne(x). Si on avait dit non, le nouvel objet aurait un autre nom.   On peut, par contre, créer un tableau de coordonnées pour tracer soi-même (Me.Line ou par API). Cela permet de savoir/précalculer les positions des lignes avant traçage. Il faut avoir x1, y1, x2, y2. Je sais pas si la structure RECT existe en VB, ça aiderait..   Les deux rectangles à tracer en plus du curseur, ils sont pleins ou c'est juste un "cadre" de 4 traits ?

 
oui, RECT, ça existe, mais je peux pas utiliser ça pour les 2 rectangles : ils sont orientés dans le même sens que la pointe de la flèche... Et RECT ne fait que des rectangles à l'horizontal (pas obliques)...
 
Pour les tracer avec des composants Line, je joue sur la propriété BorderWidth.
 
Et pour l'instant, pour tracer mes lignes de la flèche, j'utilise Me.Line (mais ça s'efface, d'où mon pb )

Arf ! scuze, j'avais compris objet au niveau programmation et pas controle :-p

 
non, c'est moi qui me suis mal exprimé : t'a raison, on dit contrôle quand c'est un élément graphique d'une feuille, sinon, c'est un objet.

Zut, craignant de ne pas être compris , j'ai changé plein de contrôles de mon texte en objet...
 
Je teste API pour traits ce soir, si ça résoud le pb, ça suffira car pas la peine de grosse artillerie sauf quand pas moyen autrement.  
 
Y a donc trois traits pr flèche, et deux fois 4 pour les "losanges". Y a une API polygone je crois, on doit pouvoir dessiner des formes "bizarres" éventuellement remplies de couleur.

Essais sous VB3 : confirme que quand on a un dessin dans une Picture, toute tentative de dessin de trait au dessus échoue (caché derrière ??, inhibé par VB ? zone d'interdiction ? Mode "zéro_pen" ?).
 
Par BitBlt sur la feuille hors contrôle VB puis MoveToEx, LineTo, ça marche bien.
 
Exemple VB3/API envoyé par mail. Testé ss Win2K.

carbon_14 a écrit a écrit : Zut, craignant de ne pas être compris , j'ai changé plein de contrôles de mon texte en objet...   Je teste API pour traits ce soir, si ça résoud le pb, ça suffira car pas la peine de grosse artillerie sauf quand pas moyen autrement.     Y a donc trois traits pr flèche, et deux fois 4 pour les "losanges". Y a une API polygone je crois, on doit pouvoir dessiner des formes "bizarres" éventuellement remplies de couleur.

 
à la limite, te fait pas chier. Si on me montre un exemple d'une ligne qui est tracée live (run-time) par-dessus un contrôle image et qu'elle ne s'efface pas quand une autre feuille passe par-dessus, ça me va. Je me débrouillerai ensuite pour faire ma flèche et mes 2 rectangles...

Cf mail pour voir si ça convient...

 
Je vais regarder ça aujourd'hui... je te tiens au cours. En tout cas, merci de ton aide

j'ai regardé ton code, il a l'air assez simple. J'ai bon espoir de pouvoir le réutiliser pour faire ce que je veux. Par contre, j'ai pas pu lancer l'exe, vu que j'ai pas le VBRUN300.dll

Je l'envoie pas mail compressé (on peut aussi le télécharger, par ex http://telecharger.01net.com/windo [...] 468.html).
 
J'espère qu'il n'y pas trop de modif pour adapter le source directement sous VB4, VB5, VB6, ..(déclaration des API poour le 32 bits, ..).

c'est bon, j'ai récupéré sur un site (ton lien marchait pas) la dll ; j'ai pu tester ton exe. Ca fait ce que je veux, donc, c'est cool Y'a plus qu'à trouver un moment pour utiliser ton code dans le mien... Merci de ton aide, en tout cas

L'URL comporte la parenthèse de fin et le point en trop, c'est pourquoi ça peut pas marcher. J'eusse dû ajouter un espace à la fin .
 
Ca fait du bien de se remettre une soirée à VB3, mais on se rouille vite !!    

ca trace, mais ça se réaffiche toujours en-dessous de mon Image
Voici mon code :
 

 
Qu'est ce qui déconne? J'ai bien mis un PictureBox et je l'ai mis en autoredraw (mais en non autoredraw, ça marche pas mieux).
Au fait, pourquoi je vois rien s'afficher dans mon picturebox (vu que c'est lui qui sauvegarde le bout de bmp??? Merci de m'aider...

J'ai juste survolé, faudra que je copie/colle car boulot au labo .
 
Dans l'exemple donné, le PictureBox sert de conteneur. Faut le remplir sous VB au développement (ds membre Picture du PictureBox), ou en dynamique par un truc genre LoadImage().
Cette image était "cachée" pour justement ne pas la voir car elle sert de conteneur, pour faciliter son recollage à chaque PAINT (j'ai pas trouvé mieux en une soirée, je crois qu'on peut avoir HDC virtuel (in memory) mais faut voir).
 
Le ColleImage() colle l'image choisie sur la feuille Me hors TOUT CONTROLE, aux coordonnées désirées. Faut pas avoir de Picture ou Imagebox ou autre supplémentaire pour l'y coller. C'est comme un "Tag" par rapport à une "toîle de maître".
Je dis ça car j'espère que ImgRondFloodLT n'est pas un objet graphique mais juste un tableau de coordonnées.
 
Pas facile à gérer ... VB joue des tours ?
 
Dans mon exemple, en remplaçant mon image par la GIF transparente, ça donne quoi ? En la transformant en BMP (uniquement pour test voir si c'est le GIF ou le TRANSPARENT qui gène) ?
Peut-être que pas à pas, à partir de qq chose qui fonctionne, en modifiant ça puis ci.

carbon_14 a écrit a écrit : J'ai juste survolé, faudra que je copie/colle car boulot au labo .   Dans l'exemple donné, le PictureBox sert de conteneur. Faut le remplir sous VB au développement (ds membre Picture du PictureBox), ou en dynamique par un truc genre LoadImage(). Cette image était "cachée" pour justement ne pas la voir car elle sert de conteneur, pour faciliter son recollage à chaque PAINT (j'ai pas trouvé mieux en une soirée, je crois qu'on peut avoir HDC virtuel (in memory) mais faut voir).   Le ColleImage() colle l'image choisie sur la feuille Me hors TOUT CONTROLE, aux coordonnées désirées. Faut pas avoir de Picture ou Imagebox ou autre supplémentaire pour l'y coller. C'est comme un "Tag" par rapport à une "toîle de maître". Je dis ça car j'espère que ImgRondFloodLT n'est pas un objet graphique mais juste un tableau de coordonnées.   Pas facile à gérer ... VB joue des tours ?   Dans mon exemple, en remplaçant mon image par la GIF transparente, ça donne quoi ? En la transformant en BMP (uniquement pour test voir si c'est le GIF ou le TRANSPARENT qui gène) ? Peut-être que pas à pas, à partir de qq chose qui fonctionne, en modifiant ça puis ci.

 
si, ImgRondFloodLT est un contrôle graphique qui contient mon image du potentiomètre...
par contre, j'ai pas compris ce que tu mettais dans le picturebox comme image de départ? ta flèche???

sinon, est ce qu'il y a un moyen de copier en mémoire une portion de ma feuille, avec ses composants qui se trouvent dans cette portion, sous forme de bmp??? Un genre d'imprime écran partiel...

Dans le PictureBox de mon exemple, c'est l'image du potentiomètre (ce que j'ai dessiné en vitesse, c'est pas artistique : rect blanc, rect noir, mais rapide ), c'est pas non plus un vrai potar ...
 
Si on colle l'image sur elle même, ça ne permet pas de s'affranchir de la gestion Windows/VB.
Le but du jeu était de stocker cette fameuse image (sous réserve qu'elle ne soit pas altérée si elle est transparente (autre pb)) dans un conteneur (PictureBox est plus simple et rapide à gérer qu'un handle mémoire) qui soit dans le projet, dans la feuille, mais qu'on ne le voit pas (c'est pour cela que je l'ai mis assez bas, et que j'ai remonté le bord inférieur de la feuille).
 
BitBlt() recopie tous les bits de cette PictureBox à l'endroit qu'on veut, sur la feuille qu'on veut de notre projet. La picturebox sert de "bouteille à image".
 
Si on colle soi-même sur la feuille, on peut mieux gérer le comportement. Vu qu'on sait pas ce que Windows et VB font des PictureBox par rapport aux Line() (ordre de dessin, priorité, qui est "en avant", "en arrière" ????), ça permet en fait de gérer les choses soi-même, à la main. On devient son propre gestionnaire graphique (si je puis dire).
 
A chaque PAINT, on veut ré-afficher l'image. BitBlt() le permet facilement, à condition que ce soit sur un fond non perturbé par le système. Le PictureBox aurait tendance à répondre à son propre PAINT, quand et comme il "veut".

carbon_14 a écrit a écrit : Dans le PictureBox de mon exemple, c'est l'image du potentiomètre (ce que j'ai dessiné en vitesse, c'est pas artistique : rect blanc, rect noir, mais rapide ), c'est pas non plus un vrai potar ...   Si on colle l'image sur elle même, ça ne permet pas de s'affranchir de la gestion Windows/VB. Le but du jeu était de stocker cette fameuse image (sous réserve qu'elle ne soit pas altérée si elle est transparente (autre pb)) dans un conteneur (PictureBox est plus simple et rapide à gérer qu'un handle mémoire) qui soit dans le projet, dans la feuille, mais qu'on ne le voit pas (c'est pour cela que je l'ai mis assez bas, et que j'ai remonté le bord inférieur de la feuille).   BitBlt() recopie tous les bits de cette PictureBox à l'endroit qu'on veut, sur la feuille qu'on veut de notre projet. La picturebox sert de "bouteille à image".   Si on colle soi-même sur la feuille, on peut mieux gérer le comportement. Vu qu'on sait pas ce que Windows et VB font des PictureBox par rapport aux Line() (ordre de dessin, priorité, qui est "en avant", "en arrière" ????), ça permet en fait de gérer les choses soi-même, à la main. On devient son propre gestionnaire graphique (si je puis dire).   A chaque PAINT, on veut ré-afficher l'image. BitBlt() le permet facilement, à condition que ce soit sur un fond non perturbé par le système. Le PictureBox aurait tendance à répondre à son propre PAINT, quand et comme il "veut".

 
bref, je suis pas dans la merde, c'est ça? J'ai trouvé une API sympa : StretchBlt
et getDC(0) qui permet de récupérer le DC de l'écran. J'ai donc pu mettre dans un picturebox la portion de l'écran qui contient mon potar + la flèche Maintenant, il me reste à trouver comment réafficher le contenu du picturebox par-dessus mon potar... Pas avec un autre picturebox en tout cas. J'ai essayé, ça merde.
Est-ce-qu'il y a un moyen de remplacer mon picturebox par un tampon mérmoire?

Pour les fonctions d'imprime écran partiel, faut que je regarde ce que donnent les fonctions du C (API Windows en fait) sous VB(3). Ca est très possible une fois pour l'écran entier.
 
Je jette un coup d'oeil, quand je peux.

 
ben ça marche mon imprime-écran partiel, faut juste que je trouve le moyen de le réafficher comme je veux maintenant...

Au lieu de se casser la tête, pourquoi ne pas essayer mon exemple (s'il marche en VB4_5_6), et ne faire que remplacer l'image ?
Faut PAS faire BilBlt sur une Image ou PictureBox, sinon, elle se gère elle-même et réagit de façon malveillante (!).
 
 
StretchBlt(), il me semble me souvenir qu'il sert surtout (??) à changer la taille des images.
BitBlt(), si on donne pas 0, 0 et la taille habituelle de l'image, on peut aussi faire (faut faire calculs de positions).
BOOL BitBlt(
    HDC hdcDest, // handle to destination device context  
    int nXDest, // x-coordinate of destination rectangle's upper-left corner
    int nYDest, // y-coordinate of destination rectangle's upper-left corner
    int nWidth, // width of destination rectangle  
    int nHeight, // height of destination rectangle  
    HDC hdcSrc, // handle to source device context  
    int nXSrc, // x-coordinate of source rectangle's upper-left corner  
    int nYSrc, // y-coordinate of source rectangle's upper-left corner
    DWORD dwRop  // raster operation code  
   );  
 
Le code C que j'avais adapté une fois servait à copier l'écran du PC en totalité.
 
void CaptureScreen(HWND hWndMain, long Left, long Top, long Width, long Height)
{
   HDC srcDC; (integer)
   HDC trgDC;  (integer)
   HBITMAP BMPHandle; (long ? ai oublié)
   DEVMODE *dm; (pb ! à voir)
 
   srcDC = CreateDC("DISPLAY", "", "", &dm);
   trgDC = CreateCompatibleDC(srcDC);
   BMPHandle = CreateCompatibleBitmap(srcDC, Width, Height);
   SelectObject(trgDC, BMPHandle);
   BitBlt(trgDC, 0, 0, Width, Height, srcDC, Left, Top, SRCCOPY);
   OpenClipboard(hWndMain);
   EmptyClipboard();
   SetClipboardData(CF_BITMAP, BMPHandle);
   CloseClipboard();
   DeleteDC(trgDC);
   ReleaseDC(BMPHandle, srcDC);
}
 
 

 
ton code, là, c'est pour mettre dans le presse-papier de windows l'image de ta fenêtre principale, non?

Voui, mais comme j'ai pas le temps de suite, j'ai mis ce que j'avais.
Le hWndMain, on l'a par GetDesktopWindow(); mais ça nous avance pas.

finalement, en désespoir de cause, je me suis rabattu sur une solution simple : les contrôles Line (6 par potar) et ça marche. Alors, je pense que je vais en rester là... J'étais à la recherche d'une solution à base d'instructions uniquement et non instructions + contrôles graphiques, mais vu comment c'est chaud, je laisse tomber (pour l'instant). En tout cas, merci de ton aide J'ai appris pas aml de trucs sur les API windows graphiques...