Cómo crear un formulario en tiempo de ejecución de Visual Basic 6

Visual Basic 6 ( VB6 ) se puede utilizar para desarrollar diferentes aplicaciones para plataformas basadas en Microsoft Windows . Crear un nuevo formulario para el usuario de la aplicación en el momento en que la aplicación comienza a funcionar, o " tiempo de ejecución ", es un ejercicio de buenas prácticas para los programadores VB6 principiantes que necesitan aprender a presentar sus usuarios con posibilidades de aplicación en el momento de la aplicación se inicia en el escritorio del usuario . Instrucciones
1

Crear una lista de variables globales de la lista a seguir , por ejemplo :

Option Explicit Private

allowNumericOnly As Boolean

frm privado como formulario

lblDisplay privado como botón

Private WithEvents cmdOK Como CommandButton

Private WithEvents cmdCancel Como CommandButton

Private WithEvents textInput Como
TextBox Página 2

Crear un procedimiento para la forma que va a determinar cómo la forma se muestra al usuario y lo que , si van a aparecer el texto y los títulos. Utilice el siguiente ejemplo de código para configurar esto para el formulario : Private Sub

GenerateRuntimeForm ()

Dim ctrl As Control

Set frm = New Form 1

cmdOK Set = Nothing

cmdCancel Set = Nothing

textInput Set = Nothing

lblDisplay Set = Nothing

For Each ctrl En frm

ctrl.Visible = False

Siguiente
3

Establecer los diferentes comandos de los botones , usando el siguiente código como base para su proyecto:

Set cmdOK =

frm.Controls.Add ( " VB.CommandButton ", " cmdOK " )

Set cmdCancel =

frm.Controls.Add ( " VB.CommandButton ", " cmdCancel " )

Set txtInput =

frm.Controls.Add ( " VB.TextBox ", " txtInput ")
4

Completar el código de formulario mediante la adición de las siguientes condiciones de exposición y termina la subrutina con "End Sub " de la siguiente manera :

cmdOK.Visible = True

cmdCancel.Visible = True
< p > lblDisplay.Visible = True

txtIput.Visible = True

form.sow vbModal

End Sub