vulcano4
16-10-2013, 22:10
Salve a tutti, ho da poco iniziato a studiare vb.net a scuola e ho pensato di creare una semplicissima applicazione da mostrare al professore. Il punto è che quando avvio il codice di una 6 form non mi esegue il codice dopo ma va a eseguire il codice dal punto in cui la form viene richiamata (con la premuta di un button). Credo di non aver commesso nessun errore nel codice, e quindi non capisco proprio perché salta da una form all'altra senza che venga richiesto da codice.
Qui il codice del programma:
form 6
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If account = True And accountloggato <> "Admin" Then
creazione = File.AppendText(IO.Path.GetDirectoryName(Process.GetCurrentProcess().MainModule.FileName) + "\classifica.txt")
'************ESATTAMENTE IN QUESTO PUNTO SMETTE DI ESEGUIRE IL CODICE SEGUENTE E SPOSTA LA FRECCIA GIALLA CHE INDICA IL CODICE IN ESEGUZIONE NELLA FORM POSTA SOTTO QUESTO CODICE
creazione.WriteLine(punteggio + " " & accountloggato)
creazione.Flush()
creazione.Close()
classificaordinata = File.ReadAllLines(IO.Path.GetDirectoryName(Process.GetCurrentProcess().MainModule.FileName) + "\classifica.txt")
Array.Sort(classificaordinata)
File.Delete(IO.Path.GetDirectoryName(Process.GetCurrentProcess().MainModule.FileName) + "\classifica.txt")
lettura = File.OpenText(IO.Path.GetDirectoryName(Process.GetCurrentProcess().MainModule.FileName) + "\classifica.txt")
creazione = File.AppendText(IO.Path.GetDirectoryName(Process.GetCurrentProcess().MainModule.FileName) + "\classifica.txt")
Do
creazione.WriteLine(classificaordinata(i))
Label1.Text = vbCrLf & classificaordinata(i)
classifica = lettura.ReadLine()
i += 1
Loop Until classifica Is Nothing
creazione.Flush()
creazione.Close()
End If
End Sub
form 4
Private Sub ButtonClassifica_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonClassifica.Click
'QUI SPOSTA LA FRECCIA
Form6.Show()
End Sub
Qui il codice del programma:
form 6
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If account = True And accountloggato <> "Admin" Then
creazione = File.AppendText(IO.Path.GetDirectoryName(Process.GetCurrentProcess().MainModule.FileName) + "\classifica.txt")
'************ESATTAMENTE IN QUESTO PUNTO SMETTE DI ESEGUIRE IL CODICE SEGUENTE E SPOSTA LA FRECCIA GIALLA CHE INDICA IL CODICE IN ESEGUZIONE NELLA FORM POSTA SOTTO QUESTO CODICE
creazione.WriteLine(punteggio + " " & accountloggato)
creazione.Flush()
creazione.Close()
classificaordinata = File.ReadAllLines(IO.Path.GetDirectoryName(Process.GetCurrentProcess().MainModule.FileName) + "\classifica.txt")
Array.Sort(classificaordinata)
File.Delete(IO.Path.GetDirectoryName(Process.GetCurrentProcess().MainModule.FileName) + "\classifica.txt")
lettura = File.OpenText(IO.Path.GetDirectoryName(Process.GetCurrentProcess().MainModule.FileName) + "\classifica.txt")
creazione = File.AppendText(IO.Path.GetDirectoryName(Process.GetCurrentProcess().MainModule.FileName) + "\classifica.txt")
Do
creazione.WriteLine(classificaordinata(i))
Label1.Text = vbCrLf & classificaordinata(i)
classifica = lettura.ReadLine()
i += 1
Loop Until classifica Is Nothing
creazione.Flush()
creazione.Close()
End If
End Sub
form 4
Private Sub ButtonClassifica_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonClassifica.Click
'QUI SPOSTA LA FRECCIA
Form6.Show()
End Sub