Vitor Byte

Aqui está o código que desenvolvi para sua dúvida. Não utilizo While o que julgo dificultar a necessidade final, utilizo o método goto, veja como ficou abaixo, tudo o que precisa é adicionar um form ao seu projeto e colar o código no evento load. Espero ter ajudado. (Não aconselho a utilização deste código em um programa para distribuição pois tal tipo de rotina faz com que o programa só possa prosseguir se o usuário responder todas as perguntas, não há portanto funcionalidade no botão cancelar). Private Sub Form_Load() Dim Pergunta1 As Integer Dim Pergunta2 As Integer Dim Pergunta3 As String Dim Titulo As String Dim Mensagem As String Dim ResultadoFinal As VbMsgBoxResult Dim Estilo As VbMsgBoxStyle Dim PerguntaFinal As String Inicio: 'este tipo de declaração gera uma linha de referencia que pode ser chamada atraves 'do metodo goto fazendo com que o aplicativo retorne à linha em questão Mensagem = "Informe sua idade ao sistema:" Titulo = "Qual a sua idade?" Repetir_Pergunta1: Pergunta1 = InputBox(Mensagem, Titulo) If Pergunta1 = Empty Then Mensagem = "Você ainda não informou sua idade." & _ vbNewLine & "Informe-a para prosseguir." GoTo Repetir_Pergunta1 Else Mensagem = "Informe seu peso ao sistema:" Titulo = "Qual o seu peso?" Repetir_Pergunta2: Pergunta2 = InputBox(Mensagem, Titulo) If Pergunta2 = Empty Then Mensagem = "Você ainda não informou seu peso." & _ vbNewLine & "Informe-o para prosseguir:" GoTo Repetir_Pergunta2 Else Mensagem = "Informe seu nome ao sistema:" Titulo = "Qual o seu nome?" Repetir_Pergunta3: Pergunta3 = InputBox(Mensagem, Titulo) If Pergunta3 = Empty Then Mensagem = "Você ainda não informou seu nome." & _ vbNewLine & "Informe-o para prosseguir:" GoTo Repetir_Pergunta3 Else PerguntaFinal = "Dados inseridos" & _ vbNewLine & "Idade: " & Pergunta1 & _ vbNewLine & "Peso: " & Pergunta2 & _ vbNewLine & "Nome: " & Pergunta3 & _ vbNewLine & vbNewLine & "Confirma os dados acima?" Estilo = vbYesNo + vbQuestion ResultadoFinal = MsgBox(PerguntaFinal, Estilo, "Confirmação dados") If ResultadoFinal = vbYes Then Form1.Show Else GoTo Inicio End If End If End If End If End Sub

Olá, postei um projeto no site com o seguinte nome "Form Splash com alternância de mensagens". Ele faz o que você utilizando um timer e um form splash próprio do Visual Basic 6 (existente dentre os modelos de formulários do programa). Vejo um problema na resposta postada acima, a utilização da função api Sleep faz com que o programa seja totalmente desabilitado, nada e alterado graficamente, porém se você tiver um botão cancelar, por exemplo, no seu formulário não conseguirá clicar nele. Como acabei de postar o projeto (veja pela hora desta postagem), pode ser que ele ainda não esteja disponível, provavelmente esperando moderação. Se tiver dificuldades para encontrar o projeto me avise postando que lhe envio por e-mail ou o posto em um servido on-line. Enfim, espero ter ajudado.

Olha já postei no site o aplicativo que fiz para capturar imagens da WebCam e salvá-las em disco. A descrição do aplicativo no site está "Capturador de imagens WebCam", talvez seja possível encontrá-lo também por "WebCam Picture Taker", nome original que dei ao programa. Como acabei de postar (veja pela hora desta postagem), pode ser que você não o encontre ainda pois deve estar aguardando moderação. Se você precisar mais urgente do aplicativo me diga que lhe envio por e-mail.

Codificarei sua dúvida e já posto.

