Sección de códigos , trucos y ejemplos para visual basic

31 - Dibujar en un formulario un rectángulo y un texto dentro con los métodos gráficos del vb

Contenido

Ejemplo 1
Ejemplo 2
Enlaces relacionados

Ejemplo 1

Este es un ejemplo muy simple de los métodos gráficos de visual basic

Lo que hace , es mediante los Métodos gráficos de Visual basic que poseen los Formularios y los PictureBox, se dibuja un cuadrado y un texto dentro del mismo

Nota: La propiedad Autoredraw debe estar en True para poder dibujar en el Form o PictureBox y que al minimizar o repintar la ventana el dibujo no se pierda.

Otra cosa a tener en cuenta es que para trabajar mas cómodos con el tema de las escalas, es utilizar el modo de escala en pixeles, indicándole al PictureBox o Form mediante la constante VbPixels de la propiedad ScaleMode, en este caso el ScaleMode del formulario

dibujando en visual basic - simple ejemplo que utiliza algunas funciones propiedades y métodos gráficos

Colocar un Commandbutton

Código en un formulario:

Private Sub Command1_Click() Randomize Dim Color_Borde As Long With Me ' borra todo Me.Cls .AutoRedraw = True ' Escala del form en pixeles para que sea mas cómodo trabajar .ScaleMode = vbPixels .DrawWidth = CInt(Rnd * 20) + 1 'grosor de la linea ' color aleatorio para el rectángulo Color_Borde = RGB(Rnd * 255, Rnd * 255, Rnd * 255) 'Parametros '(X1 , y1) (X2 , Y2) 'B indica que se va a dibujar un recuadro o rectángulo sin relleno. Me.Line (50, 50)-(200, 200), Color_Borde, B 'Establece las cordenadas donde dibujar el texto .CurrentX = 80 .CurrentY = 110 ' color aleatorio para el texto Me.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) ' imprime el texto Me.Print "Hola mundo " End With End Sub Private Sub Form_Load() With Me ' Aplicamos algunas propiedades al formulario .FontSize = 12 .FontBold = True .AutoRedraw = True End With End Sub

Ejemplo 2

Este otro ejemplo, dibuja el rectángulo, con el ancho igual al que tenga el formulario, y lo mismo para el alto, usando ScaleWidth y ScaleHeight respectivamente, en el método Line.

El trexto lo centra en el formulario, utilizando las propiedades TextWidth y TextHeight para obtener el ancho y alto del texto, y de esta manera poder centrarlo en la ventana

formulario con el cuadrado y el texto dibujado

Nota: Redimensionar la ventana para ver dibujado el rectángulo con las dimensiones del form

Const TEXTO As String = "Hola mundo" Private Sub Form_Load() With Me ' Aplicamos algunas propiedades al formulario .FontSize = 12 .FontBold = True .AutoRedraw = True .ScaleMode = vbPixels End With End Sub Private Sub Form_Resize() Randomize Dim Color_Borde As Long With Me ' borra todo Me.Cls ' grosor aleatorio del borde .DrawWidth = CInt(Rnd * 50) + 5 ' color aleatorio para el rectángulo Color_Borde = RGB(Rnd * 255, Rnd * 255, Rnd * 255) ' Dibuja el rectángulo Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), Color_Borde, B 'Establece las coordenadas donde dibujar el texto .CurrentX = (Me.ScaleWidth - Me.TextWidth(TEXTO)) / 2 .CurrentY = (Me.ScaleHeight - Me.TextHeight(TEXTO)) / 2 ' imprime Me.Print TEXTO End With End Sub

Recursos visual basic 6.0 - Enlaces relacionados

Recursos visual basic.NET - relacionados

Dibujar líneas en vb.net mediante el método DrawLine

Buscar en Recursos vb