begin process at 2012 02 12 19:02:57
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Divers

 > REDIMENSIONNEMENT DE CONTROL

REDIMENSIONNEMENT DE CONTROL


 Information sur la source

Note :
8 / 10 - par 1 personne
8,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Niveau :Débutant Date de création :12/11/2004 Vu / téléchargé :3 962 / 420
Auteur : keke4483

Ecrire un message privé
Site perso
Commentaire sur cette source (14)
Ajouter un commentaire et/ou une note

 Description

Cliquez pour voir la capture en taille normale
Voila un bout de code tout bête mais bon je savais pas quoi faire cettre après midi.
Ca permet de redimensionner les controles en fonction du redimensionnement de la fenetre principale. Bon ca fonctione pas avec les controle ayant des propriété de taille en lecture seulement (ex : combobox)

Source

  • 'variable entiere permettant de conserver les tailles initials de la form
  • Public sglHeightInitForm As Single
  • Public sglWidthInitForm As Single
  • 'on declare un type qui permettra de connaitre les tailles de tout les controle
  • Type ControlSize
  • sglHeight As Single
  • sglWidth As Single
  • sglTop As Single
  • sglLeft As Single
  • End Type
  • 'on definit un tableau du type declarer
  • Public tabControlSize() As ControlSize
  • 'boolean permettant de savoir si on traite le redimensionnement
  • Dim bolTraitementEncours As Boolean
  • Public Sub Initialisaton(ByRef frmForm As Form)
  • Dim objControl As Object
  • 'on recupere les valeur initial de la form
  • sglHeightInitForm = frmForm.Height
  • sglWidthInitForm = frmForm.Width
  • 'par defaut on traite le redimensionne
  • bolTraitefrmFormntEncours = False
  • 'on redifrmFormnsionne le tableau
  • ReDim tabControlSize(0)
  • 'on parcours l'ensemble de la collection control
  • For Each objControl In frmForm.Controls
  • ReDim Preserve tabControlSize(UBound(tabControlSize) + 1)
  • tabControlSize(UBound(tabControlSize)).sglHeight = objControl.Height
  • tabControlSize(UBound(tabControlSize)).sglWidth = objControl.Width
  • tabControlSize(UBound(tabControlSize)).sglTop = objControl.Top
  • tabControlSize(UBound(tabControlSize)).sglLeft = objControl.Left
  • Next objControl
  • End Sub
'variable entiere permettant de conserver les tailles initials de la form
Public sglHeightInitForm As Single
Public sglWidthInitForm As Single

'on declare un type qui permettra de connaitre les tailles de tout les controle
Type ControlSize
    sglHeight As Single
    sglWidth As Single
    sglTop As Single
    sglLeft As Single
End Type

'on definit un tableau du type declarer
Public tabControlSize() As ControlSize
'boolean permettant de savoir si on traite le redimensionnement
Dim bolTraitementEncours As Boolean

Public Sub Initialisaton(ByRef frmForm As Form)
Dim objControl As Object
'on recupere les valeur initial de la form
sglHeightInitForm = frmForm.Height
sglWidthInitForm = frmForm.Width
'par defaut on traite le redimensionne
bolTraitefrmFormntEncours = False
'on redifrmFormnsionne le tableau
ReDim tabControlSize(0)
'on parcours l'ensemble de la collection control
For Each objControl In frmForm.Controls
    ReDim Preserve tabControlSize(UBound(tabControlSize) + 1)
    tabControlSize(UBound(tabControlSize)).sglHeight = objControl.Height
    tabControlSize(UBound(tabControlSize)).sglWidth = objControl.Width
    tabControlSize(UBound(tabControlSize)).sglTop = objControl.Top
    tabControlSize(UBound(tabControlSize)).sglLeft = objControl.Left
Next objControl
End Sub

 Conclusion

Bon au plaisir de vous revoir.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture MA CAM TO JPG : CAPTURE DE WEBCAM ET SAUVEGARDE AU FORMAT JP...
Source avec Zip Source avec une capture CONTROLE POUR CHANGEMENT DE COULEUR (CHAT, IRC ...)
Toutes les sources de keke4483

 Sources de la même categorie

Source avec Zip TEXTBOX EN NUMÉRIQUE par 320C
Source avec Zip DÉCIMAL TO HEXDECIMAL par loulou27200
SOUS-TITRES : INCRÉMENTATION DE TOUTES LES CHAÎNES DE CARACT... par ALMIRA
Source avec Zip Source avec une capture EVALUER UN NOMBRE D'OBJETS AVEC UNE BALANCE ET DEUX ÉCHANTIL... par lexsty
Source avec Zip Source avec une capture PETIT LOGICIEL DE DEVIS SANS BD par lololilizozo
Toutes les sources de la catégorie Divers

