如何用vb画椭圆
DimLastXAsSingleDimLastYAsSingleDimNowClickAsBooleanPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)LastX=XLastY=YNowClick=TrueEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfNowClickThenDrawOvalX,Y,FalseEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)DrawOvalX,Y,TrueNowClick=FalseEndSubSubDrawOval(SxAsSingle,EyAsSingle,OptionalDrawNowAsBoolean=False)IfDrawNowThen'画出IfSx<=LastXOrEy<=LastYThenExitSubIf(Ey-LastY)<=(Sx-LastY)ThenMe.Circle((Sx-LastX)/2+LastX,(Ey-LastY)/2+LastY),(Sx-LastX)/2,,,,(Ey-LastY)/(Sx-LastX)ElseMe.Circle((Sx-LastX)/2+LastX,(Ey-LastY)/2+LastY),(Ey-LastY)/2,,,,(Ey-LastY)/(Sx-LastX)EndIfElse'模拟IfSx<=LastXOrEy<=LastYThenExitSubMe.ClsIf(Ey-LastY)<=(Sx-LastY)ThenMe.Circle((Sx-LastX)/2+LastX,(Ey-LastY)/2+LastY),(Sx-LastX)/2,,,,(Ey-LastY)/(Sx-LastX)ElseMe.Circle((Sx-LastX)/2+LastX,(Ey-LastY)/2+LastY),(Ey-LastY)/2,,,,(Ey-LastY)/(Sx-LastX)EndIfEndIfEndSub