Form kan niet geopend worden

Status
Niet open voor verdere reacties.
S

senna98

Gebruiker
Lid geworden
14 jun 2011
Berichten
47
Als ik een bepaald form wil openen zegt visual studio altijd dat hij het form niet kan openen. Dit is de code:

Code: 
Public Class Open
    Dim leerling1str As String = Savelocatie.Text + "1.plc"
    Dim leerling2str As String = Savelocatie.Text + "2.plc"
    Dim leerling3str As String = Savelocatie.Text + "3.plc"
    Dim leerling4str As String = Savelocatie.Text + "4.plc"
    Dim leerling5str As String = Savelocatie.Text + "5.plc"
    Dim leerling6str As String = Savelocatie.Text + "6.plc"
    Dim leerling7str As String = Savelocatie.Text + "7.plc"
    Dim leerling8str As String = Savelocatie.Text + "8.plc"
    Dim leerling9str As String = Savelocatie.Text + "9.plc"
    Dim leerling10str As String = Savelocatie.Text + "10.plc"
    Dim leerling11str As String = Savelocatie.Text + "11.plc"
    Dim leerling12str As String = Savelocatie.Text + "12.plc"
    Dim leerling13str As String = Savelocatie.Text + "13.plc"
    Dim leerling14str As String = Savelocatie.Text + "14.plc"
    Dim leerling15str As String = Savelocatie.Text + "15.plc"
    Dim leerling16str As String = Savelocatie.Text + "16.plc"
    Dim leerling17str As String = Savelocatie.Text + "17.plc"
    Dim leerling18str As String = Savelocatie.Text + "18.plc"
    Dim leerling19str As String = Savelocatie.Text + "19.plc"
    Dim leerling20str As String = Savelocatie.Text + "20.plc"
    Dim leerling21str As String = Savelocatie.Text + "21.plc"
    Dim leerling22str As String = Savelocatie.Text + "22.plc"
    Dim leerling23str As String = Savelocatie.Text + "23.plc"
    Private Sub Open_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'eerste 8 leerlingen
        Dim readerl1 As New IO.StreamReader(leerling1str)
        ZitplaatsPlannerv1.Leerling1.Text = readerl1.ReadToEnd
        readerl1.Close()
        Dim readerl2 As New IO.StreamReader(leerling2str)
        ZitplaatsPlannerv1.Leerling2.Text = readerl2.ReadToEnd
        readerl2.Close()
        Dim readerl3 As New IO.StreamReader(leerling3str)
        ZitplaatsPlannerv1.Leerling3.Text = readerl3.ReadToEnd
        readerl3.Close()
        Dim readerl4 As New IO.StreamReader(leerling4str)
        ZitplaatsPlannerv1.Leerling4.Text = readerl4.ReadToEnd
        readerl4.Close()
        Dim readerl5 As New IO.StreamReader(leerling5str)
        ZitplaatsPlannerv1.Leerling5.Text = readerl5.ReadToEnd
        readerl5.Close()
        Dim readerl6 As New IO.StreamReader(leerling6str)
        ZitplaatsPlannerv1.Leerling6.Text = readerl6.ReadToEnd
        readerl6.Close()
        Dim readerl7 As New IO.StreamReader(leerling7str)
        ZitplaatsPlannerv1.Leerling7.Text = readerl7.ReadToEnd
        readerl7.Close()
        Dim readerl8 As New IO.StreamReader(leerling8str)
        ZitplaatsPlannerv1.Leerling8.Text = readerl8.ReadToEnd
        readerl8.Close()
        'tweede aantal leerlingen
        Dim readerl9 As New IO.StreamReader(leerling9str)
        ZitplaatsPlannerv1.Leerling9.Text = readerl9.ReadToEnd
        readerl9.Close()
        Dim readerl10 As New IO.StreamReader(leerling10str)
        ZitplaatsPlannerv1.Leerling10.Text = readerl10.ReadToEnd
        readerl10.Close()
        Dim readerl11 As New IO.StreamReader(leerling11str)
        ZitplaatsPlannerv1.Leerling11.Text = readerl11.ReadToEnd
        readerl11.Close()
        Dim readerl12 As New IO.StreamReader(leerling12str)
        ZitplaatsPlannerv1.Leerling12.Text = readerl12.ReadToEnd
        readerl12.Close()
        Dim readerl13 As New IO.StreamReader(leerling13str)
        ZitplaatsPlannerv1.Leerling13.Text = readerl13.ReadToEnd
        readerl13.Close()
        Dim readerl14 As New IO.StreamReader(leerling14str)
        ZitplaatsPlannerv1.Leerling14.Text = readerl14.ReadToEnd
        readerl14.Close()
        Dim readerl15 As New IO.StreamReader(leerling15str)
        ZitplaatsPlannerv1.Leerling15.Text = readerl15.ReadToEnd
        readerl15.Close()
        Dim readerl16 As New IO.StreamReader(leerling16str)
        ZitplaatsPlannerv1.Leerling16.Text = readerl16.ReadToEnd
        readerl16.Close()
        Dim readerl17 As New IO.StreamReader(leerling17str)
        ZitplaatsPlannerv1.Leerling17.Text = readerl17.ReadToEnd
        readerl17.Close()
        Dim readerl18 As New IO.StreamReader(leerling18str)
        ZitplaatsPlannerv1.Leerling18.Text = readerl18.ReadToEnd
        readerl18.Close()
        Dim readerl19 As New IO.StreamReader(leerling19str)
        ZitplaatsPlannerv1.Leerling19.Text = readerl19.ReadToEnd
        readerl19.Close()
        Dim readerl20 As New IO.StreamReader(leerling20str)
        ZitplaatsPlannerv1.Leerling20.Text = readerl20.ReadToEnd
        readerl20.Close()
        Dim readerl21 As New IO.StreamReader(leerling21str)
        ZitplaatsPlannerv1.Leerling21.Text = readerl21.ReadToEnd
        readerl21.Close()
        Dim readerl22 As New IO.StreamReader(leerling22str)
        ZitplaatsPlannerv1.Leerling22.Text = readerl22.ReadToEnd
        readerl22.Close()
        Dim readerl23 As New IO.StreamReader(leerling23str)
        ZitplaatsPlannerv1.Leerling23.Text = readerl23.ReadToEnd
        readerl23.Close()
    End Sub
