Checkbox on the edge of a frame?

[Nikata]

Hay all,

I've been trying to get 2 dynamically created checkboxes next to the caption of a dynamically created frame.
Here is a picture of the closest I've gotten, where the checkboxes are inside the frame.

I've tried making the checkboxes outside the frame but then they are overlapped by the frame and I am unable to bring them forward.

The code to create them:

'....Code for the rest of the macro
        ' Create individual frames for each day within the main frame
        dayTopPosition = 4
        dayLeftPosition = 4

For dayOfWeek = LBound(dayNames) To UBound(dayNames)       
         ' Create a frame for each day
        Set dayFrame = page.WS.Controls.Add("Forms.Frame.1", "Frame" & dayNames(dayOfWeek))
        dayFrame.Caption = dayNames(dayOfWeek)
        dayFrame.Top = dayTopPosition
        dayFrame.Left = dayLeftPosition
        dayFrame.Width = 340
        dayFrame.Height = 120
        dayFrame.ScrollBars = fmScrollBarsVertical
        dayFrame.ScrollHeight = topPosition

        topPosition = 10 ' Reset top position for checkboxes
        
        ' Add "Week" checkbox at the top of the day's frame
        Set ckbWeek = page.WS.Controls.Add("Forms.CheckBox.1", "ckbWeek_" & dayNames(dayOfWeek))
        ckbWeek.Caption = "Weekly sample"
        ckbWeek.Top = dayTopPosition
        ckbWeek.Left = 50
        ckbWeek.Width = 80
        ckbWeek.BordersSuppress = True

        ' Create and assign event handler for ckbWeek
        Dim chkHandlerWeek As CkbHandler
        Set chkHandlerWeek = New CkbHandler
        chkHandlerWeek.Init ckbWeek, dayNames(dayOfWeek)
        checkboxHandlers.Add chkHandlerWeek
        
        ' Add "Month" checkbox next to the "Week" checkbox
        Set ckbMonth = page.WS.Controls.Add("Forms.CheckBox.1", "ckbMonth_" & dayNames(dayOfWeek))
        ckbMonth.Caption = "Monthly sample"
        ckbMonth.Top = dayTopPosition
        ckbMonth.Left = ckbWeek.Left + 80
        ckbMonth.Width = 80
        ' Create and assign event handler for ckbMonth
        Dim chkHandlerMonth As CkbHandler
        Set chkHandlerMonth = New CkbHandler
        chkHandlerMonth.Init ckbMonth, dayNames(dayOfWeek)
        checkboxHandlers.Add chkHandlerMonth

'Code for the rest of the macro....
        dayTopPosition = dayTopPosition + dayFrame.Height + 5
Next dayOfWeek

Is it possible and if so, does anybody know how?

 

[DanteAmor]

Try adjusting the top position of the checkboxes:

Private Sub CommandButton1_Click()
'....Code for the rest of the macro
        ' Create individual frames for each day within the main frame
        dayTopPosition = 20
        dayLeftPosition = 4
For dayOfWeek = LBound(dayNames) To UBound(dayNames)
         ' Create a frame for each day
        Set dayFrame = Page.WS.Controls.Add("Forms.Frame.1", "Frame" & dayNames(dayOfWeek))
        dayFrame.Caption = dayNames(dayOfWeek)
        dayFrame.Top = dayTopPosition
        dayFrame.Left = dayLeftPosition
        dayFrame.Width = 340
        dayFrame.Height = 120
        dayFrame.ScrollBars = fmScrollBarsVertical
        dayFrame.ScrollHeight = topPosition

        topPosition = 10 ' Reset top position for checkboxes
       
        ' Add "Week" checkbox at the top of the day's frame
        Set ckbWeek = Page.WS.Controls.Add("Forms.CheckBox.1", "ckbWeek_" & dayNames(dayOfWeek))
        ckbWeek.Caption = "Weekly sample"
        ckbWeek.Top = dayTopPosition - 15
        ckbWeek.Left = 50
        ckbWeek.Width = 80
        ckbWeek.BordersSuppress = True

        ' Create and assign event handler for ckbWeek
        Dim chkHandlerWeek As CkbHandler
        Set chkHandlerWeek = New CkbHandler
        chkHandlerWeek.Init ckbWeek, dayNames(dayOfWeek)
        checkboxHandlers.Add chkHandlerWeek
       
        ' Add "Month" checkbox next to the "Week" checkbox
        Set ckbMonth = Page.WS.Controls.Add("Forms.CheckBox.1", "ckbMonth_" & dayNames(dayOfWeek))
        ckbMonth.Caption = "Monthly sample"
        ckbMonth.Top = dayTopPosition - 15
        ckbMonth.Left = ckbWeek.Left + 80
        ckbMonth.Width = 80
        ' Create and assign event handler for ckbMonth
        Dim chkHandlerMonth As CkbHandler
        Set chkHandlerMonth = New CkbHandler
        chkHandlerMonth.Init ckbMonth, dayNames(dayOfWeek)
        checkboxHandlers.Add chkHandlerMonth

'Code for the rest of the macro....
        dayTopPosition = dayTopPosition + dayFrame.Height + 15
Next dayOfWeek
End Sub

Example:

 

[Nikata]

Thank you for your answer DanteAmor. This however places the checkboxes above the frame edge.
I've made this with Paint to show the desired positioning:

Like I said before, I've got no idea if its possible with dynamic boxes and frames.

 

[DanteAmor]

Maybe:

Change this:

        ' Add "Week" checkbox at the top of the day's frame
        Set ckbWeek = dayFrame.Controls.Add("Forms.CheckBox.1", "ckbWeek_" & dayNames(dayOfWeek))
        ckbWeek.Caption = "Weekly sample"
        ckbWeek.Top = -3
        ckbWeek.Left = 50
        ckbWeek.Width = 80
        ckbWeek.BordersSuppress = True

'...
        
        ' Add "Month" checkbox next to the "Week" checkbox
        Set ckbMonth = dayFrame.Controls.Add("Forms.CheckBox.1", "ckbMonth_" & dayNames(dayOfWeek))
        ckbMonth.Caption = "Monthly sample"
        ckbMonth.Top = -3
        ckbMonth.Left = ckbWeek.Left + 80
        ckbMonth.Width = 80

 

[Nikata]

Here is a picture of the closest I've gotten, where the checkboxes are inside the frame.

Thats what I had initially. I guess its not possible to have them on the edge/line.

 

[DanteAmor]

Thats what I had initially

But the code you put didn't do that, that's why I modified your code.

I guess its not possible to have them on the edge/line.

Something like this:

It occurs to me that we can add another frame, and in that frame the checkboxes:

'....Code for the rest of the macro
        ' Create individual frames for each day within the main frame
        dayTopPosition = 4
        dayLeftPosition = 4
        
  For dayOfWeek = LBound(dayNames) To UBound(dayNames)
         ' Create a frame for each day
        Set dayFrame = Page.WS.Controls.Add("Forms.Frame.1", "Frame" & dayNames(dayOfWeek))
        dayFrame.Caption = dayNames(dayOfWeek)
        dayFrame.Top = dayTopPosition
        dayFrame.Left = dayLeftPosition
        dayFrame.Width = 340
        dayFrame.Height = 120
        dayFrame.ScrollBars = fmScrollBarsVertical
        dayFrame.ScrollHeight = topPosition
        dayFrame.ZOrder 1

         ' Create a frame for checkbox
        Set dayFramecb = Page.WS.Controls.Add("Forms.Frame.1", "FrameCb" & dayNames(dayOfWeek))
        dayFramecb.Caption = ""
        dayFramecb.Top = dayTopPosition - 10
        dayFramecb.Left = dayLeftPosition + 60
        dayFramecb.Width = 250
        dayFramecb.Height = 20
        dayFramecb.SpecialEffect = fmSpecialEffectFlat
        dayFramecb.ZOrder 0

        ' Add "Week" checkbox at the top of the day's frame
        Set ckbWeek = dayFramecb.Controls.Add("Forms.CheckBox.1", "ckbWeek_" & dayNames(dayOfWeek))
        ckbWeek.Caption = "Weekly sample"
        ckbWeek.Top = 5
        ckbWeek.Left = 10
        ckbWeek.Width = 100
        ckbWeek.BordersSuppress = True

        ' Create and assign event handler for ckbWeek
'        Dim chkHandlerWeek As CkbHandler
'        Set chkHandlerWeek = New CkbHandler
'        chkHandlerWeek.Init ckbWeek, dayNames(dayOfWeek)
'        checkboxHandlers.Add chkHandlerWeek
        
        ' Add "Month" checkbox next to the "Week" checkbox
        Set ckbMonth = dayFramecb.Controls.Add("Forms.CheckBox.1", "ckbMonth_" & dayNames(dayOfWeek))
        ckbMonth.Caption = "Monthly sample"
        ckbMonth.Top = 5
        ckbMonth.Left = ckbWeek.Left + 100
        ckbMonth.Width = 80
        ckbMonth.BordersSuppress = True

        ' Create and assign event handler for ckbMonth
'        Dim chkHandlerMonth As CkbHandler
'        Set chkHandlerMonth = New CkbHandler
'        chkHandlerMonth.Init ckbMonth, dayNames(dayOfWeek)
'        checkboxHandlers.Add chkHandlerMonth

'Code for the rest of the macro....
        dayTopPosition = dayTopPosition + dayFrame.Height + 15
  Next dayOfWeek

 

[Nikata]

Oh smart! That works wonderfully, thank you!