1 / 18

METODOS GRAFICOS

METODOS GRAFICOS. METODOS LINE. Con este método podemos dibujar Líneas y rectángulos en un objeto donde se permita utilizar dicho método, como por ejemplo en los Formularios, los controles PictureBox, el objeto Printer. Los parámetros de Line son:

kanan
Download Presentation

METODOS GRAFICOS

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. METODOS GRAFICOS

  2. METODOS LINE • Con este método podemos dibujar Líneas y rectángulos en un objeto donde se permita utilizar dicho método, como por ejemplo en los Formularios, los controles PictureBox, el objeto Printer. • Los parámetros de Line son: • El_Objeto.Line (X1, Y1) - ( X2, Y2), El Color, BF • Donde El Objeto es donde vamos a dibujar. • Los primeros dos parámetros son las coordenadas para X e Y, luego el color de la línea y por último el parámetro BF al igual que el color, es un parámetro de tipo opcional, y aquí podemos pasar como valor: B o BF o ningún valor • Si pasamos B, se dibujará un rectángulo sin relleno. Si pasamos BF el rectángulo tendrá de relleno el color especificado en el parámetro Color. Si no pasamos nada se dibuja una línea • Ejemplos: • Lo siguiente dibuja una línea de color Azul en el formulario: • Me.ScaleMode = vbPixelsMe.Line (10, 10)-(100, 100), vbBlue

  3. IMAGEN LINE

  4. PROPIEDAD CURRENTX Y CURTRENT Y • CurrentX devuelve o establece las coordenadas horizontales para el siguiente método de dibujo. CurrentY devuelve o establece las coordenadas verticales para el siguiente método de dibujo, en este caso para el método Line. • Lo siguiente, dibuja al presionar un Command1, un rectángulo de 25 pixeles de ancho por 50 pixeles de alto. Y la posición izquierda y la posición superior (x1 e y1), es decir el CurrentX y el CurrentY, se puede ver como no cambian su valor, y se mantienen igual. Es decir, la primera ves que se presiona para dibujar el primer rectángulo, Currentx y Currenty valen 0. Luego la segunda ves, Currentx tiene el valor 25 y Currenty el valor 50. si se sigue presionando el Command1, mientras no se cambie explícitamente el valor , currentx y Currenty mantendrán dichos valores, x2 e y2.

  5. EJEMPLO • Prívate Sub Command1_Click() • Me.Line (CurrentX, 20)-Step(25, 50), vbRed, B • End Sub • Private Sub Form_Load() • Me.ScaleMode = vbPixels • End Sub 

  6. DIBUJAR CUADRICULA • Private Sub Command1_Click() Me.Line (CurrentX, 20)-Step(25, 50), vbRed, B End Sub Private Sub Form_Load() Me.ScaleMode = vbPixels End Sub 

  7. CUADRICULA

  8. Este ejemplo dibuja líneas una al lado de la otra, separadas por 20 pixeles, mediante un bucle y va incrementando el DrawWidth en 1 en cada pasada. El dibujo se realiza en un control PictureBox llamado Picture1 Propiedad DrawWidth

  9. El método Circle permite dibujar un círculo, una elipse o un arco sobre un objeto. EL_Objeto.Circle(Step As Integer, X As Single, Y As Single, Radius As Single, Color As Long, Start As Single, End As Método Circle

  10. RELLENAR LAS CIRCUNFERENCIAS • Para esto se utiliza las propiedades FillColor y FillStyle. FillColor es el color de relleno, para FillStyle ver las opciones de estilos para los rellenos: 0 - Sólido, 1 - transparente, 2 - Línea Horizontal, 3 - Línea Vertical etc.. • Un ejemplo: este es igual al anterior, pero rellena el círculo de un color aleatorio, siempre y cuando la propiedad FillStyle no sea transparente: • Colocar un Command1 y un Combo1 en el formulario:

  11. EJEMPLO Private Sub Combo1_Click() Me.FillStyle = Combo1.ListIndex End Sub Private Sub Command1_Click() Me.Cls End Sub Private Sub Form_Load() ScaleMode = vbPixels 'Grosor de la línea Me.DrawWidth = 2 'Opciones de estilo de relleno With Combo1 .AddItem " 0 - Solido " .AddItem " 1 - Transparente " .AddItem " 2 - Linea Horizontal " .AddItem " 3 - Linea Vertical " .AddItem " 4 - Diagonal Arriba " .AddItem " 5 - Diagonal Abajo " .AddItem " 6 - Cross " .AddItem " 7 - Diagonal Cross " End With

  12. Dibujar Elipses • Para dibujar Elipses se debe especificar en el parámetro Aspecto los siguientes valores. Por ejemplo si pasamos un 1, el círculo será una circunferencia perfecta, si pasamos 0.5 , el radio horizontal del mismo será el doble que el radio vertical, si pasamos un 2 lo contrario.

  13. EJEMPLO Private Sub Form_Load() ScaleMode = vbPixels 'Grosor de la lineaMe.DrawWidth = 2 For i = 0.1 To 2.1 Step 0.1 Combo1.AddItem i Next Combo1 = Combo1.List(0) End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Circle (X, Y), Int((50 - 10 + 1) * Rnd + 10), _ RGB(Int(255 * Rnd), Int(255 * Rnd), Int(255 * Rnd)), , , CSng(Combo1) End Sub 

  14. Método Point y método Pset : • El método Point lo que hace es devolver , como un número entero ( un Long ), el color RGB del punto que se le especifique, puede ser utilizado tanto en un Formulario como en un PictureBox. • El método Pset establece un color determinado para un punto de un objeto. • El siguiente ejemplo utiliza los dos métodos. • Cargar un gráfico en un Picture1 y también colocar un Picture2. Al hacer click en el Picture1, en el evento MouseDown, se obtendrá el color de ese pixel, y ese valor se le aplicará al BackColor del Picture2, como se ve en el gráfico, el punto verde es el establecido con el método Pset.

  15. EJEMPLO Private Sub Form_Load() 'Modo de escala en pixeles Picture2.ScaleMode = vbPixels Picture1.ScaleMode = vbPixels 'Grosor del punto Picture1.DrawWidth = 3 End Sub

  16. Función QBColor • Esta función devuelve el código de color RGB de un número de color especificado de una lista de colores estándar predefinidos • Es decir, esta función tiene como parámetro, un número entre el 0 y 15, es decir 16 valores posibles para retornar un color especifico. • El siguiente ejemplo, muestra el uso de esta función. Lo que hace es recorer en un bucle, desde el 0 hasta el 15, y le cambia el BackColor a un arreglo de controles Label. • Colocar una matriz de Label1. Label1 (0), Label1(1) .... hasta el Label1(15)

  17. E JEMPLO Private Sub Form_Load() Me.Caption = " Ejemlpo de la función QBColor" Dim i As Integer For i = 0 To 15 ‘ Asigna el color devuelto por la función QBColor _ al color de fondo del Label Label1(i).BackColor = QBColor(i) ' Asigna el caption Label1(i).Caption = " Valor de QBColor: >> " & i Next i End Sub

  18. FINIVÁN HUERTAS PAEZ.

More Related