French B4J MainForm Resize

C

CR95

Active Member

Licensed User

• Feb 9, 2026

• #1

Je voudrais agrandir la taille de ma form initiale.
Quand j'accède à la Sub B4XPage_Created d'une nouvelle page, j'utilise la commande

B4X:

Main.MainForm_Resize(LDisplay, HDisplay)

avec les nouvelles largeur et Hauteur
mais rien ne se passe (rien ne plante non plus)
Je précise que j'exécute cette commande dans une nouvelle B4XPage par rapport à MainPage.
Une idée ?

 

klaus

Expert

Licensed User

Longtime User

• Feb 9, 2026

• #2

Désolé, mais je ne comprend pas le problème.
Que veux-tu faire exactement ?
Dans B4XPages, tu dois oublier Main !
Que veux-tu faire dans Main.MainForm_Resize(LDisplay, HDisplay) ?
Que représentent LDisplay, HDisplay ?
As-tu un petit projet montrant le problème, que tu pourrais nous soumettre ?
Ce serait plus simple pour t'aider.

 

zed

Well-Known Member

Licensed User

• Feb 9, 2026

• #3

Tu veux que quand tu changes de page, les dimensions de ton Form soit différent du MainForm ?

 

C

CR95

Active Member

Licensed User

• Feb 11, 2026

• #4

Désolé pour le retard mis à vous répondre.
Pour simplifier, je repars du programme "ThreePagesExample" : dans la troisième et dernière page, je voudrais passer la taille de l'écran (au départ 600x600) à une taille plus grande. J'utilise donc Main.MainForm_Resize(900,900) au début de cette dernière page mais ça ne change pas la taille de la form.

 

zed

Well-Known Member

Licensed User

• Feb 11, 2026

• #5

Dans la page 3 (ou la page que tu veux modifier) , dans Private Sub B4XPage_Appear ajoutes :

B4J:

Private Sub B4XPage_Appear
    Dim form As Form = B4XPages.GetNativeParent(Me) ' <-- récupère la fenêtre (Form) qui contient la page B4XPages actuelle
    form.WindowWidth = 1080dip
    form.WindowHeight = 768dip
    '....
    ' le reste du code
End sub

 

Last edited: Feb 11, 2026

C

CR95

Active Member

Licensed User

• Feb 12, 2026

• #6

Avec un peu de retard, merci pour l'aide