Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Plusieurs questions super-re-re-re...

Plusieurs questions super-re-re-re...

2 réponses
Avatar
Thomas
ce message s'adresse à François Picalausa.

Bonjour !
J'ai essayé le code que vous m'avez envoyé à propos des images.
Je l'ai essayé mais ca ne marche pas même quand j'appuis sur la touche A.
Que faut-il faire ?



--------------------------------
@+ Thomas
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
François Picalausa
Bonjour/soir,

Pourrais-tu éviter de rompre à chaque fois le thread?
Je sais très viite quand un nouveau message apparait, ce qui est facile avec
OE.

Sinon, peux-tu préciser le bout de code? j'en avais posté 2.
Dans celui avec select case, ne pas oublier de compléter les case restant.

Le code suivant fonctionne bien:

Private State As Byte

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA And State = 0 Then
State = 1
Timer1.Enabled = True
End If
End Sub

Private Sub Form_Load()
State = 0
Timer1.Enabled = False
Timer1.Interval = 10
Picture1.AutoRedraw = True
Picture1.Visible = False
End Sub

Private Sub Timer1_Timer()
Picture1.Cls
Select Case State
Case 1 'Play
Picture1.PaintPicture LoadPicture("C:a.bmp"), 0, 0
Picture1.PaintPicture LoadPicture("C:b.bmp"), 0, 0
Picture1.PaintPicture LoadPicture("C:c.bmp"), 0, 0
'Il pourrait y avoir case 2, pause, ...
End Select

Set Form1.Picture = Picture1.Image
End Sub

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"Thomas" a écrit dans le message de
news:3f4c4bc1$0$26391$
ce message s'adresse à François Picalausa.

Bonjour !
J'ai essayé le code que vous m'avez envoyé à propos des images.
Je l'ai essayé mais ca ne marche pas même quand j'appuis sur la
touche A. Que faut-il faire ?



--------------------------------
@+ Thomas


Avatar
Thomas
Ok désolé...
"François Picalausa" a écrit dans le message de news:

Bonjour/soir,

Pourrais-tu éviter de rompre à chaque fois le thread?
Je sais très viite quand un nouveau message apparait, ce qui est facile


avec
OE.

Sinon, peux-tu préciser le bout de code? j'en avais posté 2.
Dans celui avec select case, ne pas oublier de compléter les case restant.

Le code suivant fonctionne bien:

Private State As Byte

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyA And State = 0 Then
State = 1
Timer1.Enabled = True
End If
End Sub

Private Sub Form_Load()
State = 0
Timer1.Enabled = False
Timer1.Interval = 10
Picture1.AutoRedraw = True
Picture1.Visible = False
End Sub

Private Sub Timer1_Timer()
Picture1.Cls
Select Case State
Case 1 'Play
Picture1.PaintPicture LoadPicture("C:a.bmp"), 0, 0
Picture1.PaintPicture LoadPicture("C:b.bmp"), 0, 0
Picture1.PaintPicture LoadPicture("C:c.bmp"), 0, 0
'Il pourrait y avoir case 2, pause, ...
End Select

Set Form1.Picture = Picture1.Image
End Sub

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"Thomas" a écrit dans le message de
news:3f4c4bc1$0$26391$
> ce message s'adresse à François Picalausa.
>
> Bonjour !
> J'ai essayé le code que vous m'avez envoyé à propos des images.
> Je l'ai essayé mais ca ne marche pas même quand j'appuis sur la
> touche A. Que faut-il faire ?
>
>
>
> --------------------------------
> @+ Thomas