* SÉRIE 3 *

.
AGRANDIR OU RÉTRÉCIR UN DESSIN
(Inspiré des fiches de Mme Claudette Bélanger)
.

Fichier à télécharger: chien.bmp

Commencez une nouvelle application. Donnez à la feuille les propriétés suivantes.

FEUILLE: F1_Dess

NAME	F1_Dess
CAPTION	Agrandir ou rétrécir un dessin
WINDOWSTATE	Maximized

Créez un objet Image (icône du bas) et attribuez-lui les propriétés suivantes.

IMAGE: IM_1

NAME	IM_1
PICTURE	Chien.bmp (que vous avez téléchargé au début de cette fiche)
STRETCH	True
WIDTH	6000
HEIGHT	4500

Ajoutez un bouton Quitter avec confirmation tel que vous l'avez appris dans les fiches précédentes.
Créer un bouton de commande pour écrire le code qui servira à rétrécir l’image.

BOUTON: BO_Petit

NAME	BO_Petit
CAPTION	Rétrécir

Attribuez-lui le code suivant.

Sub Bo_petit_Click ()
     If IM_1.Height > 2000 Then
        IM_1.Height = IM_1.Height - 100
        IM_1.Width = IM_1.Width - 120
     End If
End Sub

Créez un bouton de commande pour agrandir l’image .

BOUTON: BO_Grand

NAME	BO_Grand
CAPTION	Agrandir

Attribuez-lui le code suivant.

Sub Bo_grand_Click ()
      If IM_1.Height < 8000 Then
          IM_1.Height = IM_1.Height + 100
          IM_1.Width = IM_1.Width + 120
      End If
End Sub

Ajoutez la minuterie Minu_1 sur la feuille.

MINUTERIE: Minu_1

NAME	Minu_1
INTERVAL	50
ENABLED	False

Ajoutez le code suivant à cette minuterie.

Sub Minu_1_Timer ()
Dim v_fois As Integer
While v_fois < 15
       IM_1.Height = IM_1.Height - 40
       IM_1.Width = IM_1.Width - 50
       v_fois = v_fois + 1
Wend
v_fois = 0
While v_fois < 15
       IM_1.Height = IM_1.Height + 40
       IM_1.Width = IM_1.Width + 50
       v_fois = v_fois + 1
Wend
Minu_1.Enabled = False
End Sub

Ajoutez un bouton de commande pour faire exécuter la minuterie.

BOUTON: BO_Auto

NAME	Bo_Auto
CAPTION	Automatique

Ajoutez-lui le code suivant.

Sub Bo_auto_Click ()
Minu_1.Enabled = True
End Sub

Exécutez l’application et essayez les boutons. Modifiez l’intervalle de la minuterie; vous pouvez aussi modifier -40 et -50 (à moins que votre image soit carrée, il faut faire diminuer ou augmenter plus vite la largeur que la hauteur).
Ajoutez deux commentaires différents dans le code de Minu_1.
Sauvegardez le fichier sous les noms E18F1xx.FRM et EX18xx.VBP.

Design by
LOGOSLAND CREATIONS