dear all,
i'm doing a project which involve shape (arc, circles and rectangles) i'm a newbie on VB6, done the easy shapes but problem on drawing the arc on the form to form a half-moon shape. any help or link on this will be great and appreciated. thnx in advance
prettyboy
0
Newbie Poster
Recommended Answers
Jump to Postsyntax to draw circle, arc etc
-----------------------------------------
OBJECT.CIRCLE [STEP](X,Y),RADIUS,[COLOR,START,END,[ASPECT]]]
--
STEP-IT SPECIFIES THE CENTER OF THE CIRCLE IS RELATIVE TO THE CURRENT COORDINATES GIVEN BY "CURRENTX","CURRENTY"
X,Y-INDICATES THE CENTER COORDINATE OF THE CIRCLE.
RADIUS-INDICATES THE RADIUS.
START,END-WHEN AN ARK OR A PARTIAL CIRCLE IS DRAWN START AND END SPECIFIES THE …
Jump to Postput the code in form paint event
try this
Private Sub Form_Paint() Me.Circle (ScaleWidth / 2, ScaleHeight / 2), Switch(ScaleWidth >= ScaleHeight, ScaleHeight / 2, ScaleWidth < ScaleHeight, ScaleWidth / 2), vbRed, 0, 3, 0.8 End Sub
Jump to Postadd these two lines to existing code.
Me.FillStyle = vbFSSolid Me.FillColor = vbRed
add prior to circle code.
All 10 Replies
debasisdas
580
Posting Genius
Featured Poster
prettyboy
0
Newbie Poster
debasisdas
580
Posting Genius
Featured Poster
abivats
0
Newbie Poster
debasisdas
580
Posting Genius
Featured Poster
abivats
0
Newbie Poster
debasisdas
580
Posting Genius
Featured Poster
abivats
0
Newbie Poster
debasisdas
580
Posting Genius
Featured Poster
Bruce52
0
Newbie Poster
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.