Para iniciar a aplicação com o Windows e colocar opção para o usuário marcar
em uma checkbox, insira os códigos abaixo:
Antes da declaração da classe, coloque:
Imports Microsoft.Win32
Em form_Load, onde o há o checkbox, coloque:
Try
Using
key As
RegistryKey
= My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run",
True)
If
key.GetValue(My.Application.Info.Title) Is My.Application.Info.DirectoryPath
& "\"
& My.Application.Info.Title
& ".exe" Then
CheckBox1.CheckState =
CheckState.Checked
Else
CheckBox1.CheckState =
CheckState.Unchecked
End If
End Using
Catch
ex As
Exception
CheckBox1.CheckState =
CheckState.Unchecked
Finally
My.Computer.Registry.CurrentUser.Close()
End Try
Este código irá verificar se já existe a chave no registro para sua aplicação
iniciar com o windows, se sim irá marcar o CheckBox1, se não deixará desmarcado.
Coloque o código a seguir no procedimento que salva as configurações de sua
aplicação:
Try
If
CheckBox1.CheckState =
CheckState.Checked
Then
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run",
My.Application.Info.Title,
My.Application.Info.DirectoryPath
& "\"
& My.Application.Info.Title
& ".exe")
Else
Using
key As
RegistryKey
= My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run",
True)
key.DeleteValue(My.Application.Info.Title)
End Using
End If
Catch
End Try
Este código salvará no registro a informação para sua aplicação se o
CheckBox1 estiver marcado ou deletará se não.
Simples, não?
Ajudou muito, obrigado.
ResponderExcluirSó não entendi onde eu digito o segundo código :Coloque o código a seguir no procedimento que salva as configurações de sua aplicação
Este comentário foi removido pelo autor.
Excluir