Ferramentas de Utilizador

Ferramentas de Site


dev_net:vb.net:settings

My.Settings - O controlo

Introdução

No evoluir de uma aplicação necessitamos por vezes de guardar valores de acordo com a escolha do utilizador da mesma. Estes valores, na generalidade, são valores pequenos e de fácil porte/acesso. É então desnecessária a utilização de uma base de dados. É aqui que entra o Namespace My. Fácil acesso, segurança incorporada, sem adição de recursos, simples - É o My.Settings.

Como utilizar

Abrir o Visual Studio (eu uso o 2008) > Project > Application Properties > Settings

Estamos agora prontos a declarar as nossas variáveis, neste artigo vou demonstrar um exemplo de utilização deste objecto.

Cada setting possui um Nome, um Tipo, uma Competência e um Valor, ora vejamos:

Name - Determina o nome da nossa propriedade;

Type - Determina o tipo de dados da nossa propriedade, seja Boolean, String, Integer, etc;

Scope - Determina se a nossa propriedade é read-only (Application) ou read-write (User);

Value - É o valor que está por default na propriedade.

Declarei três variáveis: Administrador: para sabermos o seu tipo de acesso; TamanhoW: definimos o tamanho (em largura) do Form, assim como TamanhoH onde definimos o tamanho (em altura).

Objecto em prática

Vou dar começo à demonstração de Ler(), Guardar() e Default().

Ler

Lemos todas as variáveis para a aplicação, fazendo, neste caso, uma verificação.

    Private Sub Ler()
        With My.Settings
            If .Administrador = True Then
                MessageBox.Show("Bem vindo!" & vbNewLine & "Acesso: Administrador", 
                                    My.Application.Info.Title, MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
            Me.Width = .TamanhoW
            Me.Height = .TamanhoH
        End With
    End Sub

Guardar

Guardamos/Actualizamos as nossas variáveis.

    Private Sub Guardar()
        With My.Settings
            If CheckBox1.Checked = True Then
                .Administrador = True
            Else
                .Administrador = False
            End If
            .TamanhoW = TextWidth.Text
            .TamanhoH = TextHeight.Text
            .Save() ' Obrigatório!
        End With
    End Sub

Default

Se por ventura precisarmos de fazer um reset() a todas as variáveis, basta para isso inserirmos:

My.Settings.Reset()

Conclusão

O objecto é simples e está lá para nos facilitar a vida, basta para que isso o utilizemos. Os Settings são uma boa alternativa a quem não quer utilizar nas suas aplicações bases de dados, XML, e/ou ficheiros de texto. O resto, é contigo!

Artigo escrito por bioshock

dev_net/vb.net/settings.txt · Esta página foi modificada pela última vez em: 2018/05/14 21:37 (Edição externa)