Obtendo informações do sistema

 

Nesta dica eu vou mostrar como você pode usar  a classe Environment  para obter informações sobre o ambiente atual da plataforma na qual estamos trabalhando. Podemos assim obter informações sobre:

A classe Environment pertence ao namespace System e possui muitos membros ( métodos , propriedades )

 

Aproveitando vou  mostrar como usar a função SaveSetting (lembra dela ?) para abrir a janela sempre na posição na qual ela foi fechada.

 

SaveSetting -  Salva ou cria um entrada da aplicação no registro do Sistema.. A sintaxe é :

 

Public Sub SaveSetting( ByVal AppName As String, ByVal Section As String, ByVal Key As String, ByVal Setting As String)

 

onde :

AppName : Expressão string contendo o nome da aplicação ou projeto para o qual as configurações serão aplicadas.
Section    : Expressão string contendo o nome da seção na qual a configuração da chave será salva.
Key         :  Expressão contendo o nome da chave.
Setting    :  Expressão contendo o valor para o qual a chave esta configurada.

Ex:  SaveSetting("MeuProjeto", "Startup", "Top", "75") - Salva a sua aplicação na secção Startup , chave , Top , valor = 75.

 

Vamos á prática:

1 - Inicie um novo projeto no Visual Studio.NET com as seguintes características (sinta-se a vontade para alterar a seu gosto.)

  1. Project Types : Visual Basic Projects
  2. Templates : Windows Application
  3. Name : SistemaInfo
  4. Location : c:\vbnet\SistemaInfo

 - os controles :

-  6 Label

- 1 Button

- 1 Panel

Agora o código:

A primeira coisa a fazer é declarar as variáveis usadas no projeto: Os nomes podem ser alterados em problema.

Public sAppName As String = "Registry Tester"

Public sRegSection As String = "Startup"

Public sXpos As String = "StartPos X"

Public sYpos As String = "StartPos Y"

- No evento Click do botão de comando temos o seguinte código : Usamos a Classe Environment para obter informações do sistema.

Private Sub btnDo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDo.Click

  lblOsVersao.Text    = Environment.OSVersion.ToString

  lblUsario.Text        = Environment.UserName.ToString

  lblRuntime.Text      = Environment.Version.ToString

  lblDiretorio.Text      = Environment.CurrentDirectory.ToString

  lblCompNome.Text  = Environment.MachineName.ToString

  lblSystemRoot.Text = Environment.GetFolderPath(Environment.SpecialFolder.System).ToString

End Sub

- No evento closing do formulário - form1.vb - vamos por o código que usa SaveSetting e salva a posição da janela no registro do sistema. Assim ao iniciar a janela será aberta naquela posição.

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

  Dim X, Y As Integer

  X = Me.Location.X

  Y = Me.Location.Y

  SaveSetting(sAppName, sRegSection, sXpos, X)

  SaveSetting(sAppName, sRegSection, sYpos, Y)

End Sub


Obs: você pode interceptar o evento closing e manipular a propriedade Cancel para evitar que o formulário seja fechado.

 

Nota: a sintaxe para o  GetSetting é  :  GetSetting(sAppName, sRegSection, sXpos)

 

Agora é só executar e obter o resultado:

 

 

Gostou ! Até a próxima dica VB.NET ... 

 

Veja os Destaques e novidades do SUPER DVD Visual Basic (sempre atualizado) : clique e confira !

Quer migrar para o VB .NET ?

Quer aprender C# ??

Quer aprender os conceitos da Programação Orientada a objetos ?

Quer aprender o gerar relatórios com o ReportViewer no VS 2013 ?

  Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter

Referências:

José Carlos Macoratti