Foro de elhacker.net

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:

jajaja :laugh: No lo habia pillado, pero al final si :xD

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.