Ecriture dans un PictureBox (dans le quart d'une feuille)
2 réponses
Jean-mi
Bonjour,
Quelqu'un peut-il me dire pourquoi aucun dessin ne=20
s'affiche dans mon contr=F4le PictureBox
nomm=E9 Dessin2 ?
Voici la portion de code en question :
' Dessin2
Private Sub Minuterie2_Timer()
Dim X, Y As Single
Dim Coul2 As Long
' Largeur de point au hasard
Dessin2.DrawWidth =3D Rnd * 100 + 1
' Position et couleur au hasard
X =3D Rnd * Dessin2.ScaleWidth
Y =3D Rnd * Dessin2.ScaleHeight
Coul2 =3D QBColor(CInt(Rnd * 15))
' Trace le point
Dessin2.PSet (X, Y), Coul2
End Sub
Dessin2 est le nom du PictureBox repr=E9sentant environ le=20
quart de la feuille.
Minuterie2 est le nom d'un Timer.
D'avance merci,
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
EddiGordo
Bonjour
A tout hasard, n'aurais-tu pas oublié de mettre la propriété Interval de ton contrôle Timer à une valeur différente de 0 ...
Enjoy!
"Jean-mi" a écrit dans le message de news: 064a01c3619a$1b5f15a0$ Bonjour, Quelqu'un peut-il me dire pourquoi aucun dessin ne s'affiche dans mon contrôle PictureBox nommé Dessin2 ? Voici la portion de code en question : ' Dessin2 Private Sub Minuterie2_Timer() Dim X, Y As Single Dim Coul2 As Long ' Largeur de point au hasard Dessin2.DrawWidth = Rnd * 100 + 1 ' Position et couleur au hasard X = Rnd * Dessin2.ScaleWidth Y = Rnd * Dessin2.ScaleHeight Coul2 = QBColor(CInt(Rnd * 15)) ' Trace le point Dessin2.PSet (X, Y), Coul2 End Sub
Dessin2 est le nom du PictureBox représentant environ le quart de la feuille. Minuterie2 est le nom d'un Timer. D'avance merci,
Jean-michel
Bonjour
A tout hasard, n'aurais-tu pas oublié de mettre la propriété Interval de ton
contrôle Timer à une valeur différente de 0 ...
Enjoy!
"Jean-mi" <Jean-mi-clavier@wanadoo.fr> a écrit dans le message de news:
064a01c3619a$1b5f15a0$a001280a@phx.gbl...
Bonjour,
Quelqu'un peut-il me dire pourquoi aucun dessin ne
s'affiche dans mon contrôle PictureBox
nommé Dessin2 ?
Voici la portion de code en question :
' Dessin2
Private Sub Minuterie2_Timer()
Dim X, Y As Single
Dim Coul2 As Long
' Largeur de point au hasard
Dessin2.DrawWidth = Rnd * 100 + 1
' Position et couleur au hasard
X = Rnd * Dessin2.ScaleWidth
Y = Rnd * Dessin2.ScaleHeight
Coul2 = QBColor(CInt(Rnd * 15))
' Trace le point
Dessin2.PSet (X, Y), Coul2
End Sub
Dessin2 est le nom du PictureBox représentant environ le
quart de la feuille.
Minuterie2 est le nom d'un Timer.
D'avance merci,
A tout hasard, n'aurais-tu pas oublié de mettre la propriété Interval de ton contrôle Timer à une valeur différente de 0 ...
Enjoy!
"Jean-mi" a écrit dans le message de news: 064a01c3619a$1b5f15a0$ Bonjour, Quelqu'un peut-il me dire pourquoi aucun dessin ne s'affiche dans mon contrôle PictureBox nommé Dessin2 ? Voici la portion de code en question : ' Dessin2 Private Sub Minuterie2_Timer() Dim X, Y As Single Dim Coul2 As Long ' Largeur de point au hasard Dessin2.DrawWidth = Rnd * 100 + 1 ' Position et couleur au hasard X = Rnd * Dessin2.ScaleWidth Y = Rnd * Dessin2.ScaleHeight Coul2 = QBColor(CInt(Rnd * 15)) ' Trace le point Dessin2.PSet (X, Y), Coul2 End Sub
Dessin2 est le nom du PictureBox représentant environ le quart de la feuille. Minuterie2 est le nom d'un Timer. D'avance merci,
Jean-michel
François Picalausa
Bonjour/soir,
L'événement Timer est-il bien déclenché? Sinon, vérifie les propriétés enabled et interval. la feuille est-elle affichée lors du traçage? sinon, la propriété autoredraw=True du picturebox pourrait-être utile.
"Jean-mi" a écrit dans le message de news:064a01c3619a$1b5f15a0$
Bonjour, Quelqu'un peut-il me dire pourquoi aucun dessin ne s'affiche dans mon contrôle PictureBox nommé Dessin2 ? Voici la portion de code en question : ' Dessin2 Private Sub Minuterie2_Timer() Dim X, Y As Single Dim Coul2 As Long ' Largeur de point au hasard Dessin2.DrawWidth = Rnd * 100 + 1 ' Position et couleur au hasard X = Rnd * Dessin2.ScaleWidth Y = Rnd * Dessin2.ScaleHeight Coul2 = QBColor(CInt(Rnd * 15)) ' Trace le point Dessin2.PSet (X, Y), Coul2 End Sub
Dessin2 est le nom du PictureBox représentant environ le quart de la feuille. Minuterie2 est le nom d'un Timer. D'avance merci,
Jean-michel
Bonjour/soir,
L'événement Timer est-il bien déclenché?
Sinon, vérifie les propriétés enabled et interval.
la feuille est-elle affichée lors du traçage? sinon, la propriété
autoredraw=True du picturebox pourrait-être utile.
"Jean-mi" <Jean-mi-clavier@wanadoo.fr> a écrit dans le message de
news:064a01c3619a$1b5f15a0$a001280a@phx.gbl
Bonjour,
Quelqu'un peut-il me dire pourquoi aucun dessin ne
s'affiche dans mon contrôle PictureBox
nommé Dessin2 ?
Voici la portion de code en question :
' Dessin2
Private Sub Minuterie2_Timer()
Dim X, Y As Single
Dim Coul2 As Long
' Largeur de point au hasard
Dessin2.DrawWidth = Rnd * 100 + 1
' Position et couleur au hasard
X = Rnd * Dessin2.ScaleWidth
Y = Rnd * Dessin2.ScaleHeight
Coul2 = QBColor(CInt(Rnd * 15))
' Trace le point
Dessin2.PSet (X, Y), Coul2
End Sub
Dessin2 est le nom du PictureBox représentant environ le
quart de la feuille.
Minuterie2 est le nom d'un Timer.
D'avance merci,
L'événement Timer est-il bien déclenché? Sinon, vérifie les propriétés enabled et interval. la feuille est-elle affichée lors du traçage? sinon, la propriété autoredraw=True du picturebox pourrait-être utile.
"Jean-mi" a écrit dans le message de news:064a01c3619a$1b5f15a0$
Bonjour, Quelqu'un peut-il me dire pourquoi aucun dessin ne s'affiche dans mon contrôle PictureBox nommé Dessin2 ? Voici la portion de code en question : ' Dessin2 Private Sub Minuterie2_Timer() Dim X, Y As Single Dim Coul2 As Long ' Largeur de point au hasard Dessin2.DrawWidth = Rnd * 100 + 1 ' Position et couleur au hasard X = Rnd * Dessin2.ScaleWidth Y = Rnd * Dessin2.ScaleHeight Coul2 = QBColor(CInt(Rnd * 15)) ' Trace le point Dessin2.PSet (X, Y), Coul2 End Sub
Dessin2 est le nom du PictureBox représentant environ le quart de la feuille. Minuterie2 est le nom d'un Timer. D'avance merci,
