Cómo dibujar una línea recta usando programación VB

Método de línea

Dibuja líneas y rectángulos sobre objetos.

Sintaxis

objeto.Línea [Paso] (x1, 1) [Paso] (x2, y2), [color], [B][F]

La sintaxis del método Línea tiene los siguientes calificadores de objeto y partes:

Descripción de la parte

objeto Opcional. Una expresión de objeto cuyo valor se "aplica" al objeto de la lista. Si se omite el objeto, la ventana enfocada se utiliza como objeto.

Paso Opcional. Palabra clave que especifica las coordenadas del punto inicial relativas a la posición de dibujo actual proporcionada por las propiedades CurrentX y CurrentY.

(x1, y1) Opcional. Único (número de punto flotante de precisión simple), la coordenada del punto inicial de la línea o rectángulo. La propiedad ScaleMode determina la unidad de medida utilizada. Si se omite, la línea comienza en la ubicación indicada por CurrentX y CurrentY.

Paso Opcional. Palabra clave que especifica las coordenadas del punto final en relación con el punto inicial de la línea.

(x2, y2) Requerido. Único (número de punto flotante de precisión simple), las coordenadas del punto final de la línea o rectángulo.

color opcional. Long (entero largo), el color RGB que se utilizará al dibujar líneas. Si se omite, se utiliza el valor de la propiedad ForeColor. Los colores se pueden especificar con la función RGB o la función QBColor.

B Opcional. Si se incluye, se dibuja un rectángulo usando coordenadas diagonales.

F Opcional. Si se utiliza la opción B, la opción F especifica que el rectángulo se rellenará con el color del borde del rectángulo. No puedes usar F en lugar de B. Si usa B en lugar de F, el rectángulo se rellena con el FillColor y el FillStyle actuales. El valor predeterminado para FillStyle es transparente.

Explicación

Al dibujar líneas de conexión, el punto final de la línea anterior es el punto inicial de la siguiente.

El ancho de la línea depende del valor de la propiedad DrawWidth. El método para dibujar líneas y rectángulos en el fondo depende de los valores de las propiedades DrawMode y DrawStyle.

Cuando se ejecuta el método Line, las propiedades CurrentX y CurrentY se establecen en los puntos finales mediante parámetros.

Este método no se puede utilizar con el bloque de instrucciones With...End With.

Ejemplo

Este ejemplo utiliza el método Línea para dibujar varios rectángulos concéntricos en el formulario. Para ejecutar este ejemplo, coloque este código en la sección General del formulario. Presione F5 y haga clic en el formulario.

Sub Form_Click()

Dim CX, CY, F, F1, F2, I ' Declara variables.

ScaleMode = 3 ' Establece ScaleMode en píxeles.

CX = Ancho de escala / 2' Punto medio horizontal.

CY = ScaleHeight / 2' Punto medio vertical.

DrawWidth = 8 ' Establece DrawWidth.

Para I = 50 A 0 Paso -2

F = I/50' Realiza pasos intermedios.

F1 = 1 - F: F2 = 1 F' cálculo.

Forecolor = QBColor(I Mod 15) 'Establece el color de primer plano.

Línea (CX * F1, CY * F1)-(CX * F2, CY * F2), , BF

Siguiente I

DoEvents ' Hacer otro tratar con.

Si CY gt; CX Entonces 'Establece DrawWidth.

DrawWidth = ScaleWidth / 25

Else

DrawWidth = ScaleHeight / 25

Fin si

Para I = 0 a 50 Paso 2 ' Configurar bucle.

F = I / 50 ' En medio de la ejecución.

F1 = 1 - F: F2 = 1 F' cálculo.

Línea (CX * F1, CY)-(CX, CY * F1) ' Dibuja la esquina superior izquierda.

Línea -(CX * F2, CY) ' Dibuja la esquina superior derecha.

Línea -(CX, CY * F2) ' Dibuja la esquina inferior derecha.

Línea -(CX * F1, CY) ' Dibuja la esquina inferior izquierda.

Forecolor = QBColor(I Mod 15) ' Cambia de color cada vez.

Siguiente I

DoEvents ' Realizar otro procesamiento.

Fin del subtítulo