[VB6] Trasferire funzione ad un modulo

[marco.santilli]

Ho una form padre ed una figlia (MDIForm e una Form)

Quando apri una form non hai la possibilità di impostare il posizionamento CENTRATO perchè non è attivo.

Per farlo l'ho fatto io manualmente


Private Function Centrato()

Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 4

End Function


e lo richiamo in apertura della form

Visto che lo posso utilizzare in tutte le form, lo volevo mettere in un modulo cosi me lo tiene sempre caricato

Non sono molto esperto quindi mi va in errore perchè non conosco bene la sintassi

Ho tagliato il codice dalla forme l'ho incollato nel modulo, sostituendo Private con Public

Public Function Centrato()

Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 4

End Function

Se adesso lo lancio mi va in errore, perchè sicuramente devo dichiarire gli oggetti, ma non sono capace, come devo trasformare queste due righe per farle avviare correttamente????

Ciao e grazieeeeeeeeeee

[vaitrafra]

Public sub CentraForm(byref Frm as form) 
        
        frm.top = (screen.height - frm.height) /2
        frm.left = (screen.width - frm.width) /2

end sub

[oregon]

La funzione potrebbe essere (ho anche cambiato nome ...)

Public Function Centra(frm As Form)
    frm.Left = (Screen.Width - frm.Width) / 2
    frm.Top = (Screen.Height - frm.Height) / 4
End Function

e il suo uso puo' essere

Centra Me

[Jupy64]

Ciao

'nel modulo...
Public Sub CentraForm(MyFrm As Form)
  MyFrm.Left = (Screen.Width - MyFrm.Width) / 2
  MyFrm.Top = (Screen.Height - MyFrm.Height) / 2
End Sub

'uso da qualsiasi form che vuoi centrare...
CentraForm Me

[vaitrafra]

Originariamente inviato da oregon

Public Function Centra(frm As Form)
    frm.Left = (Screen.Width - frm.Width) / 2
    frm.Top = (Screen.Height - frm.Height) / 4
End Function

ma così non passi per valore?

[Jupy64]

ops..un attimo in ritardo... va beh.. due meglio di uno..

[Jupy64]

Originariamente inviato da vaitrafra
ma così non passi per valore?

No, se non viene specificato, il passaggio è sempre (per default) per riferimento.

[marco.santilli]

Ok grazie funzionaaaaaaaaa