Ver Mensaje Individual
  #6 (permalink)  
Antiguo 31/07/2008, 13:27
Avatar de moradazo
moradazo
 
Fecha de Ingreso: julio-2008
Ubicación: [email protected]
Mensajes: 355
Antigüedad: 16 años, 10 meses
Puntos: 2
Respuesta: Visual Basic 2005 - Botones y path por parámetro

Cita:
Iniciado por David el Grande Ver Mensaje
Creo que era algo así como esto para crear botones:
Código:
Dim Boton As New CommandButton
Ahora, para programarle eventos ya es otra historia.
Que tal David.

CommandButton creo que es una palabra reservada de VB 6, en el VB2005 no me funciona. He leido por ahi que se debe crear un vector para los botones que deseo agregar, incluso crear un arbol que si me suena logico para lo que necesito hacer.

Investigue este codigo para crear botones, pero parece que es de VB 6, yo nunca lo use por lo que los comandos al VB 2005 no los conozco.

Código:
Dim LS(6) As PowerPacks.LineShape

    Dim SC As New PowerPacks.ShapeContainer



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        For I As Integer = 0 To 6

            LS(I) = New PowerPacks.LineShape

            With LS(I)

                .X1 = 10 : .Y1 = 10 * I

                .X2 = 60 : .Y2 = .Y1

                SC.Shapes.Add(LS(I))

                AddHandler .Click, AddressOf LS_click

            End With

        Next

        Me.Controls.Add(SC)

    End Sub

Private Sub LS_click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        DirectCast(sender, PowerPacks.LineShape).Focus()

    End Sub
Todo lo que esta marcado en rojo es lo que el VB2005 no reconoce, les agradezco su colaboracion, gracias!