Pela dúvida você me pareceu ser iniciante em programação. Eu o aconselho a utilizar, se for para Windows, a linguagem de programação Visual Basic tanto versão 6 quanto versões posteriores. Digo isso porque a linguagem Visual Basic é muito clara e limpa, possui uma enorma quantidade de exemplos na internet, ajuda extensa da Microsoft e não é nenhum bixo de sete cabeças como Java, por exemplo, ou C. Enfim se você já souber o mínimo que seja de lógica de programação basta utilizar uma apostila de VB e você com certeza fará um belo software de cadastro de clientes.

Super tranquilo de fazer, vou codificar sua dúvida e já posto.

Creio que entendi o que você quer, estou desenvolvendo um código de webcam para uma outra dúvida e assim que terminar vou desenvolver o código pra você e já posto.

Gostaria de ajudar mas não entendi direito o que você fazer. Você quer criar objetos em tempo de execução, ou seja inserir via código um objeto (form, label, etc.) no seu programa. Por exemplo, quer colocar um botão na janela do seu programa que ao ser clicado faz com que um form que não existia no projeto apareça? Se for isso me diz pois já tenho algo aqui.

Olá pessoal do Script Brasil. Estou, por via de abrangência de conhecimento, desenvolvendo uma aplicação instaladora no visual basic. O meu problema é criar a aplicação Visual Basic para instalar outra e não criar o instalador para a aplicação VB em sí. Vejam se entendem: Baixei um jogo que vem com todos os seus arquivos já extraídos, como se alguém tivesse ído na pasta arquivos de programas e copiado todos os arquivos do jogo. Então compactei os arquivos para rar para que coubessem em um dvd de 1,4GB (com isso acrescento o aprendizado do uso da ocx unrar para descompactar arquivos rar) . Então fui no Visual Basic e desenvolvi os forms para o usuário selecionar o caminho da instalação, imprimir capa do jogo, instalar tradução para o português (software independente), etc. mais ou menos como os geradores de setup como Inno fariam. Então foi aí que eu me deparei com uma situação estranha. Descompactei todos os arquivos para a pasta selecionada normalmente, a questão não é essa e sim a de que mesmo deixando chaves no registro sob "HKEY_CURRENT_USER\Software" (chaves deixadas: "HKEY_CURRENT_USER\Software\Tomb Raider Anniversary\", "Name","Tomb Raider Anniversary"; a outra chave: "HKEY_CURRENT_USER\Software\Tomb Raider Anniversary\", "InstallDir","C:\Program Files (x86)\EIDOS\Tomb Raider Anniversary") o jogo não é considerado como um aplicativo instalado. Não aparece dentre os aplicativos instalados no desinstalar programas do painél de controle e o pior, o instalador da tradução (tradução Game Vício) dá uma mensagem dizendo que o aplicativo não foi encontrado no registro, ou seja meu instalador não serve praticamente de nada pois o intuito principal era esse, que ao iniciar a instalação da tradução ela instalasse diretamente encontrando o jogo no registro. Enfim após toda essa explicação o que eu gostaria de saber é como fazer com que o jogo seja reconhecido no sistema como aplicativo instalado e consequentemente que aparaça no painél de controle para no clique em desinstalar abra o meu aplicativo que também fará todo o processo de desinstalação. Quer puder ajudar agradeço. Ao término do aplicativo farei uma postagem dele e então poderão aproveitar o código que tem: Descompactação de arquivos rar; Uso de registro; Funções que trabalham com strings; Funções de gerenciamento de arquivos (FSO); Utilização do BrowseForFolder (controle para procurar pastas); Utilização de diversas API's do Windows, etc. Sei que parece loucura o que estou tentando fazer, sei que seria mais fácil utilizar o Inno Setup, por exemplo, só que ele não me dá todas as opções de personalização quantas eu tenho no Visual Basic (por exemplo não tenho como inserir o botão para imprimir capa do jogo), esse é o motivo da criação deste programa.