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