• Home
 · 
• Graphics
 · 
• This will show you changing shapes of a circle, square etc.

This will show you changing shapes of a circle, square etc.

This will show you changing shapes of a circle, square etc.

Rate This will show you changing shapes of a circle, square etc.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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