je cherche a créer un effet graphique de scan sur une picturebox

Question

Bonjour

je cherche de l'aide pour cr&#233;er un effet graphique de "scan" sur une picturebox qui contient une image( pour symboliser l'analyse de cette image).

Comme si un faiceau de lumi&#233;re verte (par exemple) parcourait de haut en bas l'image puis de gauche &#224; droite par exemple.

ceci avec doublebuffer pour eviter tout flicker de l'affichage.

Quelqu'un sait il r&#233;aliser ceci  avec des appels d'api ?

merci d'avance de votre aide
cordialement

NHenry · Answer

Bonjour

VB6 ou VB.NET?

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

Gobillot · Answer

Bonjour,

le faisceau est repr&#233;sent&#233; par une Shape qui se d&#233;place sur l'image

on peut jouer sur les param&#232;tres (en rouge)

(Vb6)





Option Explicit



Rem une PictureBox

Rem une Shape dans la PictureBox

Rem 1 bouton pour Lancer

Rem 1 bouton pour Stopper



Const nScan = 4

Dim Bool As Boolean



Private Sub Form_Load()

    Picture1.ScaleMode = 3

    Shape1.BackStyle = 1

    Shape1.BorderStyle = 0

    Shape1.BackColor = RGB(255, 255, 255)

    Shape1.Width = 10

    Shape1.Height = nScan

    Shape1.Visible = False

End Sub



Private Sub Command1_Click()

   Dim X   As Long

   Dim Y   As Long

   Dim i   As Long



   Bool = False

   Shape1.Visible = True

   

   For Y = 0 To Picture1.ScaleHeight Step nScan

       For X = 0 To Picture1.ScaleWidth - 1

           Shape1.Move X, Y

           DoEvents

           For i = 1 To 200000: Next

           If Bool Then Exit For

           Next

       If Bool Then Exit For

       Next

FIN:

   Shape1.Visible = False

   

End Sub



Private Sub Command2_Click()

   Bool = True

End Sub



Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

    Bool = True

End Sub




Daniel

hcadieu · Answer

Merci Daniel pour ton code

cela fonctionne  mais j'ai un effet de scintillement que je voudrai eviter..
Pour cela je preferrerai un code avec double buffer et appel d'api

tu as une id&#233;e ?

Je cherche a créer un effet graphique de scan sur une picturebox

3 réponses

Discussions similaires