Creating borders around (user)controls

[Abhishek Reddy]

Hi

I have made a usercontrol that has a border around it. I've done this by creating a rect. shape inside the control that always maintains its width and height to be 1px less than the control width/height. This is so that when the control is resized in the main form, the border remains.

The problem is that at certain measurements the shape does not conform to exactly ctlWidthorHeight - 1px. Instead, it overflows and partly becomes invisible.

I'm looking for a better way to make a constant border around my usercontrol. How can I do this?

[crptcblade]

Set the BorderStyle to Fixed Single.

[crptcblade]

You can set it in the designer for the UserControl. Then, if you want to be able to change it, you'll have to make a property that changes the borderstyle.

[Arc]

Usercontrol.Borderstyle=1

0 for flat

[MarkT]

Originally posted by crptcblade
You can set it in the designer for the UserControl. Then, if you want to be able to change it, you'll have to make a property that changes the borderstyle.

Here is the code

Option Explicit
 
Enum Borders
    None = 0
    Fixed = 1
End Enum
    
Public Property Get BorderStyle() As Borders
    BorderStyle = UserControl.BorderStyle
End Property
 
Public Property Let BorderStyle(New_BorderStyle As Borders)
    UserControl.BorderStyle = New_BorderStyle
    PropertyChanged "BorderStyle"
End Property
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    BorderStyle = PropBag.ReadProperty("BorderStyle", 0)
End Sub
 
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    PropBag.WriteProperty "Borderstyle", UserControl.BorderStyle, 0
End Sub