Pointer to a userform

  • Thread starter Thread starter Jos Vens
  • Start date Start date
J

Jos Vens

Hi,

how can I set a pointer to an existing userform.

I tried this to use in an module

public fME as Userform

function Set_Form()

fME.Height = 315
fME.Width = 390

end function

In the Userform Initialize section

Private Sub UserForm_Initialize()

Set fME = ME
Set_Form

End Sub

....

but I can't assign my userform to the global pointer (nor can I when I
substitute de ME to Userforms("myForm") or something like that.

Any help is appreciated
Jos Vens
 
Why not just pass the form as an argument to the sub:

'form code
Private Sub UserForm_Initialize()
SetForm Me, 390, 315
End Sub

'in module
Option Private Module
Public Sub SetForm(frmInput As UserForm1, dWidth As Double, dHeight As
Double)
With frmInput
.Height = dHeight
.Width = dWidth
End With
End Sub

Robin Hammond
www.enhanceddatasystems.com
 
Thanks Robin,

Jos


Robin Hammond said:
Why not just pass the form as an argument to the sub:

'form code
Private Sub UserForm_Initialize()
SetForm Me, 390, 315
End Sub

'in module
Option Private Module
Public Sub SetForm(frmInput As UserForm1, dWidth As Double, dHeight As
Double)
With frmInput
.Height = dHeight
.Width = dWidth
End With
End Sub

Robin Hammond
www.enhanceddatasystems.com
Click to expand...
 
Back
Top