hola no se si alguien tiene el codigo de como dibujar un octagono con el mouse ah la justas llego ah pentagono
???? si te explicaras un poco mejor posiblemente alguien te de una respuesta.
OT: yo siempre quise dibujar un circulo con una taza pero lo unico que consegui fue una Q :(
Me imagino que lo que quieres es que al mantener pulsado y mover el mouse se cree un octogono del tamaño correspondiente...
Talvez si nos pones tu codigo del pentagono le añadimos los 3 lados que faltan :laugh:
Cita de: cobein en 5 Agosto 2009, 03:34 AM
OT: yo siempre quise dibujar un circulo con una taza pero lo unico que consegui fue una Q :(
jajaja :laugh: No lo habia pillado, pero al final si :xD
Cita de: cobein en 5 Agosto 2009, 03:34 AM
OT: yo siempre quise dibujar un circulo con una taza pero lo unico que consegui fue una Q :(
Rompele la manija Cobein :xD
Hola, proba algo asi:
Option Explicit
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Private Sub Form_Load()
Me.ScaleMode = 3
Me.Height = 5000
Me.Width = 5000
Dim Octogono(1 To 8) As POINTAPI, i As Long
Dim X As Integer, Y As Integer
X = 0.05 * Me.ScaleWidth
Y = 0.05 * Me.ScaleHeight
Octogono(1).X = X
Octogono(1).Y = 0.3 * Me.ScaleHeight
Octogono(2).X = 0.3 * Me.ScaleWidth
Octogono(2).Y = Y
Octogono(3).X = 0.7 * Me.ScaleWidth
Octogono(3).Y = Octogono(2).Y
Octogono(4).X = Me.ScaleWidth - X
Octogono(4).Y = Octogono(1).Y
Octogono(5).X = Octogono(4).X
Octogono(5).Y = 0.7 * Me.ScaleHeight
Octogono(6).X = Octogono(3).X
Octogono(6).Y = Me.ScaleHeight - Y
Octogono(7).X = Octogono(2).X
Octogono(7).Y = Octogono(6).Y
Octogono(8).X = Octogono(1).X
Octogono(8).Y = Octogono(5).Y
i = Polygon(Me.hdc, Octogono(1), 8)
End Sub
saludos.