Function to draw an etched (3-D) looking line on a form

by Anonymous (267 Submissions)
Category: Graphics
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Mon 15^th February 1999
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Function to draw an etched (3-D) looking line on a form



'* Function: EtchedLine(frmEtch As Form, ByVal intX1 As Integer, ByVal intY1 As Integer, ByVal intLength As Integer)
'*
'*

'* Description: 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.
'*

'* Parameters: [frmEtch] - form to draw the line upon
'*             [intX1] - starting horizontal of line
'*             [intY1] - starting vertical of line
'*             [intLength] - length of the line
'*

'* Notes:
'*

'* Returns:

Sub EtchedLine(frmEtch As Form, ByVal intX1 As Integer, ByVal intY1 As Integer, ByVal intLength As Integer)
    Const lWHITE& = vb3DHighlight
    Const lGRAY& = vb3DShadow

    frmEtch.Line (intX1, intY1)-(intX1 + intLength, intY1), lGRAY
    frmEtch.Line (frmEtch.CurrentX + 5, intY1 + 20)-(intX1 - 5, intY1 + 20), lWHITE
End Sub

Download this snippet Add to My Saved Code

Function to draw an etched (3-D) looking line on a form Comments

No comments have been posted about Function to draw an etched (3-D) looking line on a form. Why not be the first to post a comment about Function to draw an etched (3-D) looking line on a form.

Function to draw an etched (3-D) looking line on a form

Function to draw an etched (3-D) looking line on a form Comments

Post your comment

Difficulty