Imprimir Página - crear figuras en VB

Cita de: Mr pom0 en 26 Febrero 2008, 17:58 pm

Alguna persona sabe como puedo crear un shape con lineas de codigo ????

Seria crearlas en tiempo de ejecución...

Código:

Option Explicit

Dim WithEvents Shape1 As Shape

Private Sub Form_Load()
    'Crea un nuevo Shape en tiempo de ejecución...
    
    'Agregando el control
    Set Shape1 = Form1.Controls.Add("VB.Shape", "Shape1")
     
    Shape1.Visible = True
    
    'ancho del borde del shape
    Shape1.BorderWidth = 5
          
    'color del borde
    Shape1.BorderColor = &HC0FFC0

    'Posiciona el Shape en la ubicación del TextBox
    Shape1.Move 1440, 1200, 1215, 855
    
    'Forma del shape
    Shape1.Shape = 3 'Circulo
End Sub

¡S4lu2!

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Mr pom0 en 26 Febrero 2008, 17:58 pm