Conteúdo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Fundo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Desenho: Liso Onda Linha Retalho Madeira Rocha Couro Colméia Vertical Triângulo
Bem-vindo ao Fórum do BABOO!

Desde 2000 o Fórum do BABOO tem ajudado milhões de internautas de Windows a resolverem seus problemas e dúvidas, além de ajudar na remoção de vírus e malwares de seus computadores. Somos o único fórum brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows, então se você tem uma dúvida ou problema que nenhum outro fórum resolve, poste-a aqui pois o MVP Babooadora desafios!
  

O Fórum do BABOO também conta com a participação exclusiva do administrador da área de Segurança MVP Mr.Million que tem reconhecimento internacional da Microsoft pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Se o seu computador está infectado por algum vírus, ele te ajudará a removê-lo!
  

Nosso time de especialistas também inclui Patropi  Osvaldomp  Caze  Ciro-Mota  XERLOUCO ROUMS  Tatha que responderão suas dúvidas sobre diversos assuntos.
 

Participe da nossa comunidade! 

 

Entre para seguir isso  
Seguidores 0
pap.jau

Tutorial: Como fazer uma tela de apresentação em Visual Basic

7 posts neste tópico

Ola,

alguém de voces, ja devem ter percebido que em alguns programas (photoshop, Dreamwaver) antes de abrir totalmente o programa, eles abrem uma janela, indicando o que estão fazendo.

Este tutorial nao ensina a fazer um desse, mas sim a imitar um desse.

1. No form1 de as seguintes opções a ele:

. BorderStyle: 0-None

. StartUpPosition: Center Owner

2. O próximo passo é criar um ProgressBar, para quem nao sabe, progressbar é a barra de Copia de arquivos, aquela que vai se enchendo conforme a operação vai se finalizando, para isso voce terá que clicar em com o botão direito em uma das ferramentas da toolbar principal, e clicar em Components... uma nova janela se abrirá... Dentro dela, você verá várias checkbox's, procure uma chamada Microsoft Windows Common Controls 5.0ou 6.0. de OK.

3. Na ToolBar apareceram várias novas ferramentas. Clique na ferramenta ProgressBar(pbar.jpg), e insira um progressbar.

4. Depois de inserir a ProgressBar, redimensione-a de acordo com a sua vontade. Precisaremos criar outro Form, o Form2.

Para fazer a ProgressBar funcionar, teremos que inserir um Timer. insira um timer.

5. No timer1, insira o seguinte codigo:

Private Sub Timer1_Timer()

ProgressBar1.Value = val(ProgressBar1.value) + 1

If ProgressBar1.value = 100 Then

Form2.Show

Unload Me

End If

End Sub

5. Agora no Form1 escreva o seguinte codigo:

Private Sub Form1_Load()

Timer1.Interval = 10

Timer1.Enable = True

End Sub

6. Pronto, se voce visualizar o seu programa(F5), a apresentação ja está funcionando, mas ainda falta uma coisa: dizer(inventar) o que ele está fazendo. Para isso avançe para o próximo passo.

7. No Form1 crie 1 label, chamaremos-a de Label1. Posicione da maneira que quiser. Agora vá para o proximo passo.

8. No Timer1 o codigo estará assim:

Private Sub Timer1_Timer()

ProgressBar1.Value = val(ProgressBar1.value) + 1

If ProgressBar1.value = 100 Then

Form2.Show

Unload Me

Timer1.Enable = False

End If

End Sub

Edite-o para:

Private Sub Timer1_Timer()

ProgressBar1.Value = val(ProgressBar1.value) + 1

If ProgressBar1.Value = 4 Then

Label5.Caption = "comdlg.ocx"

End If

If ProgressBar1.Value = 8 Then

Label5.Caption = "win.com"

End If

If ProgressBar1.Value = 12 Then

Label5.Caption = "cd-rom.inf"

End If

If ProgressBar1.Value = 16 Then

Label5.Caption = "dosmode.inf"

End If

If ProgressBar1.Value = 20 Then

Label5.Caption = "powerprog.ocx"

End If

If ProgressBar1.Value = 24 Then

Label5.Caption = "hardwareinf.inf"

End If

If ProgressBar1.Value = 28 Then

Label5.Caption = "msdos.sys"

End If

If ProgressBar1.Value = 32 Then

Label5.Caption = "formatsize.ddl"

End If

If ProgressBar1.Value = 36 Then

Label5.Caption = "biosinf.com"

End If

If ProgressBar1.Value = 40 Then

Label5.Caption = "floppydisc.com"

End If

If ProgressBar1.Value = 44 Then

Label5.Caption = "watch.exe"

End If

If ProgressBar1.Value = 48 Then

Label5.Caption = "form1.frm"

End If

If ProgressBar1.Value = 52 Then

Label5.Caption = "system.dll"

End If

If ProgressBar1.Value = 56 Then

Label5.Caption = "format.sys"

End If

If ProgressBar1.Value = 60 Then

Label5.Caption = "icquin.jsp"

End If

If ProgressBar1.Value = 64 Then

Label5.Caption = "wpeace.now"

End If

If ProgressBar1.Value = 68 Then

Label5.Caption = "hudfastswitch.com"

End If

If ProgressBar1.Value = 72 Then

Label5.Caption = "visualbasic.exe"

End If

If ProgressBar1.Value = 76 Then

Label5.Caption = "cc.jpg"

End If

If ProgressBar1.Value = 80 Then

Label5.Caption = "gosseping.ing"

End If

If ProgressBar1.Value = 84 Then

Label5.Caption = "progressbar.ocx"

End If

If ProgressBar1.Value = 88 Then

Label5.Caption = "comdlg.ocx"

End If

If ProgressBar1.Value = 92 Then

Label5.Caption = "activex.dll"

End If

If ProgressBar1.Value = 96 Then

Label5.Caption = "pzise.jsp"

End If

If ProgressBar1.Value = 100 Then

Form3.Show

Unload Me

End If

End Sub

9. Pronto!!! edite o nome dos arquivos ou faça suas aperfeiçoes. O seu programa deverá ser feito no form2.

Valeu!!!2.gif


Pap.jau_

><b>

Compartilhar este post


Link para o post
Compartilhar em outros sites

ae so 1 coisa ao invez d utilizar 1 monte de If, Then, Else, você poderia utilizar a instrucao Select Case

Tipo assim

Select Case ProgressBar1.Value

Case 1

Label5.Caption="Abrindo Programa"

Case 5

Label5.caption="Carregando Arquivos"

End Select

Falow

4.gif2.gif


É impossível ser um bom programador sem ler bastante!

O programador mediano sabe uma coisa porque ele precisa saber. O bom programador sabe alguma coisa porque ele tem vontade de saber.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ola,

Valeu pela ajuda, eu nao conhecia esse comando12.gif ... começei a programar faz pouco tempo! mas como o codigo ja está pronto, um Ctrl+C, Ctrl+V nao custa nada!!! hehe...

valeu mesmo...16.gif


Pap.jau_

><b>

Compartilhar este post


Link para o post
Compartilhar em outros sites

O meu não deu certo.

Até o passo 6 eu fiz tudo certinho, mas não funcionou.

Ela fica só no form1 e não faz nada.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Não funciona esse tutorial...Eu fiz aqui em casa e não deu certo. Com certeza está cheio de erros.

Pap.jau, por favor, edite e arrume esse tópico de uma forma que funcione.7.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora
Esse tópico é útil para você?
Então compartilhe e ajude outros internautas!
Entre para seguir isso  
Seguidores 0

  • Vídeos do BABOO no YouTube

  • Posts

    • Saudações a todos os Participantes deste Fórum! Gostaria de comunicar que meu problema foi resolvido, após a substituição da minha placa de vídeo. Eu tinha uma NVIDIA GT 430 com 1 GB de RAM. Então, adquiri uma EVGA NVIDIA 1050 com 2 GB de RAM. Após a instalação e atualização da última versão do Driver de Vídeo, não ocorreram mais os fatídicos travamentos. Máquina funcionando novamente, inclusive com a versão Criadores do Windows 10. De qualquer forma, agradeço todos que me enviaram opções de solução. Sem mais. SMJRAAD
    • Bom dia, estou enfrentando um problema. Ao bloquear a planilha e deixar apenas algumas celulas, da um "Erro em tempo de execução 1004" e pede para depurar.   Tem como corrigir isso?
    • 1. Selecione as linhas abaixo em vermelho e copie-as (CTRL C) Selecione estas linhas abaixo, clique com o direito sobre a seleção e escolha a opção copiar:
      :OTL
      IE:64bit: - HKLM\SOFTWARE\Microsoft\Internet Explorer\Main,Default_Secondary_Page_URL = Reg Error: Value error.
      IE:64bit: - HKLM\SOFTWARE\Microsoft\Internet Explorer\Main,Secondary Start Pages = Reg Error: Value error.
      IE:64bit: - HKLM\SOFTWARE\Microsoft\Internet Explorer\Main,Start Page = about:blank
      IE:64bit: - HKLM\..\SearchScopes,DefaultScope = {0633EE93-D776-472f-A0FF-E1416B8B2E3A}
      IE:64bit: - HKLM\..\SearchScopes\{0633EE93-D776-472f-A0FF-E1416B8B2E3A}: "URL" = http://www.bing.com/search?q={searchTerms}&FORM=IE8SRC
      IE:64bit: - HKLM\..\SearchScopes\{7A8CCBA8-81A4-45F2-AC1D-0A701699C172}: "URL" = http://www.bing.com/search?q={searchTerms}&form=IE11TR&src=IE11TR&pc=DCJB
      IE:64bit: - HKLM\Software\Microsoft\Windows\CurrentVersion\Internet Settings: "ProxyEnable" = 0
      IE - HKLM\SOFTWARE\Microsoft\Internet Explorer\Main,Start Page = about:blank
      IE - HKLM\..\SearchScopes,DefaultScope = {0633EE93-D776-472f-A0FF-E1416B8B2E3A}
      IE - HKLM\..\SearchScopes\{0633EE93-D776-472f-A0FF-E1416B8B2E3A}: "URL" = http://www.bing.com/search?q={searchTerms}&FORM=IE8SRC
      IE - HKCU\SOFTWARE\Microsoft\Internet Explorer\Main,Start Page Redirect Cache = http://www.msn.com/pt-br/?pc=UE12&ocid=UE12DHP
      IE - HKCU\SOFTWARE\Microsoft\Internet Explorer\Main,Start Page Redirect Cache AcceptLangs = pt-BR
      IE - HKCU\SOFTWARE\Microsoft\Internet Explorer\Main,Start Page Redirect Cache_TIMESTAMP = 1F 6A 31 D9 F7 D0 D2 01  [binary data]
      IE - HKCU\SOFTWARE\Microsoft\Internet Explorer\Main,Start Page_TIMESTAMP = DC E9 2E 30 26 61 D2 01  [binary data]
      FF - prefs.js..extensions.enabledAddons: selenium_ide_buttons%40egarracingteam.com.ar:1.2.0.1-signed.1-signed
      FF - prefs.js..extensions.enabledAddons: favorites_selenium-ide%40Samit.Badle:2.0.1-signed.1-signed
      FF - prefs.js..extensions.enabledAddons: %7Ba6fd85ed-e919-4a43-a5af-8da18bda539f%7D:2.9.1.1-signed
      FF - prefs.js..extensions.enabledAddons: %7B972ce4c6-7e08-4474-a285-3208198ce6fd%7D:53.0.3
      FF - user.js - File not found
      FF - user.js - File not found
      FF:64bit: - HKLM\Software\MozillaPlugins\@adobe.com/FlashPlayer: C:\Windows\system32\Macromed\Flash\NPSWF64_25_0_0_171.dll File not found
      [2015/01/22 23:20:57 | 000,000,000 | ---D | M] (No name found) -- C:\Users\Kátia\AppData\Roaming\mozilla\Extensions
      [2017/05/05 12:28:23 | 000,000,000 | ---D | M] (No name found) -- C:\Users\Kátia\AppData\Roaming\mozilla\Firefox\Profiles\mqd9nfb4.default\extensions
      [2016/11/02 21:08:34 | 000,016,802 | ---- | M] () (No name found) -- C:\Users\Kátia\AppData\Roaming\mozilla\firefox\profiles\mqd9nfb4.default\extensions\favorites_selenium-ide@Samit.Badle.xpi
      [2016/11/02 20:02:13 | 000,026,059 | ---- | M] () (No name found) -- C:\Users\Kátia\AppData\Roaming\mozilla\firefox\profiles\mqd9nfb4.default\extensions\selenium_ide_buttons@egarracingteam.com.ar.xpi
      [2017/05/05 12:27:42 | 000,352,829 | ---- | M] () (No name found) -- C:\Users\Kátia\AppData\Roaming\mozilla\firefox\profiles\mqd9nfb4.default\extensions\sp@avast.com.xpi
      [2017/05/05 12:27:44 | 000,692,271 | ---- | M] () (No name found) -- C:\Users\Kátia\AppData\Roaming\mozilla\firefox\profiles\mqd9nfb4.default\extensions\wrc@avast.com.xpi
      [2016/11/02 21:13:22 | 000,815,598 | ---- | M] () (No name found) -- C:\Users\Kátia\AppData\Roaming\mozilla\firefox\profiles\mqd9nfb4.default\extensions\{a6fd85ed-e919-4a43-a5af-8da18bda539f}.xpi
      [2017/05/11 19:38:18 | 000,044,954 | ---- | M] () (No name found) -- C:\Users\Kátia\AppData\Roaming\mozilla\firefox\profiles\mqd9nfb4.default\features\{634fcc40-60e5-4818-a6e0-54f91d8f25e3}\shield-recipe-client@mozilla.org.xpi
      [2017/05/16 19:05:16 | 000,044,954 | ---- | M] () (No name found) -- C:\Users\Kátia\AppData\Roaming\mozilla\firefox\profiles\mqd9nfb4.default\features\{a4f54ac2-26c8-46cc-89d9-54c954d7694b}\shield-recipe-client@mozilla.org.xpi
      [2017/05/19 20:52:07 | 000,000,000 | ---D | M] (No name found) -- C:\Program Files (x86)\mozilla firefox\browser\extensions
      File not found (No name found) -- C:\USERS\KáTIA\APPDATA\ROAMING\MOZILLA\FIREFOX\PROFILES\MQD9NFB4.DEFAULT\EXTENSIONS\{A6FD85ED-E919-4A43-A5AF-8DA18BDA539F}.XPI
      File not found (No name found) -- C:\USERS\KáTIA\APPDATA\ROAMING\MOZILLA\FIREFOX\PROFILES\MQD9NFB4.DEFAULT\EXTENSIONS\FAVORITES_SELENIUM-IDE@SAMIT.BADLE.XPI
      File not found (No name found) -- C:\USERS\KáTIA\APPDATA\ROAMING\MOZILLA\FIREFOX\PROFILES\MQD9NFB4.DEFAULT\EXTENSIONS\SELENIUM_IDE_BUTTONS@EGARRACINGTEAM.COM.AR.XPI
      O4:64bit: - HKLM..\Run: [TrueColor UI] C:\Arquivos de Programas\TrueColor\TrueColorUI.exe (Entertainment Experience)
      O4 - HKLM..\Run: []  File not found
      O4 - HKCU..\Run: [uTorrent] C:\Users\Kátia\AppData\Roaming\uTorrent\uTorrent.exe (BitTorrent Inc.)
      O4 - Startup: C:\Users\Kátia\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\PdaNet Desktop.lnk = C:\Program Files (x86)\PdaNet for Android\PdaNetPC.exe ()
      O6 - HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer: NoActiveDesktopChanges = 1
      O6 - HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer: NoActiveDesktop = 1
      O6 - HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer: NoControlPanel = 0
      O6 - HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer: NoDriveTypeAutoRun = 28 :reg
      [-HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections]
      [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections]
      "DefaultConnectionSettings"=hex:3c,00,00,00,15,00,00,00,01,00,00,00,00,00,00,\
      00,00,00,00,00,00,00,00,00,01,00,00,00,00,00,00,00,50,b1,0a,41,70,27,c9,01,\
      01,00,00,00,c0,a8,83,41,00,00,00,00,00,00,00,00
      "SavedLegacySettings"=hex:3c,00,00,00,e6,01,00,00,01,00,00,00,00,00,00,00,00,\
      00,00,00,00,00,00,00,01,00,00,00,00,00,00,00,50,b1,0a,41,70,27,c9,01,01,00,\
      00,00,c0,a8,83,41,00,00,00,00,00,00,00,00 :Commands
      [createrestorepoint]
      [purity]
      [emptytemp] 2. Volte ao programa, clique com o botão direito do mouse dentro da área Exames Personalizados/Correções e escolha Colar 3. Feche todas as janelas e execute o OTL Usuários do Windows Vista, 7, 8 ou 8.1: clique com o botão direito do mouse no ícone do OTL.exe e selecione   4. Clique com o direito em qualquer parte branca, da sessão Exames Personalizados/Correções e escolha a opção colar   5. Agora clique em Consertar para o OTL iniciar a varredura do seu computador: O OTL executará o script e reinicializará o seu computador. Quando o Windows for carregado, o OTL será executado automaticamente. Permita a sua execução. 6. Uma janela abrirá contendo informações importantes. Copie todo o conteúdo desta janela (CTRL A seguido de CTRL C) e poste na sua próxima resposta (tecle CTRL V). Poste também um novo Log do Hijackthis e informe situação atual do Computador. OBSERVAÇÃO: este log fica armazenado na pasta C:\_OTL\MovedFiles com o nome no formato data_hora.log. Exemplo: 23042016_135657.log indica que ele foi criado em 23/04/2016 às 13h56min57s.
    • Boa tarde, pessoal. Fiz o download do Advanced SystemCare para testar durante o seu período de testes, pois muita gente diz que é uma ótima ferramenta para otimização. Mas acontece que ao usar vários programas de remoção de malware/vírus e outros, como o (JRT, AdwCleaner, etc), eles sempre acusam algo do Advanced SystemCare. É apenas conlito ou o programa não é muito bom? Obrigado.
    • Não estou conseguindo enviar o conteúdo do arquivo OTL.txt, sempre clico em responder, aparece salvando e aparece que esta sem conexão de internet e só abre alguns sites, o Google por exemplo , coloquei o anexo do OTL.txt logo abaixo. OTL.Txt
    • Uma ferramenta da própria Microsoft que já me ajudou muito foi a SoftwareRepairTool: https://www.microsoft.com/surface/en-us/support/warranty-service-and-recovery/software-repair-tool Link direto: http://aka.ms/softwarerepairtool-kbarticle   Abraços!  
    • Bom dia. Estou com uma planilha que possui uma aba com o nome "Modelo" e uma aba com o nome de "Planilha Orçamentária". Nessa última aba tenho vários itens que compõe minha tabela de preço. O que estou necessitando? É o seguinte, eu gostaria de uma macro que fizesse a cópia da aba "Modelo" e que o nome dessa nova aba fosse o texto descrito da célula selecionada na aba "Planilha Orçamentária". 
    • Legal ter feito isso! Assim outras pessoas vão poder resolver esse problema mais facilmente.
    • Melhor? Difícil dizer... todos são bons e têm seus pros e contras. Minha resposta pessoal: eu utilizo Chrome para sites do Google (YouTube, Gmail, Drive, etc), Opera para navegar em tela cheia enquanto assisto algo por causa da janelinha de vídeo que fica aberta por sobre as outras abas e IE pra banco e transações que exijam segurança alta ou personalizada. Vai de cada um.
O site BABOO está no ar para informar e ajudar o internauta de Windows. Este site foi publicado em 1999 por Aurélio "Baboo", engenheiro e um dos maiores especialistas brasileiros em Windows, que trabalha profissionalmente com esse sistema operacional desde 1987. Desde 2004 ele é premiado anualmente pela Microsoft como MVP (Most Valuable Professional) pela sua contribuição e ajuda à comunidade de usuários de Windows.

Em 2001 foi criado o
Fórum do BABOO para ajudar o internauta brasileiro a solucionar problemas e dúvidas sobre Windows, Segurança, Office, Hardware e outros temas. Desde 2010 a Microsoft também tem premiado o Mr.Million, administrador da área de Segurança do Fórum do BABOO, pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Atualmente ele é o único MVP brasileiro de Segurança em desktop.

O BABOO é o único site brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows e que participa diariamente e ativamente nos comentários e discussões do site e fórum BABOO.