Textbox added to Form at runtime too small, can't control size andchange event won't trigger

R

RCGUA

I have Form and when the user clicks CommandButton4 a textbox is added
to the form with the code below. When I type in the textbox it
resizes itself really small and you can only view a small amount of
the text typed into the box. Also, when I type in the box the change
event does trigger the msgbox. Does anyone know how to make this
textbox resize so the user can see all the text typed in the box?

Private Sub CommandButton4_Click()
Dim ctrl As msforms.TextBox
With Me
Set ctrl = .Controls.Add("forms.textbox.1", "txt1", True)
ctrl.Left = 20
ctrl.Top = 50
ctrl.AutoSize = True
ctrl.MultiLine = True
ctrl.WordWrap = True
ctrl.Visible = True
End With
End Sub

Private Sub txt1_change()
MsgBox "txt1 has changed"
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Textbox added to Form at runtime is too small, can't control size andchange event won't trigger 2
QueryClose event of a form triggering Exit event of a textbox on that form 2
Form code runs too quickly 3
change event; return focus to original textbox 3
MultiSelect List Box to Filter Form 4
Class module to filter textbox entry 7
Copy data from textbox on form to multiple fields in table 7
Saving to a custom form 0

Top