|
朋友，你试试下面代码需要控件：command1Private Sub Command1_Click()Pi = 3.14159265358979Call frmRefreshMe.Circle (Me.Width / 2, Me.Height / 2), 1000, vbRed, 90 / 180 * Pi, 180 / 180 * PiEnd Sub'画坐标系Sub frmRefresh()Me.ClsMe.Line (0, Me.Height / 2)-(Me.Width, Me.Height / 2)Me.Line (Me.Width / 2, 0)-(Me.Width / 2, Me.He... |
