Gambas France BETA


Pas de compte ? Incription

meme propriete a 10 Form

Ce sujet est résolu.

1
AuteurMessages
spheris#1 Posté le 21/5/2016 à 12:52:40
Bonjour,
Je souhaite appliquer ce code à 10 form présent dans un de mes projets.

1
2
3
4
ME.Width = 800
ME.Height = 600
ME.Border = 0
ME.Center


Dois-je l'écrire sur chaque form à chaque fois ou existe-t-il une option sur GB me permettant de le définir par défaut?
Merci pour votre réponse.
;)


www.gambaslinux.fr
Patrick#2 Posté le 21/5/2016 à 15:20:25
Dans ton form
' Gambas class file

Public Sub Form_open()

monmodule.dimentionform(Me)

End

Dans le module monmodule

Public Sub dimentionform(monform As Form)

monform.Width = 800
monform.Height = 600
monform.Border = 0
monform.Center

End

vuott#3 Posté le 21/5/2016 à 16:40:06
Ne cedere ineluctabili possimus
...me permettant de le définir par défaut?

Je propose de créer à partir du code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
PUBLIC fm AS Form


PUBLIC SUB Form_Open()

DIM b AS BYTE

FOR b = 0 TO 9
WITH fm = NEW Form
.Width = 800
.Height = 600
.Border = 0
.Center
.Show
END WITH
NEXT

END
« Vita non suavis esse potest, nec Mors amara. »
spheris#4 Posté le 21/5/2016 à 18:40:48
Merci,
la méthode de patrick fonctionne très bien.
une autre question pour mes 10 form.
Maintenant pour chaque form j'ai une image fond d'écran que je dois initialiser par la commande :

pour le form 1:
1
2
3
PRIVATE lechemin AS STRING
lechemin = fmain.monchemin
ME.picture = picture[lechemin & "/monbackground1.jpg"]



pour le form 2:
1
2
3
PRIVATE lechemin AS STRING
lechemin = fmain.monchemin
ME.picture = picture[lechemin & "/monbackground2.jpg"]


N'y aurait-il pas moyen d'initialiser les fonds d'ecran de façon automatique?
www.gambaslinux.fr
Patrick#5 Posté le 21/5/2016 à 19:16:39
Bon alors je me lance :
- dans fmain
Private monform As Maclasse

Public Sub Form_Open()
dim image as string

image="monbackground1.jpg"
monform = New Maclasse(Me,image)
autreprocedure
End

Public Sub autreprocedure()

monform = New Maclasse(monformulaire,"/monbackground2.jpg")

End

Dans maclasse
Public Sub _new(monform As Form, Optional monimage As string)


monform.Width = 800
monform.Height = 600
monform.Border = 0
monform.Picture = Picture[lechemin & "/" & monimage]
monform.Center
monform.Show

End

Voila on peut imbriquer plusieurs formulaires et rajouter des options.
Oups, j'ai oublié, il faut tester les valeurs optionnelles.
1