Tuesday, August 4, 2015
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' , Windows Forms Application, dê um nome e 'OK'
2- Adicione mais 2-4 Windows 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:\antivirusdownloadfullversion\WebExplorer7"
If Directory.Exists("C:\antivirusdownloadfullversion\WebExplorer7") = False Then
Directory.CreateDirectory("C:\Hyrokuamata\WebExplorer7")
*aqui vai o código 3- Mover ficheiros
Else
'se pretender apagar o diretório caso exista:
'Directory.Delete("C:\antivirusdownloadfullversion\WebExplorer7")
'voltamos a criar um diretório novo e limpo
'Directory.CreateDirectory("C:\antivirusdownloadfullversion\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:\antivirusdownloadfullversion\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 = CreateObject("WScript.Shell")
DesktopFolder = WsShell.SpecialFolders("Desktop")
FileShortcut = WsShell.CreateShortcut(DesktopFolder & "\WebExplorer7.lnk")
FileShortcut.TargetPath = "C:\antivirusdownloadfullversion\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
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment