Derek Brown
asked on
Passing a variable from one procedure into another
I have a procedure that draws boxes in a report. The width of the boxes varies but does not effect the rest of the boxes. So I want to write:
Private sub Boxes
Dim W as integer
W = 5 'Draw boxes 5 Wide
DrawBoxes
Me.PSet (300,0) 'Move over a bit then draw some more boxes, but this time 8 wide
W = 8
DrawBoxes
End Sub
Private sub DrawBoxes ()
Me.Line (0, 0) - Step (BoxHeight , W) ,0 ,B
end sub
Private sub Boxes
Dim W as integer
W = 5 'Draw boxes 5 Wide
DrawBoxes
Me.PSet (300,0) 'Move over a bit then draw some more boxes, but this time 8 wide
W = 8
DrawBoxes
End Sub
Private sub DrawBoxes ()
Me.Line (0, 0) - Step (BoxHeight , W) ,0 ,B
end sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER