Image, propriété, exemple Cet exemple dessine un cercle dans le premier contrôle PictureBox chaque fois que vous cliquez dessus. Quand vous cliquez sur le second contrôle PictureBox, le graphique est recopié à partir du premier contrôle PictureBox. Pour tester l'exemple, collez le code dans la section Déclarations d'une feuille contenant deux grands contrôles PictureBox de même taille. Appuyez sur F5 pour exécuter le programme et cliquez sur les contrôles PictureBox. Private Sub Form_Load () ' Affecte la valeur True à la propriété AutoRedraw. Picture1.AutoReDraw = True End Sub Private Sub Picture1_Click () ' Déclare les variables. Dim PW, PH ' Affecte la valeur Solid à la propriété FillStyle. Picture1.FillStyle = vbFSSolid ' Choisit une couleur aléatoire. Picture1.FillColor = QBColor(Int(Rnd * 15)) PW = Picture1.ScaleWidth ' Définit la propriété ScaleWidth. PH = Picture1.ScaleHeight ' Définit la propriété ScaleHeight. ' Trace un cercle à un emplacement aléatoire. Picture1.Circle (Int(Rnd * PW), Int(Rnd * PH)), 250 End Sub Private Sub Picture2_Click () ' Copie l'objet Image dans Picture2. Picture2.Picture = Picture1.Image End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question