Jugando a intentar encontrar propiedades como ScaleLeft, ScaleTop...
salio esto, que no tiene nada que ver, pero te fumas un peta y te pones a verlo y hipnotiza...
Private centrox As Integer = 50
Private centroy As Integer = 50
Private pasos As Integer = 25
Public Sub _new()
End
Public Sub Form_Open()
Dibuja
End
Public Sub Form_Resize()
drwPizarra.Clear
centrox = drwPizarra.Width / 2
centroy = drwPizarra.Height / 2
Dibuja
End
Public Sub Dibuja()
Dim radio As Integer
Draw.Begin(drwPizarra)
For radio = pasos To drwPizarra.Width Step pasos
Draw.Circle(centrox, centroy, radio)
Next
Draw.End
End
Private centroy As Integer = 50
Private pasos As Integer = 25
Public Sub _new()
End
Public Sub Form_Open()
Dibuja
End
Public Sub Form_Resize()
drwPizarra.Clear
centrox = drwPizarra.Width / 2
centroy = drwPizarra.Height / 2
Dibuja
End
Public Sub Dibuja()
Dim radio As Integer
Draw.Begin(drwPizarra)
For radio = pasos To drwPizarra.Width Step pasos
Draw.Circle(centrox, centroy, radio)
Next
Draw.End
End
El código. En otro mensaje os subo el de VB y los motivos de este ejemplo.Se viene la hora...
Saludos
ResizeYDibujo.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | ResizeYDibujo.tar.gz | |
Tamaño: | 5.43 KB | |
Descargado: | 31 veces |
ResizeYDibujo.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | ResizeYDibujo.tar.gz | |
Tamaño: | 5.43 KB | |
Descargado: | 31 veces |
ResizeYDibujo.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | ResizeYDibujo.tar.gz | |
Tamaño: | 5.43 KB | |
Descargado: | 31 veces |