|
'Hola, agrega un picturebox y un commandbutton.
Private Const Pi As Double = 3.14159265
Private Sub Command1_Click()
Dim RadInicial As Double
Dim RadFin As Double
Dim Angulo As Double
Dim X As Double
Dim Y As Double
Dim R As Double
R = 500
X = 1500
Y = 800
Picture1.Cls
RadInicial = 0 * (Pi / 180)
RadFin = 180 * (Pi / 180)
'Si lo quieres imprimir
'Printer.Circle (X, Y), R, vbBlue, RadInicial, RadFin
'Printer.EndDoc
Picture1.Circle (X, Y), R, vbBlue, RadInicial, RadFin
Picture1.Line (X - R, Y)-(X + R, Y), vbBlue
End Sub
... donde:
-x,y es el centro de la circunferencia
-R es el radio
- RadInicial y RadFin es el angulo de la circunferencia que se desea mostrar, expresado en radianes. Es por esto que he puesto "0 * (Pi / 180)" lo que lógicamente es cero pero lo he hecho asi para que puedas cambiar el angulo a tu antojo...
saludos
|
