draw etched line?

[softwareguy74]

Hi,

I want to draw a line on my form that has the "etched" look to it.. But, that doesn't seem to be an option with the line that's available with VB6.

Any idea on how to accomplish this without a lot of code?

Thanks,

dan

Hello there,

I can tell you how I do the lines under the menu's on the forms. I use two line controls, with the following settings.

Line1: Border = 2
Bordercolor = ButtonShadow

Line2: Border = 1
Bordercolor = Button Highlight

You may have to play with the ZOrder of the lines to get them to look right. In your form_resize or form_paint you can set the x1,x2... proporties for the width of the lines.

Hope this helps

Something like this?

Public A, B As Integer


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then Form1.Line (A, B)-(X, Y)
    A = X: B = Y
End Sub


Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then Form1.Line (X, Y)-(X + 15, Y + 15)
End Sub

[Edited by Matthew Gates on 09-27-2000 at 07:38 PM]

[softwareguy74]

Thanks for your help but there has got to be a better way.. Everything else can have an etched look, why not a simple line? You know, there are several little annoyances like this in very Microsoft product.. They have products that are 99% good but they allways have to throw some little thing in there just to get under your skin.. I mean come on!!!! It's just a simple little line we're talking about here....

Hello again,

I fully agree with you, I sent almost 3 days trying to find away to make that damn little line. Of course that was long before I know of this place It truly is amazing that MS could let this very simple detail slip by.

Best,