Form Que Não Mostra o Erro

Lau13 · April 19, 2013 at 12:17 PM

Boa tarde a todos, eu estou a desenvolver uma aplicação para a escola e tenho um form que não me dá erro, isto é, ele tem lá um erro de file not found mas não para o programa para dar o erro, alguém me pode ajudar?

Era importante.

Continuação de uma boa tarde.

ribeiro55 · April 19, 2013 at 12:35 PM

Experimenta, fazendo clique direito em cima da solução, fazer "Clean Solution" e depois "Build Solution".

Pode também estar a rebentar numa referência sem código fonte disponível.

Mostra uma captura de ecrã do erro, só para termos a certeza que estamos a falar do mesmo.

Mostra também o que está no Form_Load desse form.

Lau13 · April 19, 2013 at 12:50 PM

Boa tarde ribeiro55 obrigado por me ajudar. Faço clean Solution em cima do form?

Private Sub FormDetalhesCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       flag = 1
       CBOcor.AdicionarItem("Amarelo", Color.Gold)
       CBOcor.AdicionarItem("Azul", Color.Blue)
       CBOcor.AdicionarItem("Azul Claro", Color.DodgerBlue)
       CBOcor.AdicionarItem("Azul Escuro", Color.DarkBlue)
       CBOcor.AdicionarItem("Bege", Color.NavajoWhite)
       CBOcor.AdicionarItem("Bordô", Color.DarkRed)
       CBOcor.AdicionarItem("Branco", Color.LightYellow)
       CBOcor.AdicionarItem("Castanho", Color.SaddleBrown)
       CBOcor.AdicionarItem("Ciano", Color.Cyan)
       CBOcor.AdicionarItem("Cinzento", Color.DarkGray)
       CBOcor.AdicionarItem("Cinzento Claro", Color.Gray)
       CBOcor.AdicionarItem("Cinzento Escuro", Color.DimGray)
       CBOcor.AdicionarItem("Cor de Rosa", Color.Pink)
       CBOcor.AdicionarItem("Laranja", Color.Orange)
       CBOcor.AdicionarItem("Laranja Claro", Color.DarkOrange)
       CBOcor.AdicionarItem("Lilás", Color.Violet)
       CBOcor.AdicionarItem("Magenta", Color.Magenta)
       CBOcor.AdicionarItem("Prateado", Color.Silver)
       CBOcor.AdicionarItem("Preto", Color.Black)
       CBOcor.AdicionarItem("Roxo", Color.Purple)
       CBOcor.AdicionarItem("Verde", Color.LimeGreen)
       CBOcor.AdicionarItem("Verde Claro", Color.Lime)
       CBOcor.AdicionarItem("Verde Escuro", Color.DarkGreen)
       CBOcor.AdicionarItem("Vermelho", Color.Red)
       CBOcor.AdicionarItem("Violeta", Color.DarkViolet)

       If dr.IsClosed = False Then dr.Close()
       CBOmodelo.Items.Clear()
       SQLCMD = New MySqlCommand("select marca from marca order by marca", CNN)
       dr = SQLCMD.ExecuteReader()
       While dr.Read
           CBOmarca.Items.Add(dr.GetString(0))
       End While
       dr.Close()
       SQLCMD.Dispose()


       If dr.IsClosed = False Then dr.Close()
       SQLCMD = New MySqlCommand("select marca, modelo, matricula from automovel,cliente,marca,modelo where marca.cod_marca=modelo.cod_marca and automovel.cod_modelo=modelo.cod_modelo and automovel.cod_cliente=cliente.cod_cliente and nome_completo='" & FormFiltrarCliente.LSTcliente.SelectedItem & "'", CNN)
       dr = SQLCMD.ExecuteReader
       While dr.Read()
           CBOautomovel.Items.Add(dr.GetString(0) & " " & dr.GetString(1) & " " & dr.GetString(2))
       End While
       dr.Read()
       matricula = dr.GetString(2)
       If CBOautomovel.Items.Count > 0 Then
           y = 1
           CBOautomovel.SelectedIndex = 0
       End If
       dr.Close()
       SQLCMD.Dispose()


       If dr.IsClosed = False Then dr.Close()
       SQLCMD = New MySqlCommand("select cod_nacionalidade, pais from nacionalidade order by pais", CNN)
       dr = SQLCMD.ExecuteReader
       While dr.Read()
           CBOnacionalidade.Items.Add(dr.GetString(1))
       End While
       dr.Close()
       SQLCMD.Dispose()


       If dr.IsClosed = False Then dr.Close()
       SQLCMD = New MySqlCommand("SELECT distinct cod_postal FROM codigo_postal", CNN)
       dr = SQLCMD.ExecuteReader()
       While dr.Read
           CBOcod_postal.Items.Add(dr.GetInt32(0))
       End While
       dr.Close()
       SQLCMD.Dispose()

       PCTsave.Enabled = False
       'PCTsave.Image = Image.FromFile("E:\Claudio\PAP\PAP Aplicação Desktop\Icons\save enabled.png")
       PCTsave.Image = Image.FromFile("M:\Claudio\PAP\PAP Aplicação Desktop\Icons\save enabled.png")


       If FormPesquisarCliente.TXTnome.Text <> "Insira o Nome..." Then
           If dr.IsClosed = False Then dr.Close()
           SQLCMD = New MySqlCommand("SELECT cod_cliente,nome_completo, data_nascimento, pais, morada,localidade, cod_postal,cod_area,ccidadao,nif,contacto,mail, password FROM cliente,nacionalidade where cliente.cod_nacionalidade=nacionalidade.cod_nacionalidade and nome_completo='" & FormFiltrarCliente.LSTcliente.Text & "'", CNN)
           dr = SQLCMD.ExecuteReader()

           If dr.Read() Then

               LBLcod.Text = dr.GetInt32(0)
               TXTnome.Text = dr.GetString(1)
               CBOano.Text = Mid(dr.GetString(2), 1, 4)
               CBOmes.Text = Mid(dr.GetString(2), 6, 2)
               CBOdia.Text = Mid(dr.GetString(2), 9, 2)
               CBOnacionalidade.Text = dr.GetString(3)
               TXTmorada.Text = dr.GetString(4)
               LBLlocalidade.Text = dr.GetString(5)
               CBOcod_postal.Text = dr.GetInt32(6)
               CBOcod_area.Text = dr.GetInt32(7)
               TXTccidadao.Text = dr.GetInt32(8)
               TXTnif.Text = dr.GetInt32(9)
               TXTcontacto.Text = dr.GetInt32(10)
               TXTmail.Text = dr.GetString(11)
           End If
           dr.Close()
           SQLCMD.Dispose()

       ElseIf FormPesquisarCliente.TXTnif.Text <> "Insira o NIF..." Then
           SQLCMD = New MySqlCommand("SELECT cod_cliente,nome_completo, data_nascimento, pais, morada,localidade, cod_postal,cod_area,ccidadao,nif,contacto,mail, password FROM cliente,nacionalidade where cliente.cod_nacionalidade=nacionalidade.cod_nacionalidade and nif=" & FormFiltrarCliente.LSTcliente.Text & "", CNN)
           dr = SQLCMD.ExecuteReader()

           If dr.Read() Then

               LBLcod.Text = dr.GetInt32(0)
               TXTnome.Text = dr.GetString(1)
               CBOano.Text = Mid(dr.GetString(2), 1, 4)
               CBOmes.Text = Mid(dr.GetString(2), 6, 2)
               CBOdia.Text = Mid(dr.GetString(2), 9, 2)
               CBOnacionalidade.Text = dr.GetString(3)
               TXTmorada.Text = dr.GetString(4)
               LBLlocalidade.Text = dr.GetString(5)
               CBOcod_postal.Text = dr.GetInt32(6)
               CBOcod_area.Text = dr.GetInt32(7)
               TXTccidadao.Text = dr.GetInt32(8)
               TXTnif.Text = dr.GetInt32(9)
               TXTcontacto.Text = dr.GetInt32(10)
               TXTmail.Text = dr.GetString(11)
           End If
           dr.Close()
           SQLCMD.Dispose()

       ElseIf FormPesquisarCliente.TXTcontacto.Text <> "Insira o Contacto..." Then
           SQLCMD = New MySqlCommand("SELECT cod_cliente,nome_completo, data_nascimento, pais, morada,localidade, cod_postal,cod_area,ccidadao,nif,contacto,mail, password FROM cliente,nacionalidade where cliente.cod_nacionalidade=nacionalidade.cod_nacionalidade and contacto=" & FormFiltrarCliente.LSTcliente.Text & "", CNN)
           dr = SQLCMD.ExecuteReader()

           If dr.Read() Then

               LBLcod.Text = dr.GetInt32(0)
               TXTnome.Text = dr.GetString(1)
               CBOano.Text = Mid(dr.GetString(2), 1, 4)
               CBOmes.Text = Mid(dr.GetString(2), 6, 2)
               CBOdia.Text = Mid(dr.GetString(2), 9, 2)
               CBOnacionalidade.Text = dr.GetString(3)
               TXTmorada.Text = dr.GetString(4)
               LBLlocalidade.Text = dr.GetString(5)
               CBOcod_postal.Text = dr.GetInt32(6)
               CBOcod_area.Text = dr.GetInt32(7)
               TXTccidadao.Text = dr.GetInt32(8)
               TXTnif.Text = dr.GetInt32(9)
               TXTcontacto.Text = dr.GetInt32(10)
               TXTmail.Text = dr.GetString(11)
           End If
           dr.Close()
           SQLCMD.Dispose()
       End If
       dr.Close()
       SQLCMD.Dispose()

       SQLCMD = New MySqlCommand("Select matricula, cilindrada, potencia, combustivel, categoria_nacional, data_matricula, nr_quadro, cor, marca, modelo from automovel, modelo, marca where automovel.cod_modelo=modelo.cod_modelo and modelo.cod_marca=marca.cod_marca and matricula='" & matricula & "'", CNN)
       dr1 = SQLCMD.ExecuteReader()
       While dr1.Read()
           TXTmatricula1.Text = Mid(dr1.GetString(0), 1, 2)
           TXTmatricula2.Text = Mid(dr1.GetString(0), 4, 2)
           TXTmatricula3.Text = Mid(dr1.GetString(0), 7, 2)
           TXTcilindrada.Text = dr1.GetString(1)
           TXTpotencia.Text = dr1.GetInt32(2)
           CBOcombustivel.Text = dr1.GetString(3)
           CBOcategoria_nacional.Text = dr1.GetString(4)
           CBOanocar.Text = Mid(dr1.GetString(5), 1, 4)
           CBOmescar.Text = Mid(dr1.GetString(5), 6, 2)
           CBOdiacar.Text = Mid(dr1.GetString(5), 9, 2)
           TXTquadro.Text = dr1.GetString(6)
           CBOcor.Text = dr1.GetString(7)
           CBOmarca.Text = dr1.GetString(8)
           'If dr.IsClosed = False Then dr.Close()
           'If dr1.IsClosed = False Then dr1.Close()
           SQLCMD = New MySqlCommand("select modelo, marca.cod_marca from modelo, marca where marca.cod_marca=modelo.cod_marca and marca ='" & CBOmarca.Text & "'", CNN)
           dr = SQLCMD.ExecuteReader()
           While dr.Read
               CBOmodelo.Items.Add(dr.GetString(0))
           End While
           CBOmodelo.Text = dr1.GetString(9)
       End While
       dr1.Close()
       SQLCMD.Dispose()


       Me.Text = "Ficha de Cliente de " & TXTnome.Text
       LBLautomovel.Text = "Automóveis de " & TXTnome.Text & ":"

       FormPesquisarCliente.Close()
       FormFiltrarCliente.Close()
       dr.Close()
       SQLCMD.Dispose()
   End Sub

