• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

informaster

Ajuda para principiante

4 mensagens neste tópico

Bom Dia

Gosto muito desde Forum muito valioso e muito bem trabalhado os meus parabens.

Estou a começar a aprender VB e agora que sei algumas coisitas poucas...

Estou a tentar fazer um modulo de adicionar artigos a um ficheiro de texto ou melhor um ficheiro aberto de texto mas que vou-lhe mudar a extensao para não ser facilmente reconhecido com txt.

começando pelo Codigo do artigo que é gerado automaticamente

Nome do artigo

Familia do artigo é obvio que futuramente vai haver outro ficheiro para as familias dos artigos e a combobox tem que ir buscar informação a esse ficheiro de familias já inseridas da mesma maneira.

O unico codigo que eu coloquei foi no botao adicionar mas penso que estou a ir por um caminho impossivel

Private Sub cmdadicionarart_Click()

    If txtartigo.Text = "" Then

        MsgBox "Para adicionar um Artigo tem que digitar.", vbOKOnly, "Aviso"

    End If

lstartigos.AddItem txtartigo.Text

cmdadicionarart.Enabled = False

txtartigo.Text = ""

txtartigo.SetFocus

End Sub

aqui apenas está a adicionar campo txtartigo.Text na lstartigos... agora como separar no ficheiro de texto por colunas

no entanto a ideia é quando a form é executada vai ver o ultimo codigo do artigo e abre um novo codigo automaticamente

preencher o nome do artigo selecionar a combo box e ver a familia associada e adicionar toda a informação e no fim

o ficheiro txt ficar assim

000001  prato de barro  pratos

000002  prato metal        pratos

vbbasic.jpg

ou seja

na 1º coluna

temos a coluna dos codigos que pode ter 6 digites e o campo é automatico ou seja gera automaticamente

na 2º coluna

temos a coluna do nome do artigo pode ter até 42 caracteres

na 3º coluna

temos a familia que associa ao artigo ou seja atencipadamente o utilizador terá que ter uma form igual e preencher dados da familia dos artigos e associar essas informações agora nesta janela

e assim sucessivamente com outros campos

Parece-me a mim que fazer isto de maneira simples é muito bom e facil...

Agora com a experiencia dos mais velhos remeto-me ao silencio e gosto de aprender bem do inicio.

Aguardo participação vossa.

Abraço

Informaster

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

podes escrever cada campo separado por tabs

Field1 <TAB> Field2 <TAB> Field3

Field1 <TAB> Field2 <TAB> Field3

Field1 <TAB> Field2 <TAB> Field3

Para leres les a linha e usas o split para partir a linha pelos tabs

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas

Sim mas qual o codigo que se usa para esta situação e para este modelo de janelas que quero ter... :wallbash:

Abraço

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá,

Com uma lista normal não vais lá porque apenas podes adicionar um coluna. Utiliza antes uma listview e podes fazer mais ou menos isto:

   Dim ListField As ListItem

  ' Adicionas as colunas
   With ListView1
        .View = lvwReport
        .FullRowSelect = True
        .LabelEdit = lvwManual
        .ColumnHeaders.Add , , "Coluna1", 400
        .ColumnHeaders.Add , , "Coluna2", 400
        .ColumnHeaders.Add , , "Coluna3", 400
   End With

   ' Adicionas os campos
    Set ListField = ListView1.ListItems.Add(, , "Linha1Coluna1)
    ListField.SubItems(1) = "Linha1Coluna2"
    ListField.SubItems(2) = "Linha1Coluna3"

   

 

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora