• Home
 · 
• Graphics
 · 
• 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

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

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'* 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