aprendo
03 de Junio del 2006

Hola nuevamente necesitaria ayuda sobre como hacer para crear un boton y cargarlo en tiempo de ejecucion gracias

LLE
03 de Junio del 2006

con la función load. tenes que crearte por lo menos un command con el index en 0 en tiempo de diseño.

Private Sub Form_Load()

Load Command1(1)
Command1(1).Caption = "nuevo boton"
Command1(1).Move 0, 0
Command1(1).Visible = True

End Sub

para descargarlo es con unload

Tambien hay otra forma y es con la coleccion add del objeto controls.

www.recursosvisualbasic.com.ar

RAFA
03 de Junio del 2006

oe causa te doy estoy, lo uso, para enumerar las tablas de una bd

Private Function Nuevo(ByVal NombreTabla As String)
On Error GoTo Errora
Static s, g As Long
Dim d As Integer
Dim r As String
Set RecoX3 = New ADODB.Recordset
With RecoX3
r = "Select * from " & "[" & NombreTabla & "]" & ""
.Open r, ConeX3, adOpenDynamic, adLockOptimistic
For d = 0 To .Fields.Count - 1
s = s + 1
g = g + 340
'cargamos
Load Mi(s) '"MI" sería el control text(0) primero con con indice 0 ,Mi(0)

Load Lb(s) Lb '"LB" sería el nombre de la etiqueta del primer array con indice 0
Mi(s).Top = Mi(s).Top + g
Lb(s).Top = Lb(s).Top + g
Mi(s).Visible = True
Lb(s).Visible = True
Lb(s).Caption = .Fields(d).Name
Set Mi(s).DataSource = RecoX3
Mi(s).DataField = .Fields(d).Name
Next
s = 0

End With
RecoX3.AddNew
Errora:
If Err.Number Then
MsgBox Err.Description, vbCritical, "Error"
End If
End Function





'*************************************************************

'pa que
sub command1_click()
Static s, g As Long

s = s + 1
g = g + 340
'cargamos
Load Mi(s) '"MI" sería el control text(0) primero con con indice 0 ,Mi(0)

' Load Lb(s) Lb '"LB" sería el nombre de la 'etiqueta del primer array con indice 0
Mi(s).Top = Mi(s).Top + g
' Lb(s).Top = Lb(s).Top + g
Mi(s).Visible = True
' Lb(s).Visible = True
end sub

'nota, para esto debes de tener en tiempo de diseño un array de control con indice 0....suerte