como dibujar un octagono con el mouse

Iniciado por Choclito, 1 Agosto 2009, 03:49 AM

0 Miembros y 2 Visitantes están viendo este tema.

Choclito

hola no se si alguien tiene el codigo de como dibujar un octagono con el mouse ah la justas llego ah pentagono

cobein

???? 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 :(
http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.

Karcrack

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

Dessa

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
Adrian Desanti

seba123neo

Hola, proba algo asi:

Código (vb) [Seleccionar]
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.

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson