Lesson 68: The Frame Control

Technically, the user can select more than one option button at a time as long as the two option buttons reside in separate frames. You can use frames to hold groups of option buttons together so that the user can select one of multiple option button groups.

A frame, sometimes referred to as a container control, holds controls on a plane that differs from the form itself. Although you can only provide one set of option buttons on a form, you can provide multiple option button sets on the screen as long as one or more sets reside on one or more frames. Frames can hold more than option buttons. A frame can hold any kind of control that you want to visually group with other controls.

Here is an example of the frame control at work.

The frame's caption property is used to place text (Choose a font size...) within the frame's border. The frame looks good on a form and help place multiple option button sets on a form.

Here is the source code.

Private Sub chkBold_Click()
    If (chkBold.Value = 1) Then
        lblEHS.FontBold = True
    Else
        lblEHS.FontBold = False
    End If
    
End Sub

Private Sub chkItalics_Click()
    If (chkItalics.Value = 1) Then
        lblEHS.FontItalic = True
    Else
        lblEHS.FontItalic = False
    End If
    
End Sub

Private Sub chkUnder_Click()
    If (chkUnder.Value = 1) Then
        lblEHS.FontUnderline = True
    Else
        lblEHS.FontUnderline = False
    End If
    
End Sub

Private Sub optArial_Click()
    If (optArial.Value = True) Then
        lblEHS.Font = "Arial"
    End If
    
End Sub

Private Sub optFourteen_Click()
    If (optFourteen.Value = True) Then
        lblEHS.FontSize = 14
    End If
    
    
End Sub

Private Sub optGaramond_Click()
    If (optGaramond.Value = True) Then
        lblEHS.Font = "Garamond"
    End If
    
End Sub

Private Sub optSans_Click()
    If (optSans.Value = True) Then
        lblEHS.Font = "MS Sans Serif"
    End If
    
End Sub

Private Sub optTen_Click()
    If (optTen.Value = True) Then
        lblEHS.FontSize = 10
    End If
    
End Sub

Private Sub optTwelve_Click()
    If (optTwelve.Value = True) Then
        lblEHS.FontSize = 12
    End If
    
End Sub