Discussion :

[electroremy]

Bonsoir à tous,

Je rencontre le problème suivant, avec un programme fait avec VB5.

Le programme peut marcher sur les différentes versions de Windows depuis Windows 1995

Or en fonction du "style graphique" de windows, la bordure des fenêtres est plus ou moins épaisse, de même pour les textes

Du coup il peut arriver que mes contrôles deviennent trop petits pour le texte, mais surtout que le positionnement dans la fenêtre ne soit plus correct

C'est notamment le cas des fenêtres redimensionnables, dans lesquelles je recalcule la position et la taille des contrôles dans l’événement form.resize

Comment faire ?

Il faudrait que je récupère les dimenssions internes de la fenêtre.

J'aurais aussi et toujours besoin des dimenssions externe (par exemple pour aligner plusieurs petites fenêtres)

Merci

A bientôt

[ProgElecT]

Salut

la bordure des fenêtres est plus ou moins épaisse

Pour l’intérieur de la fenêtre Me.ScaleHeight et Me.ScaleWidth, unités des dimensions renvoyées suivant le ScaleMode de la dite fenêtre.
Pour l’extérieur de la fenêtre Me.Height, Me.Width, Me.Top et Me.Left, unités toujours renvoyées en Twips.

Code :

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

1
2
3
Dim Bordure As Integer, BarTitr As Integer
Bordure = (Me.Width - Me.ScaleWidth) / 2
BarTitr = Me.Height - Me.ScaleHeight - (Bordure * 2)

contrôles deviennent trop petits pour le texte

Une façon simple, utiliser un Label avec propriété AutoSeize = True et Visible = False.

Par exemple pour redimensionner un Textbox, attribuer le texte au Label invisible, et à la suite donner le même Width et Height que ce label au TextBox.

[electroremy]

Salut

Pour l’intérieur de la fenêtre Me.ScaleHeight et Me.ScaleWidth, unités des dimensions renvoyées suivant le ScaleMode de la dite fenêtre.
Pour l’extérieur de la fenêtre Me.Height, Me.Width, Me.Top et Me.Left, unités toujours renvoyées en Twips.

Code :

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

1
2
3
Dim Bordure As Integer, BarTitr As Integer
Bordure = (Me.Width - Me.ScaleWidth) / 2
BarTitr = Me.Height - Me.ScaleHeight - (Bordure * 2)

C'est bien ça ! Je m'étais toujours demandé la différence entre ScaleWidth et Width, je pensais que c'était juste pour ces histoires d'unités en twips

Pas bête du tout la façon de calculer BarTitr... Ce genre de truc devient vite énervant, surtout qu'on peut difficilement avoir sous la main un ordinateur avec chaque version de windows

Au fait je crois me souvenir que c'était toi qui m'avait envoyé, après avoir testé CiDess il y a des années, un fichier .manifest alors que j'ignorais complètement ce à quoi cela pouvait servir... Si oui as-tu vu mon autre post à ce sujet ? Cette fois-ci je pense avoir vraiment compris le rôle des .manifest mais on est jamais sûr de rien dans le monde du VB...

[ProgElecT]

Au fait je crois me souvenir que c'était toi qui m'avait envoyé, après avoir testé CiDess il y a des années

StretchBlt et taille de l'image (Juin 2008 ..... le temps passe)

[electroremy]

StretchBlt et taille de l'image (Juin 2008 ..... le temps passe)

Oui le temps passe... Cela nous rajeunis pas en effet Donc tu es en retraite maintenant ?

Le temps est relatif aussi, avec les maths qui semblent éternelles, nous qui continuons à maintenir des logiciels qui ont 20 ans, et les nouvelles versions de Windows qui apparaissent tous les 2 ans

Au moins les outils pour tour à bois de mon grand-père marchent toujours avec les tours actuels

[electroremy]

Pour l’intérieur de la fenêtre Me.ScaleHeight et Me.ScaleWidth, unités des dimensions renvoyées suivant le ScaleMode de la dite fenêtre.
Pour l’extérieur de la fenêtre Me.Height, Me.Width, Me.Top et Me.Left, unités toujours renvoyées en Twips.

Petite question : vaut-il mieux laisser le ScaleMode de la fenêtre en Twips ?

Ou sinon, avec un ScaleMode en pixels cela n'aura aucune importance tant que l'on fait les conversions avec TwipsPerPixelX et TwipsPerPixelX ?

Merci