Table of contents
TOC
Collapse the table of content
Expand the table of content

BackColor, BackStyle, BorderColor, BorderStyle, ForeColor, SpecialEffect Properties Example

office 365 dev account|Last Updated: 6/12/2017
|
1 Contributor

The following example demonstrates the BorderStyle and SpecialEffect properties, showing each border available through these properties. The example also demonstrates how to control color settings by using the BackColor, BackStyle, BorderColor, and ForeColor properties.

To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains:

  • Six TextBox controls named TextBox1 through TextBox6.

  • Two ToggleButton controls named ToggleButton1 and ToggleButton2.

Private Sub UserForm_Initialize() 
'Initialize each TextBox with a border style or special effect, 
'and foreground and background colors 

'TextBox1 initially uses a borderstyle 
TextBox1.Text = "BorderStyle-Single" 
TextBox1.BorderStyle = fmBorderStyleSingle 
TextBox1.BorderColor = RGB(255, 128, 128) 
'Color - Salmon 
TextBox1.ForeColor = RGB(255, 255, 0) 
'Color - Yellow 
TextBox1.BackColor = RGB(0, 128, 64) 
'Color - Green #2 

'TextBoxes 2 through 6 initially use special effects 
TextBox2.Text = "Flat" 
TextBox2.SpecialEffect = fmSpecialEffectFlat 
TextBox2.ForeColor = RGB(64, 0, 0) 
'Color - Brown 
TextBox2.BackColor = RGB(0, 0, 255) 
'Color - Blue 

'Ensure the background style for TextBox2 is initially 
'opaque. 
TextBox2.BackStyle = fmBackStyleOpaque 

TextBox3.Text = "Etched" 
TextBox3.SpecialEffect = fmSpecialEffectEtched 
TextBox3.ForeColor = RGB(128, 0, 255) 
'Color - Purple 
TextBox3.BackColor = RGB(0, 255, 255) 
'Color - Cyan 

'Define BorderColor for later use (when borderstyle=fmBorderStyleSingle) 
TextBox3.BorderColor = RGB(0, 0, 0) 
'Color - Black 

TextBox4.Text = "Bump" 
TextBox4.SpecialEffect = fmSpecialEffectBump 
TextBox4.ForeColor = RGB(255, 0, 255) 
'Color - Magenta 
TextBox4.BackColor = RGB(0, 0, 100) 
'Color - Navy blue 

TextBox5.Text = "Raised" 
TextBox5.SpecialEffect = fmSpecialEffectRaised 
TextBox5.ForeColor = RGB(255, 0, 0) 
'Color - Red 
TextBox5.BackColor = RGB(128, 128, 128) 
'Color - Gray 

TextBox6.Text = "Sunken" 
TextBox6.SpecialEffect = fmSpecialEffectSunken 
TextBox6.ForeColor = RGB(0, 64, 0) 
'Color - Olive 
TextBox6.BackColor = RGB(0, 255, 0) 
'Color - Green #1 

ToggleButton1.Caption = "Swap styles" 
ToggleButton2.Caption = "Transparent/Opaque " _ 
 &; "background" 
End Sub 

Private Sub ToggleButton1_Click() 

'Swap borders between TextBox1 and TextBox3 
If ToggleButton1.Value = True Then 
 'Change TextBox1 from BorderStyle to Etched 
 TextBox1.Text = "Etched" 
 TextBox1.SpecialEffect = fmSpecialEffectEtched 

 'Change TextBox3 from Etched to BorderStyle 
 TextBox3.Text = "BorderStyle-Single" 
 TextBox3.BorderStyle = fmBorderStyleSingle 
Else 
 'Change TextBox1 back to BorderStyle 
 TextBox1.Text = "BorderStyle-Single" 
 TextBox1.BorderStyle = fmBorderStyleSingle 

 'Change TextBox3 back to Etched 
 TextBox3.Text = "Etched" 
 TextBox3.SpecialEffect = fmSpecialEffectEtched 
End If 
End Sub
Private Sub ToggleButton2_Click() 
'Set background to Opaque or Transparent 
If ToggleButton2.Value = True Then 
 'Change TextBox2 to a transparent background 
 TextBox2.BackStyle = fmBackStyleTransparent 
Else 
 'Change TextBox2 back to opaque background 
 TextBox2.BackStyle = fmBackStyleOpaque 
End If 
End Sub
© 2018 Microsoft