Passing a control to a module

[Gavin_Mannion]

Hi All,

Just a quick question.

I have a module which I wish to pass the name of a control to so that it can influence that control. How would I go about doing this?

What I have at the moment is

::Form::
Private Sub Command2_Click()
`ButtonChange is the module
`test is the function
ButtonChange.test (Form2.Command2)
End Sub

::Module::
Public Function test(cbutton)
cbutton.caption = "test"
End Function

So basically what I want it to do is to change the caption of form2.command2 to "test".

I get the error message of "object required" but it is not making any sense to me.

Thanks,
Gavin

[plenderj]

Option Explicit
 
Private Sub Form_Load()
    SetText Text1, "This is a test"
End Sub
 
Private Sub SetText(txtBox As TextBox, txt As String)
    txtBox.Text = txt
End Sub

[mrdarkwarez]

asd
'in module

public sub ChangeCommandNamne(aButton as vbButton, strName as String)

aButton.caption = strName

end sub




'in form
call ChangeCommandNamne(me.command1, "a new name")




hope it works

[Gavin_Mannion]

You have lost me a bit here,

Isn't this code for a Textbox? I am looking for how to change the caption on a button, or better yet change any details of a button.

My function now looks like this

Public Function test(cbutton As CommandButton)
cbutton.Caption = "test"
End Function

But when I call is using

ButtonChange.test (Form2.Command2)

I get "Type Mismatch"

Why

Thanks,
Gavin

[Gavin_Mannion]

Originally posted by mrdarkwarez
asd
'in module

public sub ChangeCommandNamne(aButton as vbButton, strName as String)

When I run this I get "User defined type not defined", Where would I have to define this?

Thanks,
Gavin

[beachbum]

hi

'Form level
Private Sub Command1_Click()
    ChangeCaption Command1
End Sub
 
'Module
Sub ChangeCaption(lCommand As CommandButton)
    lCommand.Caption = "Changed"
End Sub
 
'I dont think u need a function cos there is no return value

Regards
Stuart

[plenderj]

Originally posted by Gavin_Mannion
You have lost me a bit here,

Isn't this code for a Textbox? I am looking for how to change the caption on a button, or better yet change any details of a button.

Yes the code I posted is for a textbox, but is easily changed to a commandbutton :

Option Explicit
 
Private Sub Form_Load()
    SetText Command1, "This is a test"
End Sub
 
Private Sub SetText(cmdBtn As CommandButton, txt As String)
    cmdBtn.Caption = txt
End Sub