Visual Basic 6 ( VB6 ) pode ser usado para desenvolver as mais diversas aplicações para plataformas de computação baseados no Microsoft Windows . Criando um novo formulário para o usuário do aplicativo no momento em que a aplicação começa a correr , ou " tempo de execução ", é um bom exercício prático para programadores VB6 iniciantes que precisam aprender a apresentar os seus usuários com opções de aplicação no momento em que o aplicativo será iniciado no área de trabalho do usuário. Instruções
1

Criar uma lista de variáveis ​​globais para a lista a seguir, por exemplo :

Option Explicit

Privada allowNumericOnly As Boolean

frm privada As Form

privada lblDisplay Como Button

WithEvents privados cmdOK Como CommandButton

privada WithEvents cmdCancel Como CommandButton

privada WithEvents textInput Como TextBox
Página 2

Criar um procedimento para a forma que vai determinar a forma como o formulário é exibido para o usuário e que , se houver texto e legendas aparecerão. Use o seguinte exemplo de código para definir isso para o formulário :

Sub GenerateRuntimeForm Privado ( )

Dim ctrl As Control

Set frm = Novo Formulário 1

Set cmdOK = Nothing

Definir cmdCancel = Nothing

Definir textInput = Nothing

Definir lblDisplay = Nothing

For Each ctrl In frm < br >

ctrl.Visible = False

Próxima
3

Defina os diferentes comandos para os botões , usando o seguinte código como base para o seu projeto : < br > Definir

cmdOK =

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

Set cmdCancel =

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

Set txtInput =

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

Preencha o código do formulário , adicionando as seguintes condições de exibição e acabar com a sub-rotina com " End Sub " da seguinte forma :

cmdOK.Visible = True

cmdCancel.Visible = True

lblDisplay.Visible = True

txtIput.Visible = True

form.sow vbModal

End Sub