passing an object

[mark]

Hello.

I have several textboxes that I'm going to need to limit the text in to a
specific number of rows... not all the same number of rows... dependent upon
which box it is.

I have the limiting code working reasonably well for a give box, but would
like to write that code into a subroutine that I pass the textbox object, and
the row limit.

I've tried several things, but so far, I either get a type mismatch on the
call, or a message that the object doesn't support that property (LineCount
property of the textbox) in the subroutine itself.

Here is the calling routine:

Private Sub txtGenResp_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)

sbLimitText txtGenResp, 9

End Sub

and the routine called:

Sub sbLimitText(txtBox As OLEObject, intRowLimit As Integer)

If txtBox.LineCount > intRowLimit Then

While txtBox.LineCount > intRowLimit

txtBox.Text = Left(txtBox.Text, txtBox.TextLength - 2)

Wend

End If

That is passing the default property of the textbox object, it's text. I
need it to pass the object itself.

Could someone point me to the error of my ways?
Mark

 

[arthurjr07]

Sub sbLimitText(txtBox As Object, intRowLimit As Integer)


If txtBox.LineCount > intRowLimit Then


While txtBox.LineCount > intRowLimit


txtBox.Text = Left(txtBox.Text, txtBox.TextLength - 2)


Wend


End If
End Sub


HTH
Arthur

 

[mark]

Thanks. I thought I had tried that (the 'As Object'). Actually, I'm sure I
did, but I must not have tried it with the right calling syntax.

I just tried again, and this time it's working fine.

Thank you.