在窗體上 畫3個單項按鈕 一個命令按鈕 (單項按鈕為控制元件陣列)然後再窗體中新增程式碼Dim a As Single, b As SinglePrivate Sub Command1_Click() "清除按鈕ClsEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)a = Xb = YEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Option1(0).Value = True Then Me.Line (a, b)-(X, Y) "畫直線If Option1(1).Value = True Then Me.Line (a, b)-(X, Y), , B "畫矩形If Option1(2).Value = True Then Me.Circle (a, b), Sqr((X - a) ^ 2 + (Y - b) ^ 2) "畫圓End Sub不懂追問
在窗體上 畫3個單項按鈕 一個命令按鈕 (單項按鈕為控制元件陣列)然後再窗體中新增程式碼Dim a As Single, b As SinglePrivate Sub Command1_Click() "清除按鈕ClsEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)a = Xb = YEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Option1(0).Value = True Then Me.Line (a, b)-(X, Y) "畫直線If Option1(1).Value = True Then Me.Line (a, b)-(X, Y), , B "畫矩形If Option1(2).Value = True Then Me.Circle (a, b), Sqr((X - a) ^ 2 + (Y - b) ^ 2) "畫圓End Sub不懂追問