VB 6.0 Buenas ejecutar un formulario desde un textbox

[vicentecamesella]

Saludos tengo la siguiente duda se que se debe poder lo que pasa es que no se como a ver si alguien me echa una manito

Tengo en una base de datos almacenada todos los formularios que tiene mi sistema cargo el nombre del formulario en un textbox y al darle un boton quiero que me abra ese formulario en especifico no lo puedo realizar con case por que son casi 722 formularios quien me ayuda please

[JonathanB]

Saludos, ya tenia ratos de no realizar algo parecido, he creado un pequeño ejemplo de como puedes crear formularios por nombre.

Una pequeña gran observación es que los formularios se deben de mostrar modales, ya que cuando termines de usarlos se pueda limpiar la variable que utilizamos para albergar al formulario. De lo contrario se limpiara y luego cuando utilices el formulario VB creará otra variable por lo que no estarás haciendo un buen uso de la memoria.

Existe una manera de hacerlo sin formulario modal pero no me acuerdo

Código vb:

Private Sub cmdLaunch_Click()
    Dim frmX As Form
 
    'Manejo de errores
    On Error GoTo ErrorExit
    
    'Añadir un nuevo formulario
    Set frmX = Forms.Add(txtFormName.Text)
    'Modificarle algunos aspectos
    frmX.Caption = "Test"
    'Mostrarla Modal
    frmX.Show vbModal
    
    'Limpiar la variable
    Set frmX = Nothing
    Exit Sub
    
ErrorExit:
    If Err.Number = 424 Then
        MsgBox "El nombre del formulario no existe en el proyecto", _
               vbCritical + vbOKOnly, _
               "Error 424"
    Else
        MsgBox Err.Number & Err.Description
    End If
End Sub
 

Espero que te sea de utilidad

[vicentecamesella]

Excelente colega muchas gracias eso era lo que buscaba exactamente lo unico es que no me sirve modal por que lo uso es mdichild pero eso no me afecta en mucho