Commentaires et avis

Commentaire de spy166 le 12/11/2004 19:27:56

Mouai pas du meilleur effet...
Moi je dis : VB.NET Anchor powa !!

Commentaire de JulioDelphi le 12/11/2004 19:33:19 administrateur CS

moi je dis : "ha bon c meme pas par defaut dans VB ? vive delphi ..."

Commentaire de spy166 le 12/11/2004 22:30:52

Oui VB6 ça pue, delphi c'est bien mais bon j'aime pas trop les machins du genre (delphi, windev...) je sais plus le nom exact..

Commentaire de Scalpweb le 12/11/2004 23:44:21

"vb6 ça pue" non mais ho ! Je ne laisserais pas dire ça.

Commentaire de spy166 le 12/11/2004 23:49:38

Ben vb6 c'était bien à l'époque de 98 wala...

Commentaire de Golog le 13/11/2004 00:03:50

Bah moi perso , j'ai d'abord utilisé delphi , jconnaisais quelque code , ms une fois que j'ai connu VB j'ai accroché et j'ai complétement oublié le code Delphi depuis lors lol , c'est une question de gout.

Par contre pour moi sa été plus facile d'apprendre le VB que le delphi ^^

Les deux sont tres respectable, chacun a ces point fort comme ces point faible.


http://membres.lycos.fr/golog123

Commentaire de Scalpweb le 13/11/2004 00:11:07

Exactement.
Ainsi que VC++, et blablabla.
Mais évitez de dire "c'est de la m----" sans réfléchir. Chacun ses gouts c'est tout.

Cuio Vae.

Commentaire de keke4483 le 13/11/2004 01:45:08

Pour tout vous dire je ne pensais pas ouvrir, par l'intermédiaire de cette source, un débat sur les languages de programmation. Mais bon, comme dis si bien notre collègue Scalpweb :"Chacun ses gouts c'est tout", l'essentiel c'est d'être animé de la même passion ;)

Commentaire de spy166 le 13/11/2004 07:32:13

Ouai mais là je parle en connaissance de cause.
Avant j'utilisait vb6, mais depuis que je suis passé à .NET, je m'éclate vraiment. J'ai pas mal hésité au début, j'aimai pas trop, mais essayai pour voir.
Vous direz la même chose que moi après

Commentaire de JulioDelphi le 13/11/2004 09:05:14 administrateur CS

Si ya autant de language utilisé (c, c++, c#, vb, .NET, delphi, java, perl, php, etc) c'est pour que chacun puisse s'y retrouver, s'identifier a un language et etre passioné de ça :)
moi je prone mon delphi bien evidemment :) mais "chacun ses gouts"
bonne prog a tous les codeurs :)

Commentaire de NISANDSYSTEMS le 13/11/2004 11:43:07

Le language de programmation est fonction de tes besoins progiciels et de leurs puissances.
Si tu desires concevoir de petites infrastructures, vb comme d'autres languages simple,peuvent le faire.
Mais si ton désire est de concevoir un PhotoSop alors, diriges toi pltot vers le C.
VB n'est pas et surtout n'a pas été conçu pour créer du graphisme, mais il se rélève etre puissant dans d'autres domaines pour ce soit disant language de dernière classe.
@+

Commentaire de bouv le 13/11/2004 13:35:34

Le redim des controls se passe pas mal, mais pour la fenetre c'est horrible. Une fois agrandie, on ne peut plus la reduire et ça clignote : vraiment pas top.

Je sais que c'est pas encore du VB .Net, mais jetter un oeil sur ma source

http://www.vbfrance.com/code.aspx?id=27455

Au programme :
- Redim des controls
- Gestion Mini et Maxi pour la taille de la feuille
- Empeche la fentre de sortir de l'ecran

Inconvénient, j'utilise le .tag des controls donc ne sont plus utilisables pour autre chose. Mais on peut mettre au point comme dans cette source un systeme de tableau.

Bonne prog
++

Commentaire de Scalpweb le 13/11/2004 17:55:45

Bon on est d'accord finalement... @+ bonne prog @tous

Commentaire de Shendoo le 23/01/2005 10:24:36

très utile sa m'évite de le codé  cool très bien detaillé et près a l'emploi  tres bien RAD ;D

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Mio - Moov V735 - GPS Europe - Ecran 7"
Entre 305€ et 375€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Photo aérienne de Saintes Maries de la Mer
Photo Underwater View of the Ocean With Plants and Coral 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,702 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)