Edited April 19, 2013 at 12:57 PM by ribeiro55

ribeiro55 · April 19, 2013 at 01:01 PM

Em cima da Solution, na Solution Explorer, tipicamente do lado direito do ecrã.

O ficheiro M:\Claudio\PAP\PAP Aplicação Desktop\Icons\save enabled.png existe?

Não deverias colocar hard-coded um caminho deste tipo. Se é um ícone de botão, deveria estar nos recursos.

Se é um recurso externo, deverias estar a usar um caminho dinâmico.

Experimenta comentar a linha:

PCTsave.Image = Image.FromFile("M:\Claudio\PAP\PAP Aplicação Desktop\Icons\save enabled.png")

Lau13 · April 19, 2013 at 01:05 PM

Isso de o ficheiro estar comentado é porque na minha escola ele assume a drive como E e em minha casa como M, eu sei que é aí que está o erro só não entendo porque ele não me para o programa e me dá o erro de file.not.found.

ribeiro55 · April 19, 2013 at 01:28 PM

Difícil de diagnosticar à distância também.

Alguma coisa está a impedir o debugger de carregar a source.

Breakpoints funcionam? Se sim, step-debug it.

Verifica o perfil de compilação também. Troca para o debug padrão, caso tenhas estado a inventar.

Já fizeste o clean?

Lau13 · April 19, 2013 at 01:50 PM

Sim os breakpoint's funcionam. Como faço o step-debug it?

Como verifico o perfil de compilação?

Desculpa a minha ignorância mas só dei vb.net 1 ano.

ribeiro55 · April 19, 2013 at 02:22 PM

Coloca um breakpoint e depois faz step-debug.

Step-debug é percorreres linha a linha. Usa o F11 para entrar nos métodos e o F10 para passar no contexto.

Neste caso vai carregando em F11 até que consigas tirar melhores conclusões do file not found. Pode ser noutro sítio qualquer.

O perfil de compilação podes verificar em My Project->Debug->Configuration

Lau13 · April 19, 2013 at 02:33 PM

Está Active(Debug).

Sign In

Form Que Não Mostra o Erro

Recommended Posts

Lau13

Link to comment

Share on other sites

ribeiro55

Link to comment

Share on other sites

Lau13

Link to comment

Share on other sites

ribeiro55

Link to comment

Share on other sites

Lau13

Link to comment

Share on other sites

ribeiro55

Link to comment

Share on other sites

Lau13

Link to comment

Share on other sites

ribeiro55

Link to comment

Share on other sites

Lau13

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Home

Activity

Revista PROGRAMAR

Important Information