Caption d'une ApplicationRésolu

Question

Bonjour, je souhaiterai renseigner un Caption d'une Application de la manière suivante : _________________________________ | Titre de l'appli Nom utilisateur| |________________________________| je n'arrive pas à cadrer un et cadrer un à droite. sachant que le titre est de longueur fixe par contre le nom de l'utilisateur est de longueur variable. Cela est il possible ? Merci d'avance pour vos réponses,

cs_Jack · Accepted Answer

Salut
Il faut rechercher quelle sera la taille de ton texte et g&#233;rer le nombre d'espaces &#224; ajouter.
Comme la police du texte est &#224; pas variable (un M prend plus de place qu'un I), je te propose g&#233;rer comme &#231;a (&#231;a m'a amus&#233; comme id&#233;e) :
Cr&#233;&#233; une Sub qui va s'occuper de calculer &#231;a. Elle doit se trouver dans la forme :
Private Sub AligneTitre(txtGauche As String, _
                        txtDroit As String)


    Dim Espaces As Long, Largeur As Long


    Largeur = Me.ScaleWidth - 1500   
    ' le 1500 est &#224; affin&#233; car &#231;a d&#233;pend de ton icone 
    ' et des boutons &#224; droite de la forme
    
    Do While Me.TextWidth(txtGauche & Space(Espaces) & txtDroit) < Largeur
        Espaces = Espaces + 1   ' ajoute un espace
        DoEvents
    Loop
    Debug.Print Espaces
    Espaces = Espaces - 1   ' enl&#232;ve le dernier qui fait d&#233;border
    Me.Caption = txtGauche & Space(Espaces) & txtDroit


End Sub
et lance cet affichage quand tu en a besoin avec :
   Call AligneTitre("Coucou", "mon gars")
- quand les textes changent 
- quand la forme change de taille (Form_Resize)

Nota : je n'ai pas g&#233;r&#233; les erreurs 

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)
(je

cs_DARKSIDIOUS · Answer

Par caption d'une application, tu veux dire la barre de titre ?



Je ne vois pas d'autres moyens que de mettre le nombre d'espaces qu'il
faut entre le titre de l'appli et le nom de l'utilisateur...

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

cs_Jack · Answer

Correctif :
Une Caption ne peut pas avoir plus de 255 caract&#232;res (voir l'aide)
Donc, il faut limiter la valeur maxi de Espaces &#224; la valeur  255 - Len(txtGauche & txtDroit)

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)
(je

cs_DARKSIDIOUS · Answer

Attention Jack, s'il veut faire c&#224; pour la barre de titre, ca ne
marchera pas &#224; tout les coups : tout d&#233;pends de la police utilis&#233; pour
afficher le titre de la fen&#234;tre : il peut &#234;tre diff&#233;rent de la police
utilis&#233;e pour afficher du texte sur une fen&#234;tre !



Il faudras donc utiliser soit un DC temporaire (picturebox par exemple)
en y appliquant la police de la barre de titre (par contre, je ne sais
pas comment on peut r&#233;cup&#232;rer cette police !).

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

cs_tulesais · Answer

Merci beaucoup pour votre aide !!!

ca marche impec :-)

comme quoi...TOUT EST POSSIBLE :-)

A tr&#232;s bient&#244;t...

Caption d'une Application

5 réponses

Discussions similaires