|
-
May 28th, 2002, 05:26 PM
#1
Thread Starter
Frenzied Member
[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
Last edited by TomGibbons; May 28th, 2002 at 05:58 PM.
-
May 28th, 2002, 05:37 PM
#2
Hyperactive Member
quick one i made is attached using Line control.
you can achieve the same thing using Form.Line if you want.
-
May 28th, 2002, 05:44 PM
#3
Thread Starter
Frenzied Member
Cheers. Dont see how you drew it like that in the first place though.
-
May 28th, 2002, 05:53 PM
#4
Hyperactive Member
Originally posted by TomGibbons
Cheers.
No problem.
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?
-
May 28th, 2002, 05:59 PM
#5
Thread Starter
Frenzied Member
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!!
-
May 28th, 2002, 06:01 PM
#6
The picture isn't missing
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
Remember, if someone's post was not helpful, you can always rate their post negatively  .
-
May 28th, 2002, 06:55 PM
#7
Hyperactive Member
this is from VB's setup pdwizrd
it is, in effect, the same thing.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Reply With Quote