[RESOLVED] Horizontal Rule

Like the ones <HR> in html. Any idea how to do these in vb?? Ive seen them but dont know how myself

quick one i made is attached using Line control.
you can achieve the same thing using Form.Line if you want.

Cheers. Dont see how you drew it like that in the first place though.

Quote:

---

Originally posted by TomGibbons
Cheers.

---

No problem.:)

Quote:

---

Originally posted by TomGibbons
Dont see how you drew it like that in the first place though.

---

I just changed the Y1 and Y2 properties manually using the Properties window.

p.s. why is this kinda resolved? what isn't resolved?

Quote:

---

Originally posted by DovyWeiss

why is this kinda resolved? what isn't resolved?

---

Thats ok now. I just wondered how you drew the rule in the first place. Its great thanks!!

this is from VB's setup pdwizrd:

VB Code:

'-----------------------------------------------------------
' SUB: EtchedLine
'
' Draws an 'etched' line upon the specified form starting
' at the X,Y location passed in and of the specified length.
' Coordinates are in the current ScaleMode of the passed
' in form.
'
' IN: [frmEtch] - form to draw the line upon
'     [intX1] - starting horizontal of line
'     [intY1] - starting vertical of line
'     [intLength] - length of the line
'-----------------------------------------------------------
'
Public Sub EtchedLine(frmEtch As Form, ByVal intX1 As Integer, ByVal intY1 As Integer, ByVal intLength As Integer)
    Const lWHITE& = vb3DHighlight
    Const lGRAY& = vb3DShadow
 
    Dim sngPixelX As Single
    Dim sngPixelY As Single
 
    sngPixelX = frmEtch.ScaleX(1, vbPixels, frmEtch.ScaleMode)
    sngPixelY = frmEtch.ScaleY(1, vbPixels, frmEtch.ScaleMode)
 
    frmEtch.Line (intX1, intY1)-(intX1 + intLength + sngPixelX, intY1 + sngPixelY), lWHITE, BF
    frmEtch.Line (intX1, intY1)-(intX1 + intLength, intY1), lGRAY
End Sub

Quote:

---

this is from VB's setup pdwizrd

---

it is, in effect, the same thing.