Circulo con el Mouse
Publicado por Ronaldo Bonilla (2 intervenciones) el 23/05/2015 05:18:57
Buenas noches, es mi primera ves en un foro, y lo hago porque ya no se como hacer, soy novato en visual basic,,, mi problema es que tengo que hacer un codigo que mediante el mouse pueda realizar un circulo, al darle clic el guarda las coordenadas y arma el circulo....este es el codigo que me envio un compañero pero dice que no le corre, a mi tampoco, me dijo que solo colocara un form y el codigo... mas nada...digan que opinan......
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Option Explicit
Private flag As Boolean
'Variables
Dim x1 As Single, y1 As Single, x2 As Single, y2 As Single
'Dibuja el circulo en el formulario
Private Sub Dibujar_Circulo()
Dim cx As Single, cy As Single, dx As Single
Dim dy As Single, Radio As Single cx = x1 cy = y1dx = x1 - x2
dy = y1 - y2
' calcula el radio
Radio = Sqr(dx * dx + dy * dy)
'Dibuja el círculo
Circle (cx, cy), Radio
End Sub
Private Sub Form_Load()
Me.Caption = " Ejemplo para Dibujar circulos con el mouse "
Me.DrawWidth = 3
Me.BackColor = vbBlack
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
flag = True DrawMode = vbInvertx1 = X: y1 = Y
x2 = X: y2 = Y
Call Dibujar_Circulo
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Not flag Then
Exit Sub
End If
Call Dibujar_Circulo
'Almacena las coordenadas del mouse
x2 = X: y2 = Y
Call Dibujar_Circulo
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
' Flag e false para que al mover el mouse ( MouseMove) no dibuje
flag = False 'Dibuja
Call Dibujar_Circulo
'Almacena las coordenadas del mouse
x2 = X: y2 = Y
Call Dibujar_Circulo
End Sub
Valora esta pregunta
0
.. gracias por responder