PDA

View Full Version : [VB6] Trasferire funzione ad un modulo


OrcaAssassina
11-12-2006, 09:23
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

wingman87
11-12-2006, 14:33
Devi passare come parametro il form, in teoria byref xò ora ho provato e funziona anche byval..

Public Sub Centrato(ByRef FMe As Form)

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

End Sub

OrcaAssassina
11-12-2006, 14:46
Ok funzionaaaaaaaaa