Por Jeison Pino de Jesus

Em 06/05/09

Uma pequena idéia do que gostaria de explicar: imagine que o seu cliente poderia sempre mudar os dados que ele gostaria de armazenar. Ou ainda, um sistema de pesquisa para dispositivos móveis. Onde o usuário que manipula a pesquisa, pudesse carregar o seu dispositivo com novas perguntas e assim iniciar o seu dia de trabalho. Enfim, temos diversas aplicações para isso.

No meu exemplo, o sistema irá ler um arquivo texto com vários nomes de campos. Um por linha. Mas poderia ser um arquivo XML ou qualquer tipo de fonte de dados. Exemplo:

Razão Social

Fantasia

Endereco

Bairro

Cidade

Estado

CEP

Email

CNPJ

I.E

Buscando o caminho inicial do executável

Dim caminho As String = IO.Path.GetDirectoryName(Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase)

Carregando o Formulário com os dados da ficha

Private Sub CarregarFormulario()

        Dim x As Integer = Screen.PrimaryScreen.Bounds.Width * 0.4 'a largura do form X percentual da posição desejada

        Dim y As Integer = 4

        Dim xLabel As Integer = 4

        If IO.File.Exists(IO.Path.Combine(caminho, "Ficha.txt")) Then

            SuspendLayout()

            "