Faire un module pour toutes les pages.

mer, 15/02/2012 - 07:24
#1
jlb59
Faire un module pour toutes les pages.

Bonjour à tous,

Je fais un prg qui comporte beaucoup de pages.

Sur chacune d'elle, il y a un label que je voudrais positionner mais à partir d'un module.
Actuellement, cette position est faire sur toutes les pages, et comme je dois modifier l'emplacement, je suis obligé de le faire page/page ! C'est assez contraignant !

Est-ce que c'est possible de le faire à parir d'un module, un peu comme du Html et du Css ?

J'ai essayé, mais apparamment, c'est pas ça parce que j'ai une erreur à la 1ère ligne !
Comme je ne connais pas trop la syntaxte à employer, merci d'avance de m'aider. 

Public Function QuestionOK()
PanelQ.Left = 630
PanelQ.Height = 420
PanelQ.Top = 1035
PanelQ.Width = 8160

cmdOK.Left = 4095
cmdOK.Height = 855
cmdOK.Top = 5490
cmdOK.Width = 1335

End Function
Haut
mer, 15/02/2012 - 15:05
RichardB
Re: Faire un module pour toutes les pages.

Salut, il faut que depuis ton module tu fasses référence à la form qui contient les contrôles que tu veux positionner exemple frmPage1.PanelQ.Left = 630
tu peux utiliser with pour ne pas avoir à répéter à chaque ligne
with frmPage1
.PanelQ.Left = 630
.PanelQ.Height = 420
end with
et même

with frmPage1.PanelQ
.Left = 630
.Height = 420
end with

Haut
mer, 15/02/2012 - 15:13
jlb59
Re: Faire un module pour toutes les pages.

Merci beaucoup !
J'ai fait ça... et comme ça marche ! :D 

Public Function QuestionOK(ByRef Parent As Form)
    With Parent.PanelQ
        .Height = 375
        .Left = 525
        .Top = 1245
        .Width = 8730
    End With
    With Parent.cmdOK
        .Height = 855
        .Left = 4095
        .Top = 5490
        .Width = 1335
    End With
End Function

A moins que tu n'ai une autre idée plus simple encore ?

En tout cas, pour moi, l'affaire est résolue !

Haut
Post reply