[VB.NET] errore apertura file su altri pc

**wjzard** · 01-04-2012, 13:30

Non saprei non ho capito molto penso che l'errore possa essere in questo parte del programma perchè si verifica proprio quando clicco uno di questi bottoni

codice:

Imports System.Windows.Forms

Public Class MDIParent1
  

    Dim startSoundPlayer = New System.Media.SoundPlayer("C:\Windows\Media\chord.wav")

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

        Form1.MdiParent = Me
        Form1.Show()
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click



        Form1.MdiParent = Me
        Form1.Show()

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
      
        form2.MdiParent = Me
        form2.Show()
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    

        Form4.MdiParent = Me
        Form4.Show()
    End Sub

    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
    

        Form5.MdiParent = Me
        Form5.Show()
    End Sub

    Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
       

        Form6.MdiParent = Me
        Form6.Show()
    End Sub

    Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
   

        Form7.MdiParent = Me
        Form7.Show()
    End Sub

    Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click

        Avvio.Show()
    End Sub
End Class

**oregon** · 01-04-2012, 13:44

A parte il fatto che *dovresti sapere esattamente* di quale tasto si tratta (e non mostrarli tutti come se dovessimo saperlo noi), comunque non c'è nulla di interessante in questo codice.

Il problema, molto probabilmente, si manifesta quando si vanno ad aprire altri form in base a questa operazione.

Ma ti ho detto di dare un'occhiata al documento (e non l'hai fatto ... a che serve dare suggerimenti?) in quanto dovrebbe essere un problema legato ad un qualche

remove

di una collection ...

**wjzard** · 01-04-2012, 14:14

Ho provato a leggere il link che mi hai dato ma come ho scritto prima non ho capito nulla.
inoltre il problema si presenta su tutti i bottoni ma solo quando vengono cliccati

ora posto i codici di ogni form collegato a bottoni

codice:

Public Class Form1

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

    End Sub

    Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    End Sub
End Class

codice:

Public Class form2
    Dim openfile As New OpenFileDialog
    Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox2.CheckedChanged

    End Sub

    Private Sub Label6_Click(sender As System.Object, e As System.EventArgs) Handles Label6.Click

    End Sub

    Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        openfile.ShowDialog()
        Try
            TextBox1.Text = openfile.FileName
        Catch ex As Exception
        End Try
    End Sub

    Private Sub CheckBox9_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox9.CheckedChanged

    End Sub

    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub
End Class

codice:

Public Class Form3

    Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    End Sub
End Class

codice:

Public Class Form4

    Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    End Sub
End Class

codice:

Imports System.Net
Imports System.Net.Mail
Public Class Form5
    Dim openfile As New OpenFileDialog
    Dim posta As New MailMessage()
    Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    End Sub


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim smtpServer As New SmtpClient()
        posta = New MailMessage
        posta.From = New MailAddress(TextBox4.Text)
        posta.To.Add("andrea.moro1989@gmail.com")
        posta.Subject = "Problema servizio di un cliente:" & TextBox2.Text
        posta.Priority = MailPriority.High
        posta.Body = RichTextBox1.Text
        smtpServer.Credentials = New Net.NetworkCredential("andrea.moro1989@gmail.com", "XXXXXXXX")
        smtpServer.Port = 587
        smtpServer.Host = "smtp.gmail.com"
        smtpServer.EnableSsl = True
        If TextBox3.Text = "" Then

        Else
            posta.Attachments.Add(New Attachment(TextBox3.Text))
        End If
        
            smtpServer.Send(posta)
            MsgBox("La Mail è Stata Inviata!", MsgBoxStyle.Information, "Mail")
    End Sub

   

    Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        openfile.ShowDialog()
        Try
            TextBox3.Text = openfile.FileName
        Catch ex As Exception
        End Try

    End Sub

    Private Sub TextBox4_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub Form5_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
      
       
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)

    End Sub

    Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click

    End Sub
End Class

codice:

Public Class Form6

    Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub RichTextBox1_TextChanged(sender As System.Object, e As System.EventArgs)

    End Sub

    Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    End Sub
End Class

codice:

Public Class Form7

    Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    End Sub
End Class

codice:

Public Class Avvio


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

    End Sub

    Private Sub Avvio_MouseDoubleClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDoubleClick
        Me.Close()

    End Sub

    Private Sub Panel1_MouseDoubleClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDoubleClick
        Me.Close()
    End Sub

    Private Sub PictureBox2_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox2.Click

    End Sub

    Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Click

    End Sub
End Class

**oregon** · 01-04-2012, 14:19

Tutti quegli eventi "vuoti" come

codice:

Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click

End Sub

non hanno senso ... perché non li rimuovi?

E praticamente fai solamente la spedizione del messaggio?

Non c'è nulla nel tuo programma oltre l'invio della mail?

In pratica non c'è nulla che possa indicare dov'è l'errore ... puoi solo postare il progetto intero (uno zip) per capire.

**wjzard** · 01-04-2012, 15:01

Perché non ho ancora completato il programma
deve ancora mettere molte cose ma ho iniziato solo da pochi giorni

ecco il link del sorgente:

**oregon** · 01-04-2012, 15:11

E come si replica l'errore?

Ho compilato ed eseguito da release e non ho avuto nessun errore.

**wjzard** · 01-04-2012, 15:22

Nemmeno sul mio però su un'altro pc si avvia la finestra con tutti tasti e form principale ma quando clicco su uno qualsiasi dei bottoni mi segnala questo

Sarà perché il pc dove progetto il programma è a 64 bit mentre dove ho provato ad eseguirlo è a 32?

**oregon** · 01-04-2012, 15:28

L'errore è in PowerPacks ... forse c'è installata una versione diversa ...

**wjzard** · 01-04-2012, 15:38

L'errore è in PowerPacks ... forse c'è installata una versione diversa ...

Ho provato a installare l'applicazione su un pc a 64 bit a ha funzionato può essere quello il problema ?

**oregon** · 01-04-2012, 15:38

Cioè ? Non l'avevi installato come si era detto fino ad ora?

Discussione: [VB.NET] errore apertura file su altri pc

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio