Redimensionner un fond d'ecran de form mdi

Soyez le premier à donner votre avis sur cette source.

Vue 4 742 fois - Téléchargée 692 fois

Description

Bon, ben je la mets puisque je l'i vue nulle part... Petite source permettant de redimensionner l'image de fond d'un mdi form quand on agrandit ou on rétrécit la fenêtre... L'image doit être chargée dans picture1. Je vous conseille de la charger dans un premier temps directement depuis les propriétés pour comprendre comment ça marche.

Source / Exemple :


Je crois qu'il vaut mieux télécharger le zip, ce sera plus facile...

Conclusion :


Ce code n'est pas de moi (je l'ai trouvé au fin fond d'Internet) mais il comportait un bug que j'ai corrigé. J'attends vos commentaires avec impatience ; j'espère en aider une paire ;o) ...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

XGuarden
Messages postés
259
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
17 août 2012
-
Tu sait se qui serais cool??? Sa serais de trouer un truc qui permet de redimentionner proportionellement tout les objet dune form quand on la chage de taille
XGuarden
Messages postés
259
Date d'inscription
dimanche 14 juillet 2002
Statut
Membre
Dernière intervention
17 août 2012
-
Au jsute sa chit surwindows XP pro.Sa doit etre jsute mal coder(escuse)ta peu etre oublier deffacer lensinne.Genre:sa desine mais derriere loriginal..
cs_Florent
Messages postés
53
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
22 novembre 2005
-
>Tu sait se qui serais cool??? Sa serais de trouer un truc qui permet de redimentionner proportionellement tout les objet dune form quand on la chage de taille

En exclusivité, voici mon code pour redimmentionner proportionnellement tous les objets d'une form quand on change sa taille :

'Code de Florent.
'Si vous ajoutez ce code dans un de vos programmes, citez-moi.

Option Explicit
Dim OldWidth As Integer
Dim OldHeight As Integer

Private Sub Form_Load()
OldWidth = Width
OldHeight = Height
End Sub

Private Sub Form_Resize()
On Error Resume Next
Dim XCoeff As Single
Dim YCoeff As Single
Dim Controle As Control
XCoeff = Width / OldWidth
YCoeff = Height / OldHeight
For Each Controle In Me
Controle.Move Controle.Left * XCoeff, Controle.Top * YCoeff, Controle.Width * XCoeff, Controle.Height
* YCoeff
Next
OldWidth = Width
OldHeight = Height
End Sub
cs_Florent
Messages postés
53
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
22 novembre 2005
-
Le code que j'ai mis en commentaire ci-dessus est maintenant sur http://www.vbfrance.com/article.aspx?Val=5184.
sebastien2003
Messages postés
1
Date d'inscription
mardi 22 juillet 2003
Statut
Membre
Dernière intervention
17 septembre 2007
-
un avis bref, précis et concis : c nickel, exactement ce que je cherchais :-)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.