Passing a Control as an Argument

  • Thread starter Thread starter Goofy
  • Start date Start date
G

Goofy

Hi,

I have a form with a label control on it. I want to pass this as an argument
to a function which does a test. The problem is that this gives me a type
mismatch on this form which calls it. If you hover the mouse cursor over the
argument which is passed to the function from the calling method in the
form, it returns a string value.

Any IDeas ?

Public Function MyFunction( myLabel as Label ) As Boolean

myLabel.Caption = "SomeString"

MyFunction = True

End Function
 
Hi,


If by form you mean userform then the object type would be MSForms.Label

Cheers
Andy
 
Type mismatch .....


....Calling Form.......
Private Sub CommandButton1_Click()
Dim c1 As New Class1

c1.addStuff (Label1)

End Sub


in class1 . . . . . . . . .

Public Sub addStuff(ByRef myLabel As MSForms.Label)

myLabel.Caption = "Stuff"

End Sub
 
Lose the brackets around the passed argument.
The brackets are actually causing the default value of the label, which
is the caption property, to be passed rather than the object.

Private Sub CommandButton1_Click()
Dim c1 As New Class1

c1.addStuff Label1

End Sub

Type mismatch .....


...Calling Form.......
Private Sub CommandButton1_Click()
Dim c1 As New Class1

c1.addStuff (Label1)

End Sub


in class1 . . . . . . . . .

Public Sub addStuff(ByRef myLabel As MSForms.Label)

myLabel.Caption = "Stuff"

End Sub
Click to expand...
 
Andy, thanks for your help, this was the problem.

Why do the brackets cause this behaviour, ie the logic behind it.?


Andy Pope said:
Lose the brackets around the passed argument.
The brackets are actually causing the default value of the label, which is
the caption property, to be passed rather than the object.

Private Sub CommandButton1_Click()
Dim c1 As New Class1

c1.addStuff Label1

End Sub
Click to expand...
 
Actually, this is still an issue because I am actually going to need to pass
this to a function and I cant get away with removing the brackets ?


Andy Pope said:
Lose the brackets around the passed argument.
The brackets are actually causing the default value of the label, which is
the caption property, to be passed rather than the object.

Private Sub CommandButton1_Click()
Dim c1 As New Class1

c1.addStuff Label1

End Sub
Click to expand...
 
If it is a function you can use the brackets if you assign the returned
value to a variable.

Private Sub CommandButton1_Click()

Dim c1 As New Class1
Dim blnResult As Boolean

c1.addStuff Label1
blnResult = c1.addStuff(Label1)

End Sub

'Class code

Public Function addStuff(ByRef myLabel As MSForms.Label)

myLabel.Caption = "Stuff"

addStuff = True

End Function

Actually, this is still an issue because I am actually going to need to pass
this to a function and I cant get away with removing the brackets ?
Click to expand...
 
Unfotunately, I get the same error message, as soon as the damn control is
inside those brackets it refuses to work. Progress is the name of the Label
in the form.PCM is the object whioch contains the function I am trying to
pass the Label to

Dim stage1Result As Boolean
stage1Result = pcm.ownerValidationReport(ws, we, drpCells.Value,
ScheduleVerbIntegrety, False, True, progress)


Thanks for your help


Andy Pope said:
If it is a function you can use the brackets if you assign the returned
value to a variable.

Private Sub CommandButton1_Click()

Dim c1 As New Class1
Dim blnResult As Boolean

c1.addStuff Label1
blnResult = c1.addStuff(Label1)

End Sub

'Class code

Public Function addStuff(ByRef myLabel As MSForms.Label)

myLabel.Caption = "Stuff"

addStuff = True

End Function
Click to expand...
 
I see what you are saying, but I need the result and the passing to happen
at the same time. or maybe I can change this to a sub and have it pass back
the result by reference.


Andy Pope said:
If it is a function you can use the brackets if you assign the returned
value to a variable.

Private Sub CommandButton1_Click()

Dim c1 As New Class1
Dim blnResult As Boolean

c1.addStuff Label1
blnResult = c1.addStuff(Label1)

End Sub

