1
Visual Basic 6 / Re:Duda sobre Controles en tiempo de ejecucion
« en: Julio 17, 2012, 03:20:50 pm »
Eso es lo que necesitava esta perfecto lo adapte y tiene la apariencia deceada gracias tedevo una y hay tienes un punto mas Gracias!!!
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Private Sub Carga()
Set Recordset = dbcustomer.OpenRecordset("select nombre from agentes", dbOpenDynaset)
If Recordset.RecordCount > 0 Then
status = True
setenabled (True)
Recordset.MoveLast
Recordset.MoveFirst
boton(0).Caption = Recordset.Fields!nom
If Recordset.RecordCount > 1 Then
Recordset.MoveNext
Let ind = 1
Do Until Recordset.EOF
Load boton(ind)
boton(ind).Top = boton(0).Top + (ind * boton(0).Height)
boton(ind).Visible = True
boton(ind).Caption = Recordset.Fields!code
boton(ind).Picture = ImageList1.ListImages(1).Picture
boton.MoveNext
ind = ind + 1
Loop
End If
End If
End Sub