Looking for an example

[kirkm]

To put several controls on a form from code.

Was playing with this but can't get it to work -
---
Private Sub CommandButton1_Click()

Dim myLabel As Label
Set myLabel = frmMyForm.Controls.Add("Forms.Label.1", "lblPrompt")
With myLabel

.Left = 10
.Top = 10
.Width = 30
.Caption = "Enter your name:"

End With

End Sub

 

[Steve Yandl]

Kirk,

I did a quick test and your code worked fine except a width of 30 wasn't
quite enough to fit the caption. The one think I left out was the variable
declaration. Try changing
Dim myLabel As Label
to
Dim myLabel As Control


Steve Yandl

 

[kirkm]

Kirk,

I did a quick test and your code worked fine except a width of 30 wasn't
quite enough to fit the caption. The one think I left out was the variable
declaration. Try changing
Dim myLabel As Label
to
Dim myLabel As Control


Steve Yandl

Steve, thanks for that. Worked a treat.
But do you know how (or if you can)
lock the controls onto the Forn, as if they had been
put there at design time?

I've found I can't get to their click event code anyhow.

Thanks - Kirk

 

[Steve Yandl]

I'm not certain but think you might have to insert a
DoEvents
statement.


Steve

 

[ker_01]

Sub MyExample
Msgbox "Hello World!"
End Sub

(sorry, couldn't resist)