Jump to content
jviana

Erro no código

Recommended Posts

jviana

Public Sub adicionar()
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Or TextBox8.Text = "" Then
            MsgBox("Preencha os campos todos!", MsgBoxStyle.Critical, MsgBoxStyle.OkOnly)
            Exit Sub
        Else
            numero = Form1.numero
            numero = numero + 1
            Form1.numero = numero
            nome = TextBox6.Text
            compositor = TextBox1.Text
            prgutilizado = TextBox4.Text
            ano = TextBox2.Text
            arranjo = TextBox3.Text
            tipo = TextBox5.Text
            ficheiro = TextBox7.Text
            pdf = TextBox7.Text
            Dim adpauta As New ListViewItem(numero)
            adpauta.SubItems.Add(nome)
            adpauta.SubItems.Add(compositor)
            adpauta.SubItems.Add(prgutilizado)
            adpauta.SubItems.Add(ano)
            adpauta.SubItems.Add(arranjo)
            adpauta.SubItems.Add(tipo)
            adpauta.SubItems.Add(ficheiro)
            adpauta.SubItems.Add(pdf)
            Form1.ListView1.Items.Add(adpauta)
            Dim SW As New IO.StreamWriter("C:\Users\João Viana\Desktop\S.F.T. - Organizador de Partituras de Maestro\S.F.T. - Organizador de Partituras de Maestro\Músicas Adicionadas.txt")
            SW.WriteLine(numero & "\" & nome & "\" & compositor & "\" & prgutilizado & "\" & ano & "\" & arranjo & "\" & tipo & "\" & ficheiro & "\" & pdf)
            SW.Close()
            Form1.ToolStripLabel1.Text = numero
            Me.Close()
        End If

    End Sub

Alguem me consegue responder porque dá este erro?

SemTtulo-9.png

Cumps. J.Viana


Learning

  • VB.Net
  • HTML
  • C/C++

Share this post


Link to post
Share on other sites
José Lopes

Parece-me típico de uma incorrecta instancialização de variáveis...

experimenta por todas as condições ente  ()... if (......) then


Quando te pedirem peixe.... ensina-os a Pescar!!Hum..lálálálá!!

Share this post


Link to post
Share on other sites
Lukas S.

Coloca assim

TextBox1.text= (" ") or TextBox2.Text = ("")Or TextBox3.Text =("") Or TextBox4.Text =("") Or TextBox5.Text = ("") Or TextBox6.Text = ("") Or TextBox7.Text =("") Or TextBox8.Text = ("")


E o Impossível foi criado por pessoas fracas pra acabar com o sonho das pessoas fortes. Não deixes que acabem com o teu. Sonha , luta , ambiciona e realiza. Se amas , se gostas tu vais conseguir. Cala todas as pessoas que um dia duvidaram de ti e prova que foste mais forte de qualquer outro.

Share this post


Link to post
Share on other sites
jpaulino

Que erro dá? Queres que adivinhem?

Eu não vejo erro nenhum.

Já agora sabes que é possível alterar o nome dos controlos? Não achas que se atribuires como nome txtTipo em vez de Textbox5 ou txtNome em vez de Textbox6 não é mais perceptivel?

Share this post


Link to post
Share on other sites
programadorvb6

Olá

Acho que lhe falta as definições de : compositor | nome | Numero ......

Dim compositor,Nome, Numero  as String

Share this post


Link to post
Share on other sites
jviana

Eu não vejo erro nenhum.

Nem eu

Olá

Acho que lhe falta as definições de : compositor | nome | Numero ......

Dim compositor,Nome, Numero  as String

O problema é que já funcionou, e agora não funciona.

A razão?

Querem que ponha o Source aqui?

Cumps. J.Viana


Learning

  • VB.Net
  • HTML
  • C/C++

Share this post


Link to post
Share on other sites
emanuelx

olha faz assim elimina as textbox e volta a cria-las, já me aconteceu isso.

fiz desta maneira funcionou


com calma e sem stresses

Share this post


Link to post
Share on other sites
jviana

olha faz assim elimina as textbox e volta a cria-las, já me aconteceu isso.

fiz desta maneira funcionou

:notworthy:

Cumps. J.Viana


Learning

  • VB.Net
  • HTML
  • C/C++

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.