End Class

Weet iemand wat er mis is???

Greets, senna98 :p
 
Laatst bewerkt door een moderator:
Je zegt 'Als ik een bepaald form wil openen zegt visual studio altijd dat hij het form niet kan openen.' bedoel je hiermee dat je de designer ervan niet kunt openen?
Of tijdens de runtime van het programma zelf kan je niet doen vb( form1.Show() ) ?
 
Ik zie al wat er mis gaat, jij vervangt de class van je form door een zelfgemaakte (vrij slordige) class.
 
Tijdens de runtime :) Maar wat moet ik nu juist doen om het wel te laten werken?
 
En de oplossing was ? (voor de mensen met hetzelfde probleem)
 
nu is het dit geworden:

Code: 
Public Class Open
    
    Private Sub Open_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim leerling1str As String = Savelocatie.Text + "1.plc"
    Dim leerling2str As String = Savelocatie.Text + "2.plc"
    Dim leerling3str As String = Savelocatie.Text + "3.plc"
    Dim leerling4str As String = Savelocatie.Text + "4.plc"
    Dim leerling5str As String = Savelocatie.Text + "5.plc"
    Dim leerling6str As String = Savelocatie.Text + "6.plc"
    Dim leerling7str As String = Savelocatie.Text + "7.plc"
    Dim leerling8str As String = Savelocatie.Text + "8.plc"
    Dim leerling9str As String = Savelocatie.Text + "9.plc"
    Dim leerling10str As String = Savelocatie.Text + "10.plc"
    Dim leerling11str As String = Savelocatie.Text + "11.plc"
    Dim leerling12str As String = Savelocatie.Text + "12.plc"
    Dim leerling13str As String = Savelocatie.Text + "13.plc"
    Dim leerling14str As String = Savelocatie.Text + "14.plc"
    Dim leerling15str As String = Savelocatie.Text + "15.plc"
    Dim leerling16str As String = Savelocatie.Text + "16.plc"
    Dim leerling17str As String = Savelocatie.Text + "17.plc"
    Dim leerling18str As String = Savelocatie.Text + "18.plc"
    Dim leerling19str As String = Savelocatie.Text + "19.plc"
    Dim leerling20str As String = Savelocatie.Text + "20.plc"
    Dim leerling21str As String = Savelocatie.Text + "21.plc"
    Dim leerling22str As String = Savelocatie.Text + "22.plc"
    Dim leerling23str As String = Savelocatie.Text + "23.plc"
        Dim readerl1 As New IO.StreamReader(leerling1str)
        ZitplaatsPlannerv1.Leerling1.Text = readerl1.ReadToEnd
        readerl1.Close()
        Dim readerl2 As New IO.StreamReader(leerling2str)
        ZitplaatsPlannerv1.Leerling2.Text = readerl2.ReadToEnd
        readerl2.Close()
        Dim readerl3 As New IO.StreamReader(leerling3str)
        ZitplaatsPlannerv1.Leerling3.Text = readerl3.ReadToEnd
        readerl3.Close()
        Dim readerl4 As New IO.StreamReader(leerling4str)
        ZitplaatsPlannerv1.Leerling4.Text = readerl4.ReadToEnd
        readerl4.Close()
        Dim readerl5 As New IO.StreamReader(leerling5str)
        ZitplaatsPlannerv1.Leerling5.Text = readerl5.ReadToEnd
        readerl5.Close()
        Dim readerl6 As New IO.StreamReader(leerling6str)
        ZitplaatsPlannerv1.Leerling6.Text = readerl6.ReadToEnd
        readerl6.Close()
        Dim readerl7 As New IO.StreamReader(leerling7str)
        ZitplaatsPlannerv1.Leerling7.Text = readerl7.ReadToEnd
        readerl7.Close()
        Dim readerl8 As New IO.StreamReader(leerling8str)
        ZitplaatsPlannerv1.Leerling8.Text = readerl8.ReadToEnd
        readerl8.Close()
        'tweede aantal leerlingen
        Dim readerl9 As New IO.StreamReader(leerling9str)
        ZitplaatsPlannerv1.Leerling9.Text = readerl9.ReadToEnd
        readerl9.Close()
        Dim readerl10 As New IO.StreamReader(leerling10str)
        ZitplaatsPlannerv1.Leerling10.Text = readerl10.ReadToEnd
        readerl10.Close()
        Dim readerl11 As New IO.StreamReader(leerling11str)
        ZitplaatsPlannerv1.Leerling11.Text = readerl11.ReadToEnd
        readerl11.Close()
        Dim readerl12 As New IO.StreamReader(leerling12str)
        ZitplaatsPlannerv1.Leerling12.Text = readerl12.ReadToEnd
        readerl12.Close()
        Dim readerl13 As New IO.StreamReader(leerling13str)
        ZitplaatsPlannerv1.Leerling13.Text = readerl13.ReadToEnd
        readerl13.Close()
        Dim readerl14 As New IO.StreamReader(leerling14str)
        ZitplaatsPlannerv1.Leerling14.Text = readerl14.ReadToEnd
        readerl14.Close()
        Dim readerl15 As New IO.StreamReader(leerling15str)
        ZitplaatsPlannerv1.Leerling15.Text = readerl15.ReadToEnd
        readerl15.Close()
        Dim readerl16 As New IO.StreamReader(leerling16str)
        ZitplaatsPlannerv1.Leerling16.Text = readerl16.ReadToEnd
        readerl16.Close()
        Dim readerl17 As New IO.StreamReader(leerling17str)
        ZitplaatsPlannerv1.Leerling17.Text = readerl17.ReadToEnd
        readerl17.Close()
        Dim readerl18 As New IO.StreamReader(leerling18str)
        ZitplaatsPlannerv1.Leerling18.Text = readerl18.ReadToEnd
        readerl18.Close()
        Dim readerl19 As New IO.StreamReader(leerling19str)
        ZitplaatsPlannerv1.Leerling19.Text = readerl19.ReadToEnd
        readerl19.Close()
        Dim readerl20 As New IO.StreamReader(leerling20str)
        ZitplaatsPlannerv1.Leerling20.Text = readerl20.ReadToEnd
        readerl20.Close()
        Dim readerl21 As New IO.StreamReader(leerling21str)
        ZitplaatsPlannerv1.Leerling21.Text = readerl21.ReadToEnd
        readerl21.Close()
        Dim readerl22 As New IO.StreamReader(leerling22str)
        ZitplaatsPlannerv1.Leerling22.Text = readerl22.ReadToEnd
        readerl22.Close()
        Dim readerl23 As New IO.StreamReader(leerling23str)
        ZitplaatsPlannerv1.Leerling23.Text = readerl23.ReadToEnd
        readerl23.Close()
    End Sub
End Class
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan