Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add controls to Frames at Runtime
Hi,
I am using the following code to add a frame to a form.. Set AddMyControl = Controls.Add("Forms.Frame.1", "fraFrame1", Visible) AddMyControl.Left = 50 AddMyControl.Top = 50 AddMyControl.Caption = "New Frame Box" AddMyControl.Width = 70 AddMyControl.Height = 50 I then want to add, say a checkbox into that frame. Anybody done this before, got any ideas how it codes? Thanks. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add controls to Frames at Runtime
Neily,
Here is some example code Private Sub CreateControl() Dim newButton As msforms.Control Select Case True Case chkText.Value Set newButton = Me.Controls.Add("Forms.Textbox.1") newButton.Name = "New Textbox" Case chkButton.Value Set newButton = Me.Controls.Add("Forms.CommandButton.1") newButton.Caption = "newCmd" Case chkCheckbox.Value Set newButton = Me.Controls.Add("Forms.Checkbox.1") newButton.Caption = "Another Checkbox" End Select With newButton .Left = 100 .Top = 50 .Visible = True End With End Sub -- HTH RP (remove nothere from the email address if mailing direct) "Neily" wrote in message ... Hi, I am using the following code to add a frame to a form.. Set AddMyControl = Controls.Add("Forms.Frame.1", "fraFrame1", Visible) AddMyControl.Left = 50 AddMyControl.Top = 50 AddMyControl.Caption = "New Frame Box" AddMyControl.Width = 70 AddMyControl.Height = 50 I then want to add, say a checkbox into that frame. Anybody done this before, got any ideas how it codes? Thanks. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add controls to Frames at Runtime
Hi Bob,
Thanks for the reply. What does this code do? Is that just to add controls to the form? What I'm trying to acheive is to create a Frame at runtime (which I have from the original post) and then, still at run time, add 2 Option Buttons to that frame so that they are grouped using that frame. You know how I can do that? Ta. Neil "Bob Phillips" wrote: Neily, Here is some example code Private Sub CreateControl() Dim newButton As msforms.Control Select Case True Case chkText.Value Set newButton = Me.Controls.Add("Forms.Textbox.1") newButton.Name = "New Textbox" Case chkButton.Value Set newButton = Me.Controls.Add("Forms.CommandButton.1") newButton.Caption = "newCmd" Case chkCheckbox.Value Set newButton = Me.Controls.Add("Forms.Checkbox.1") newButton.Caption = "Another Checkbox" End Select With newButton .Left = 100 .Top = 50 .Visible = True End With End Sub -- HTH RP (remove nothere from the email address if mailing direct) "Neily" wrote in message ... Hi, I am using the following code to add a frame to a form.. Set AddMyControl = Controls.Add("Forms.Frame.1", "fraFrame1", Visible) AddMyControl.Left = 50 AddMyControl.Top = 50 AddMyControl.Caption = "New Frame Box" AddMyControl.Width = 70 AddMyControl.Height = 50 I then want to add, say a checkbox into that frame. Anybody done this before, got any ideas how it codes? Thanks. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add controls to Frames at Runtime
try adding the following to your sample code
Dim addFrameCtrl as control ' AddMyControl code With AddMyControl Set addFrameCtrl = .Controls.Add("Forms.Textbox.1") 'whatever other properties, eg addFrameCtrl.Text = "Textbox in frame" 'add more controls to the frame End With or similar without an object ref to the frame With Me.Controls("fraFrame1") or maybe Set addFrameCtrl = Me.Controls("fraFrame1").Controls.Add("Forms.Textb ox.1") Regards, Peter T "Neily" wrote in message ... Hi, I am using the following code to add a frame to a form.. Set AddMyControl = Controls.Add("Forms.Frame.1", "fraFrame1", Visible) AddMyControl.Left = 50 AddMyControl.Top = 50 AddMyControl.Caption = "New Frame Box" AddMyControl.Width = 70 AddMyControl.Height = 50 I then want to add, say a checkbox into that frame. Anybody done this before, got any ideas how it codes? Thanks. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add controls to Frames at Runtime
This was just show you how to add other controls. You will need to add into
your code. -- HTH RP (remove nothere from the email address if mailing direct) "Neily" wrote in message ... Hi Bob, Thanks for the reply. What does this code do? Is that just to add controls to the form? What I'm trying to acheive is to create a Frame at runtime (which I have from the original post) and then, still at run time, add 2 Option Buttons to that frame so that they are grouped using that frame. You know how I can do that? Ta. Neil "Bob Phillips" wrote: Neily, Here is some example code Private Sub CreateControl() Dim newButton As msforms.Control Select Case True Case chkText.Value Set newButton = Me.Controls.Add("Forms.Textbox.1") newButton.Name = "New Textbox" Case chkButton.Value Set newButton = Me.Controls.Add("Forms.CommandButton.1") newButton.Caption = "newCmd" Case chkCheckbox.Value Set newButton = Me.Controls.Add("Forms.Checkbox.1") newButton.Caption = "Another Checkbox" End Select With newButton .Left = 100 .Top = 50 .Visible = True End With End Sub -- HTH RP (remove nothere from the email address if mailing direct) "Neily" wrote in message ... Hi, I am using the following code to add a frame to a form.. Set AddMyControl = Controls.Add("Forms.Frame.1", "fraFrame1", Visible) AddMyControl.Left = 50 AddMyControl.Top = 50 AddMyControl.Caption = "New Frame Box" AddMyControl.Width = 70 AddMyControl.Height = 50 I then want to add, say a checkbox into that frame. Anybody done this before, got any ideas how it codes? Thanks. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Userform runtime controls & Macs | Excel Programming | |||
Removing Controls at RunTime? | Excel Programming | |||
How to create controls at runtime | Excel Programming | |||
Add Controls With Events at Runtime | Excel Programming | |||
creating controls at runtime | Excel Programming |