This site uses cookies own and third. If you continue to browse consider to accept the use of cookies. OK More Info.

Como crear controles en tiempo de ejecuacion

  • 0 Replies
  • 2307 Views

0 Members and 1 Guest are viewing this topic.

Online ANTRAX

  • *
  • Administrator
  • Posts: 5854
  • Actividad:
    80%
  • Country: ar
  • Reputación 43
  • ANTRAX
  • Twitter: @Underc0de
    • View Profile
    • Underc0de
    • Email

Como crear controles en tiempo de ejecuacion

  • on: July 26, 2010, 01:21:37 pm
'Ejemplo de creación de controles en tiempo de ejecución

'Llevará la cuenta de los controles creados

Code: (vb) You are not allowed to view links. Register or Login
Option Explicit
Private numControles As Long
Private Sub cmdCrear_Click()
    'Crear un nuevo control de cada tipo'numControles está declarada a nivel de módulo
    numControles = numControles + 1
    'Crear los controles
    Load Label1(numControles)
    Load Text1(numControles)

    'Posicionarlos y hacerlos visibles
    With Label1(numControles)
        .Visible = True
        .Top = Label1(numControles - 1).Top + .Height + 120
        .Caption = "Label1(" & numControles & ")"
    End With
    With Text1(numControles)
        .Visible = True
        .Top = Text1(numControles - 1).Top + .Height + 60
        .Text = "Text1(" & numControles & ")"
    End With
End Sub

'Eliminar un elemento de cada control anteriormente creado'El control

Code: (vb) You are not allowed to view links. Register or Login
Private Sub cmdEliminar_Click()
    CERO no se puede eliminar
    If numControles > 0 Then
        'Descargarlos de la memoria
        Unload Label1(numControles)
        Unload Text1(numControles)
        numControles = numControles - 1
    End If
End Sub
« Last Edit: May 12, 2014, 03:17:15 pm by Expermicid »