27/09/2006, 07:42
|
| | | Fecha de Ingreso: septiembre-2006
Mensajes: 4
Antigüedad: 18 años, 7 meses Puntos: 0 | |
| con esta rutina puedes dibujar lineas en las coordenadas x y
este ejemplo esta diseñado para un formulario se puede adaptar a un picture box
Este ejemplo utiliza el método Line para dibujar cuadros concéntricos en un formulario. Para probar el ejemplo, pegue el código en la sección General de un formulario. Después, presione F5 y haga clic en el formulario.
Sub Form_Click ()
Dim CX, CY, F, F1, F2, I ' Declara variables
ScaleMode = 3 ' Establece ScaleMode a píxeles.
CX = ScaleWidth / 2 ' Obtiene el centro horizontal.
CY = ScaleHeight / 2 ' Obtiene el centro vertical.
DrawWidth = 8 ' Establece DrawWidth.
For I = 50 To 0 Step -2
F = I / 50 ' Realiza cálculos
F1 = 1 - F: F2 = 1 + F ' intermedios.
Forecolor = QBColor(I Mod 15) ' Establece el color de primer plano.
Line (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF
Next I
DoEvents ' Otros procesos.
If CY > CX Then ' Establece DrawWidth.
DrawWidth = ScaleWidth / 25
Else
DrawWidth = ScaleHeight / 25
End If
For I = 0 To 50 Step 2 ' Establece el bucle.
F = I / 50 ' Realiza cálculos
F1 = 1 - F: F2 = 1 + F ' internos.
Line (CX * F1, CY)-(CX, CY * F1) ' Dibuja en la esquina superior izquierda.
Line -(CX * F2, CY) ' Dibuja en la esquina superior derecha.
Line -(CX, CY * F2) ' Dibuja en la esquina inferior derecha.
Line -(CX * F1, CY) ' Dibuja en la esquina inferior izquierda.
Forecolor = QBColor(I Mod 15) ' Cambia de color cada vez.
Next I
DoEvents ' Otros procesos.
End Sub |