Comment changer la taille d'une TabPage

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Dans l'objectif d'adapter la taille de l'application aux choix de l'utilisateur, j'ai créé des boutons radios pour diverses dimensions
Lors du clic sur le bouton "appliquer" , la taille de la fenêtre change mais celle de la TabPage (tp_propos en gris ) reste la même
J'ai essayé de changer les propriétés Width, Height ou Size mais rien ne change...

Si vous avez une idée je suis preneur ! Merci d'avance !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Private Sub Button40_Click(sender As System.Object, e As System.EventArgs) Handles Button40.Click
 
 
 
        '1333; 893
        '1343; 950
        If (RadioButton2.Checked And My.Computer.Screen.WorkingArea.Width >= 1920 And My.Computer.Screen.WorkingArea.Height >= 1080) Then
            Me.Width = 1920
            'tp_propos.Width = 1920 - 10
            Me.Height = 1080
            ' tp_propos.Height = 1080 - 57
        End If
        If (RadioButton3.Checked And My.Computer.Screen.WorkingArea.Width >= 1366 And My.Computer.Screen.WorkingArea.Height >= 768) Then
            Me.Width = 1366
            ' tp_propos.Width = 1366 - 10
            Me.Height = 768
            ' tp_propos.Height = 768 - 57
        End If
        If (RadioButton4.Checked And My.Computer.Screen.WorkingArea.Width >= 1280 And My.Computer.Screen.WorkingArea.Height >= 1024) Then
            Me.Width = 1280
            ' tp_propos.Width = 1280 - 10
            Me.Height = 1024
            tp_propos.Size = New Size(90, 50)
        End If
        If (RadioButton1.Checked And My.Computer.Screen.WorkingArea.Width >= 1024 And My.Computer.Screen.WorkingArea.Height >= 768) Then
            Me.Width = 1024
            ' tp_propos.Width = 1024 - 10
            Me.Height = 768
            'tp_propos.Height = 768 - 57
            'tp_propos.SizeMode
        End If
 
    End Sub

Pièce jointe 204559

Bonsoir,

Le tabpage étant un contrôle enfant du tabcontrol, tu dois modifier la taille de ce dernier, tu ne pourras modifier la taille du tabpage sans cela.

Il ne faut pas oublier de paramétrer la propriété Dock à ton contrôle groupbox et tabcontrol de manière à ce que lorsque tu modifies la taille de ta form cela affecte directement la taille des contrôle Groupbox et tabcontrol.

Je rajoute également que ta conditionnel pour modifier la taille de ta form selon le radioButton qui possède la propriété Checked = True est erronée.
Il faut procéder ainsi :
Code:

1 2 3 4 5 6 7 8 9 10 11 If (RadioButton1.Checked And My.Computer.Screen.WorkingArea.Width >= 1024 And My.Computer.Screen.WorkingArea.Height >= 768) Then Me.Width = 1024 Me.Height = 768 ElseIf (RadioButton2.Checked And My.Computer.Screen.WorkingArea.Width >= 1920 And My.Computer.Screen.WorkingArea.Height >= 1080) Then Me.Width = 1920 Me.Height = 1080 ElseIf (RadioButton3.Checked And My.Computer.Screen.WorkingArea.Width >= 1366 And My.Computer.Screen.WorkingArea.Height >= 768) Then Me.Width = 1366 Me.Height = 768 End If
En espérant avoir correctement saisi ta problématique. ;)

A+

21/03/2016, 19h18
Buzzak

Avec la propriété Dock et du padding tu peux reproduire l'équivalent.

Quand tu changera la taille de ta form l’intérieur qui a dock fill va suivre les proportions.

De plus, tu n'aurais pas à rajouter de code
22/03/2016, 09h50
casiii

Citation:

Envoyé par wallace1

Je rajoute également que ta conditionnel pour modifier la taille de ta form selon le radioButton qui possède la propriété Checked = True est erronée.

Nope :) Pas optimisé certes, mais pas faux non plus.
22/03/2016, 16h49
benjaminblazer

Merci, ça marche !