Esto lo ponen en un modulo de clase, no esta muy bien hecho pero puede ir agregandole propiedades segun necesiten,o agregar otro tipo de botones solo chequen el nombre del boton ok?


Option Explicit
Dim WithEvents Boton As CommandButton
Dim WithEvents Caja As TextBox


Enum Tipo
Boton_de_Comando = 0
Caja_de_Texto = 1
End Enum


Public Sub crear_Objeto(Formulario As Form, Objeto As Tipo, Nombre As String, Optional posTop As Long = 0, Optional posLeft As Long = 0, Optional Texto As String = "", Optional Ver As Boolean = True)
On Error GoTo eti
Select Case Objeto
Case 0
Set Boton = Formulario.Controls.Add("VB.CommandButton", Nombre)
Boton.Caption = Texto
Boton.Top = posTop
Boton.Left = posLeft
Boton.Visible = Ver
Case 1
Set Caja = Formulario.Controls.Add("VB.TextBox", Nombre)
Caja.Text = Texto
Caja.Top = posTop
Caja.Left = posLeft
Caja.Visible = Ver
End Select
Exit Sub
eti:
MsgBox Err.Description
Err.Clear
End Sub


Y asi lo mandas llamar


Dimvar As New clsBotones 'clsbotones = nombre que le pusiste al modulo de clase


'y asi lo llamas desde un sub


Private Sub Form_Load()
var.crear_Objeto Form1, Boton_de_Comando, "Boton1", 0, 0, "Hola"
var.crear_Objeto Form1, Caja_de_Texto, "Caja1", 1000, 1000, "Hola"
End Sub


ojala y les sirva, dudas comentarios, quejas postea!Edited by: Zitro

Hola.


Antes de nada, darte las gracias por el codigo.


Sabrias como crear formularios por codigo ? Es decir; tenemos un formulario en el que introducimos los campos (nombre , longitud etc ...) que queremos en nuestor nuevo formulario y al darle a un botón, que se genere un formulario con todos los campos en una determinada posicion y que se guarde ese formulario en una ruta especifica ??


Muchas gracias


Un saludo

Es exactamente lo mismopero para checar que esto es cierto, lo mas facil a mi parecer, es darle click con el boton derecho a los archivos *.frm, y ahi le das en abrir con... y lo abres con NotePad, ahite van a aparecer como se llaman las clases, en este caso VB.Form de ahi checas como se crean y tienes la respuesta, de todos modos si tienes dudas , deja un post y tratare de ayudarte Edited by: Zitro