Blue border appear around a Button? [Resolved]

[penagate]

Either way, I guess. This is a "Client Request"

Yay, one of those.

If you want another way...

Set your scalemode to Pixels. Add a picture box to your usercontrol with coordinates (0, 0) and name it picLines. Then move your cmdButton to (2, 2). Then try this resize code:

Private Sub UserControl_Resize()
    cmdButton.Height = ScaleHeight - 4
    cmdButton.Width = ScaleWidth - 4
    With picLines
        .Height = ScaleHeight
        .Width = ScaleWidth
        .Line (0, 0)-(.Width, 0), RGB(0, 0, 255)
        .Line (.Width, 0)-(.Width, .Height), RGB(0, 0, 255)
        .Line (.Width, .Height)-(0, .Height), RGB(0, 0, 255)
        .Line (0, .Height)-(0, 0), RGB(0, 0, 255)
    End With
End Sub

[Dave Sell]

Yay, one of those.

If you want another way...

Set your scalemode to Pixels. Add a picture box to your usercontrol with coordinates (0, 0) and name it picLines. Then move your cmdButton to (2, 2). Then try this resize code:

Private Sub UserControl_Resize()
    cmdButton.Height = ScaleHeight - 4
    cmdButton.Width = ScaleWidth - 4
    With picLines
        .Height = ScaleHeight
        .Width = ScaleWidth
        .Line (0, 0)-(.Width, 0), RGB(0, 0, 255)
        .Line (.Width, 0)-(.Width, .Height), RGB(0, 0, 255)
        .Line (.Width, .Height)-(0, .Height), RGB(0, 0, 255)
        .Line (0, .Height)-(0, 0), RGB(0, 0, 255)
    End With
End Sub

OK, thanks for going the extra mile, but I am still concerned what the UserControl will look like when I need the blue border to "go away"... Will there be a goofy background border? Maybe I can make the picbox transparent?

[Mark Gambo]

OK, thanks for going the extra mile, but I am still concerned what the UserControl will look like when I need the blue border to "go away"... Will there be a goofy background border? Maybe I can make the picbox transparent?

No just use my function and change the border to the color of the background of the form etc.

[Dave Sell]

No just use my function and change the border to the color of the background of the form etc.

I will never know the color of the "form". This is a COM UserControl, which can be used all over the place. This is part of the problem.

[Mark Gambo]

I will never know the color of the "form". This is a COM UserControl, which can be used all over the place. This is part of the problem.

Sorry, I missed that, then why not setting the .Visible Property to false?

[Dave Sell]

All,

Thanks for the great responses! I am uploading a simple sample control and then I will try your suggestions. You all are welcome to make your own mods to prove your points.

Just make a new "ActiveX Control" Project, and compile this control to an .OCX, then use it on a new EXE Form. You will see what I mean when you try these things.

[Dave Sell]

Here is my solution. Tell me what you think: Will I have problems on different screen resolutions (Curse the dreaded twip-monster).

Option Explicit
 
Private Sub cmdButton_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cmdButton.Top = 50
    cmdButton.Left = 50
    cmdButton.Height = Height - 100
    cmdButton.Width = Width - 100
End Sub
 
Private Sub cmdButton_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cmdButton.Top = 0
    cmdButton.Left = 0
    cmdButton.Height = Height
    cmdButton.Width = Width
End Sub
 
Private Sub UserControl_Resize()
    cmdButton.Height = Height
    cmdButton.Width = Width
    '
    BlueBorder.Height = Height
    BlueBorder.Width = Width
End Sub