'Class code

Public Function addStuff(ByRef myLabel As MSForms.Label)

myLabel.Caption = "Stuff"

addStuff = True

End Function
Click to expand...
 
So what do the function ownerValidationReport argument list look like?
And do the arguments you are passing in match those the function is
expecting?

Cheers
Andy
Unfotunately, I get the same error message, as soon as the damn control is
inside those brackets it refuses to work. Progress is the name of the Label
in the form.PCM is the object whioch contains the function I am trying to
pass the Label to

Dim stage1Result As Boolean
stage1Result = pcm.ownerValidationReport(ws, we, drpCells.Value,
ScheduleVerbIntegrety, False, True, progress)


Thanks for your help
Click to expand...
 
I changed it to a sub, to see if I could use the parameters passed to get
the result, but I get the same
problem.

'Calling
Dim stage1Result As Boolean
pcm.ownerValidationReport ws, we, drpCells.Value, ScheduleVerbIntegrety,
False, True, progress, stage1Result
If Not stage1Result Then


'Called
Public Sub ownerValidationReport(weekStart As Integer, weekEnd As Integer,
cell As String, validation As validationType, includeSuccesses As Boolean,
loggingContinued As Boolean, ByRef progressLabel As msForms.Label, result As
Boolean)

Dim spreadSheetYear As Integer
Dim allWeeks As Boolean
Dim thereWereErrors As Boolean







Andy Pope said:
So what do the function ownerValidationReport argument list look like?
And do the arguments you are passing in match those the function is
expecting?

Cheers
Andy
Click to expand...
 
Andy,

I have to go now, so I will read any reply you send tomorrow morning.

Many Thanks


Goofy said:
I changed it to a sub, to see if I could use the parameters passed to get
the result, but I get the same
problem.

'Calling
Dim stage1Result As Boolean
pcm.ownerValidationReport ws, we, drpCells.Value,
ScheduleVerbIntegrety, False, True, progress, stage1Result
If Not stage1Result Then


'Called
Public Sub ownerValidationReport(weekStart As Integer, weekEnd As Integer,
cell As String, validation As validationType, includeSuccesses As Boolean,
loggingContinued As Boolean, ByRef progressLabel As msForms.Label, result
As Boolean)

Dim spreadSheetYear As Integer
Dim allWeeks As Boolean
Dim thereWereErrors As Boolean
Click to expand...
 
Hi,

I get a compile error due to the Validation variable. It does not
understand what validationType is.

But if I use Variant instead I can get it to work as either sub or function.

If you want to email me your code off NG you can.

Cheers
Andy
I changed it to a sub, to see if I could use the parameters passed to get
the result, but I get the same
problem.

'Calling
Dim stage1Result As Boolean
pcm.ownerValidationReport ws, we, drpCells.Value, ScheduleVerbIntegrety,
False, True, progress, stage1Result
If Not stage1Result Then


'Called
Public Sub ownerValidationReport(weekStart As Integer, weekEnd As Integer,
cell As String, validation As validationType, includeSuccesses As Boolean,
loggingContinued As Boolean, ByRef progressLabel As msForms.Label, result As
Boolean)

Dim spreadSheetYear As Integer
Dim allWeeks As Boolean
Dim thereWereErrors As Boolean
Click to expand...
 
Hi Andy,

Thanks for all your help yesterday. In the end it was nothing to do with the
Label being passed, the error was due to something further down, I was
clicking on Step Over not step in, so I assumed the error was at the calling
line when in reality it was not.


Regards - Goofy





Andy Pope said:
Hi,

I get a compile error due to the Validation variable. It does not
understand what validationType is.

But if I use Variant instead I can get it to work as either sub or
function.

If you want to email me your code off NG you can.

Cheers
Andy
Click to expand...
 
Ok, thanks for letting us know.

Cheers
Andy
Hi Andy,

Thanks for all your help yesterday. In the end it was nothing to do with the
Label being passed, the error was due to something further down, I was
clicking on Step Over not step in, so I assumed the error was at the calling
line when in reality it was not.


Regards - Goofy
Click to expand...
 
Back
Top