by Vicky jadhav (VJ) (8 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 12th June 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This will show you changing shapes of a circle, square etc.
VBcoders
-----------------------------------------------------------------------------------------------
for this you has to take some trouble hehe well on creat one standard exe form in that u has to Insert..
-----------------------------------------------------------------------------------------------
1) Lable1 Name : lblInfo
Caption: Change Width.
2) HSCrollBar Name :hsbWidth.
3) 6 Command Butons
Command1 Name : cmdRectangle
Caption : &Rectangle.
Command2 Name : cmdRndSqr
Caption : Rounded S&quare.
Command3 Name : cmdCircle
Caption : &Circle
Command4 Name : cmdOval
Caption : &Oval
Command5 Name : cmdSquare
Caption : &Square
Command6 Name : cmdRectangle
Caption : &Rectangle
4) Command7 Name : cmdExit
Caption : E&xit
5) Shape Box Name : shpAllShapes.
-----------------------------------------------------------------------------
Ok Finished Now Friends Well You Read It Carefully And Enjoy The Shapes hahaa [email protected] is my id write me..soon.
-----------------------------------------------------------------------------
CODES Are HERE
Option Explicit
Private Sub cmdCircle_Click()
shpAllShapes.Shape = 3
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdOval_Click()
shpAllShapes.Shape = 2
End Sub
Private Sub cmdRectangle_Click()
shpAllShapes.Shape = 0
End Sub
Private Sub cmdRndRect_Click()
shpAllShapes.Shape = 4
End Sub
Private Sub cmdRndSqr_Click()
shpAllShapes.Shape = 5
End Sub
Private Sub cmdSquare_Click()
shpAllShapes.Shape = 1
End Sub
Private Sub hsbWidth_Change()
shpAllShapes.BorderWidth = hsbWidth.Value
End Sub
Private Sub hsbWidth_Scroll()
shpAllShapes.BorderWidth = hsbWidth.Value
End Sub
-------------------------------------------------------------------------------------------------