Como criar um setup em VB.net ?

Bem vindo a mais um tutorial. Hoje vou mostrar como criar um setup em VB.net

1- Crie um novo projeto 'Visual Basic' , Forms Appliion, dê um nome e 'OK'
2- Adicione mais 2-4 Forms. Também poderiamos usar uma TabControl. Isso fica a seu critério. Simplesmente acho que o TabControl dá muitos bug. E depois à o problema de esconder os botões da Tab. Um setup normalmente têm 3-5 fases. Depende. Por isso, dependendo das fases que quer colocar vai colocar o mesmo número de forms. Mas um setup tem as janelas todas formatadas igualmente. Então, formate a gosto a sua janela principal (Form1). Clique com o lado direito e copie. Cole. Abra a janela e aletere o nome da janela para outro qualquer.

Vou explicar resumidamente o que faz um setup e para que serve o código em uso.

Um setup contém certos ficheiros necessários para o funcionamento de certo programa. Este vai criar um diretório, mover os ficheiros e criar um atalho (se assim o usuário desejar). É que claro que há Setups mais complexos que verificam se o sistema suporta os requisitos minimos , criam chaves no registro e muito mais.


1-Alterar de Form
Este é um código muito simples que serve para mudar de form em form. Este código deve ser usado num botão "Avançar" ou "Seguinte"

Form2.Show()
Me.Close

2- Criar diretório
Para criar diretórios (para quem não sabe) temos de importar o IO e o IO.Directory
Então no inicio da sua form adicione este código:

Imports.IO
Imports.IO.Directory

Agora sim podemos verificar se o diretório já existe. Vou usar como exemplo um diretório para instalar o meu WebBrowser no seguinte caminho "C:\Hyrokumata\WebExplorer7"

If Directory.Exists("C:\Hyrokumata\WebExplorer7") = False Then
Directory.CrteDirectory("C:\Hyrokuamata\WebExplorer7")
*aqui vai o código 3- Mover ficheiros
Else
'se pretender apagar o diretório caso exista:
'Directory.Delete("C:\Hyrokumata\WebExplorer7")
'voltamos a criar um diretório novo e limpo
'Directory.CrteDirectory("C:\Hyrokumata\WebExplorer7")

3- Mover ficheiros
Esta será talvez a parte mais complicada do processo. Mover ficheiros do My.Resources para um certo diretório.
Para começar adicione os ficheiros pretendidos no My.Resources

Agora use este código para mover/copiar os ficheiros do My.Resources para o caminho do programa

System.IO.File.WriteAllBytes(IO.Path.Combine("Diretorio", "Nome do ficheiro + a extensão"), My.Resources.nome_do_ficheiro_no_MyResources)

Exemplo concreto:

System.IO.File.WriteAllBytes(IO.Path.Combine("C:\Hyrokumata\WebExplorer7", "Start.exe"), My.Resources.Este_é_o_nome_do_Start)

4- Criar atalho
Para concluir, na janela final, coloque um CheckBox e vamos então criar o código para criar atalhos.

If CheckBox1.Checked = True Then

Dim WsShell
Dim DesktopFolder
Dim FileShortcut
WsShell = CrteObject("WScript.Shell")
DesktopFolder = WsShell.SpecialFolders("Desktop")

FileShortcut = WsShell.CrteShortcut(DesktopFolder & "\WebExplorer7.lnk")
FileShortcut.TargetPath = "C:\Hyrokumata\WebExplorer7\Start.exe"
FileShortcut.Description = "Começar a navegar"
FileShortcut.WorkingDirectory = DesktopFolder
FileShortcut.Save()
End If



Espero que tenham compreendido a explicação. Qualquer dúvida enviem e-mail para fabiodanielreis@hotmail.com . Quanto ao vídeo irei melhorá-lo ta um bocado para o mal :s