vb画圆问题！

来源：百度知道 编辑：UC知道 时间：2024/05/29 22:47:15
1.鼠标移动到窗体任一个位置时，当按下鼠标左键，以鼠标光标但前点为圆心，圆的半径未纵坐标的0.5倍画圆。
2.在窗体右下角标出当前圆的圆心。

小弟初学vb，求高手教路！写出完整的编程，谢谢！

'先在窗体右下角画一个label控件 名为label1 用以显示圆心及半径
Private Sub Form_Load()
AutoRedraw = True
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Circle (X, Y), Y * 0.5
Label1.Caption = "x=" & X & " y=" & Y & " R=" & Y * 0.5
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cls
Circle (X, Y), 0.5 * Y
CurrentX = Me.Width * 0.75: CurrentY = Me.Height * 0.1
Print "(" & Int(X); "," & Int(0.5 * Y) & ")"
End Sub

Private Sub Form_Resize()
Scale (0, Me.Height)-(Me.Width, 0)
End Sub

不止画圆，我给你画直线，矩形，圆的代码，很久前做的，command1为画直线，comman2为画矩形，command3为画圆

Dim x1 As Integer
Dim y1 As Integer
Dim k As Integer

Private Sub Command1_Click()
k = 1
End Sub

Private Sub Command2_Click()
k = 2
End Sub