redimensionner un composant suivant la taille de la fenêtre ?Résolu

Question

Bonjour,
je suis sous VB6, et je me suis rendu compte que cette version ne g&#232;re pas la proprit&#233; dock que l'on a sur VB.Net.
Cette propri&#233;t&#233; dock est bien sympa car elle permet d'agrandir les composants aux m&#234;mes proportions que le Form.

Est ce qu'il est possible de retrouver cette fonctionnalit&#233; avec VB6, SVP ? 

benland

cs_DARKSIDIOUS · Accepted Answer

Si tu avais fait une recherche dans les sources du site, tu aurais d&#233;j&#224; trouv&#233; ton bonheur :

http://www.vbfrance.com/code.aspx?id=28747

http://www.vbfrance.com/code.aspx?id=408

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

cs_benland · Answer

Merci beaucoup Darksidious , c'est exactement ce qu'il me fallait!
Et puis je n'avais pas besoin de cherchais puiske tu &#233;tais l&#224; 

benland

cs_benland · Answer

Puis pour ce qui aurait le m&#234;me probl&#232;me que moi , je vous donne la source magique qui redimensionne tout proportionnellement &#224; la taille de votre Form:

Public Sub RedimForm() 
    Dim Feuille As Form 
    Set Feuille = Screen.ActiveForm 
    If (Feuille.WindowState = vbMinimized) Then 
        Exit Sub 
    End If 
    Static Longueur As Long 
    Static Hauteur As Long 
    Dim PropLongueur As Single 
    Dim PropHauteur As Single 
    If ((Longueur > 0) And (Hauteur > 0)) Then 
        PropLongueur = Feuille.Width / Longueur 
        PropHauteur = Feuille.Height / Hauteur 
        Dim Ctrl As Control 
        On Error Resume Next 
        For Each Ctrl In Feuille.Controls 
            Ctrl.Left = CInt(Ctrl.Left * PropLongueur) 
            Ctrl.Top = CInt(Ctrl.Top * PropHauteur) 
            Ctrl.Width = CInt(Ctrl.Width * PropLongueur) 
            Ctrl.Height = CInt(Ctrl.Height * PropHauteur) 
        Next 
        On Error GoTo 0 
    End If 
    Longueur = Feuille.Width 
    Hauteur = Feuille.Height 
End Sub 

Bien entendue cette proc&#233;dure doit &#234;tre appel&#233; dans l'&#233;v&#232;nement:  Private Sub Form_Resize()

benland

Redimensionner un composant suivant la taille de la fenêtre ?

3 réponses

Discussions similaires