FUNCTION IN VB6 THAT DONT WORK IN EXCEL 1

[JCooL]

Hi there,

Public Sub Capital(str As TextBox)
  str = UCase(str.Text)
  str.SelLength = Len(str.Text)
End Sub

Private Sub Text1_Change()
  Capital Text1
End Sub

I made this function in VB6 when i trying to make the same in Ecxel with a Texbox1 i recive this message "Type MisMatch", in Excel the Code look like this...

Public Sub Capital(str As TextBox)
     str = UCase(str.Text)
     str.SelLength = Len(str.Text)
End Sub

Private Sub TextBox1_Change()
   Captial TextBox1   <<Here the error
End Sub

Thanks By First

 

[kylua]

If you have copied and pasted from your code then replace:
Captial with Capital

But I doubt it would be that easy.

 

[JCooL]

Thanx...

Now yes.

Excel Code

Public Sub Capital(str As TextBox)
     str = UCase(str.Text)
     str.SelLength = Len(str.Text)
End Sub

Private Sub TextBox1_Change()
   Capital TextBox1   <<Here the error
End Sub

 

[rmikesmith]

JCool,

Change your Sub declaration as follows:

Public Sub Capital(str As MSForms.TextBox)
     str = UCase(str.Text)
     str.SelLength = Len(str.Text)
End Sub

Regards,
Mike

 

[merlinx]

try Textbox1.text

 

[merlinx]

try
Textbox1.text = Capital Textbox1.text

 

[xlbo]

How can str = Textbox AND Textbox.Text - that's a type mismatch if I ever saw one (esp as str is defined as textbox NOT string) Rgds
~Geoff~

 

[JCooL]

Hi,

All right rmikesmith, thats really work!

Thanx to all there...

'til next

 

[xlbo]

Hey JCool - if Mike has helped you, you may wanna give him a star. You can do this by clicking on the "Mark This post as a helpful/expert post". This is the Tek-Tips method for saying thanx but just as importantly, flags posts for which good / helpful answers have been given. This, in turn, makes searching the archives for previous answers to similar questions much easier Rgds
~Geoff~

 

[JCooL]

Ok, xlbo Thanx