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 mome, 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: onde definimos o tamanho (em largura) do Form;
• 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!

Escrito originalmente por: bioshock