Programación General > Visual Basic 6.0 e inferiores

 Re: Borrar Matriz De Controles

(1/1)

az8:
hola amigos.. estoy manejando matrices de 2 controles label y textbox, las dibujo con el siguiente codigo y todo supero bien .... les presento el codigo:
Dim materia, idmateria
    Dim a
    Dim i As Long
    SqlnumMat = "SELECT count(*)as NumMat FROM Materias where IdGpo='" & IdGpo & "'"
    Call OnRs(rsnumMat, SqlnumMat)
        numMate = rsnumMat.Fields("NumMat")
        'MsgBox numMate
       
    SqlMat = "SELECT * FROM Materias where IdGpo='" & IdGpo & "'"
    Call OnRs(rsMat, SqlMat)
    Do While Not rsMat.EOF
        materia = rsMat.Fields("NombreMat")
        idmateria = rsMat.Fields("IdMateria")
            i = Label2.Count
            Load Label2(i)
            With Label2(i)
                .Top = Label2(i - 1).Top + 390
                .Caption = materia
                .Visible = True
            End With
           i = Label4.Count
            Load Label4(i)
            With Label4(i)
                .Top = Label4(i - 1).Top + 390
                .Caption = idmateria
                .Visible = True
            End With
         
   
        i = txtCali.Count
        Load txtCali(i)
        With txtCali(i)
            .Top = txtCali(i - 1).Top + 390
            .Visible = True
        End With
       
    rsMat.MoveNext
    Loop


lo ke kiero es ke con un boton me borre todo la matriz de controles ke se creo y comenzar una nueva....

espero me ayuden
gracias

F_Tanori:
Hola recuerda colocar tu codigo entre las etiquetas [ CODE] [/ CODE] para que sea mas entendible

para "borrar" los controles del arreglo es necesario que se haya creado en tiempo de ejecucion y los puedes "borrar" de esta manera....


--- Código: Text ---Private Sub Command2_Click()    For c = 1 To Label2.Count - 1        Unload Label2(c)    Next c    Label2(0).Visible = FalseEnd Sub 
como veras el control en la posicion (0) no puede ser borraro pues debio haber sido creado en diseño ademas de que es el que sirve de modelo

Espero te sirva

Saludos

az8:
Muchisimas graacias F_Tanori en realidad me has sacado de un hoyo.. te lo agradezco....

me funciono perfectamente

Navegación

[0] Índice de Mensajes