Discussion :

[charret2002]

Bonjour à tous.

Je me trouve devant un problème. Je suis en plein travail de fin d'études et j'aurais voulu savoir si certains d'entre vous pouvait m'aider. Mon problème est le suivant : Nous possèdons des écrans qui ont une résolution de 1600x1200 pixels le soucis c'est que les écrans LCD qui ont une telle résolution coûtent très chère et nous aimerions passer à des résolutions plus faible. Pour cela, je dois développer ou trouver un composant qui adaptera automatiquement la résolution des ActiveX et des exécutables existants.

Bien sûr, je ne connais pas grand chose en VB6 vu que nous avons fait nos études en Java.

Par contre, j'ai réussi a trouver des outils comme ActiveResize Control ou autre (vous pouvez en voir plus sûr http://www.sharewareconnection.com/t...b-controls.htm) et j'aurais voulu savoir si certains d'entre vous on déjà utiliser ce genre d'outils?

[avigeilpro]

Je ne connais pas ces outils.
Mais sur mon site il y a un module permettant de modifier la résolution de l'écran.
Perso je ferai un programme dans une résolution de 1024 * 768 et je modifierai la résolution au démarrage de l'appli, ainsi quelque soit l'écran le programme tournerais toujours sous la même résolution.

[charret2002]

C'est également ce que j'aurais fait si le programme n'était pas très grand et complètement terminé. Reprendre cette application et modifier chaque composant prendrait des semaines c'est pour cela que je dois faire un composant qui modifie la taille de tout le programme.

[avigeilpro]

alors, au lancement d'une feuille appel une procédure en lui passant en parametre la feuille, cette procedure aura pour but de redimensionner les contrôles en fonction de la résolution. Trouve le rapport de taille de tes composants en fonction des differentes résolutions, déclare une procédure un peu comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Public Sub RedimForm(Feuille As Form)

Puis déclare une variable de type Contrôles et utilise un For Each pour parcourir tous les contrôles de la feuille. Ne te reste plus qu'à utiliser le rapport calculer précédement en multipliant les propriété Left, Top, Height et Width de tous les contrôles ainsi que de la feuille par celui-ci.
Et le tour est joué

[charret2002]

Oui je l'ai déjà fait... Merci quand même c'est super sympa. Sa commence de fonctionner mais j'ai encore des problèmes surtout pour que les polices changent de taille (car certaines police ne peuvent pas aller en dessous de 8).