Error als ik programma opstart

Status
Niet open voor verdere reacties.

chrisje181

Gebruiker
Lid geworden
23 okt 2008
Berichten
106
Als ik een project opstart en ik wil hem debuggen (F5) dan krijg ik een error.

Naamloos.jpg

ik weet waar het aan ligt: heb namelijk een UC (level3a) aangemaakt, als ik die uit mijn map formulier haal (map is een userform) dan doet ie het wel, als ik hem declareer dan gaat ie in error.

Hieronder de code die ikgebruik in map.vb:

Code:
Public Class map

    Dim walkingC As Integer = 15
    Dim walknext As Boolean
    Dim UClvl1 As New level1
    Dim UClvl2 As New level2
    Dim UClvl3a As New level3a

ElseIf status.currentLevel.Text = "2" Then          'Walk to lvl 3
            If Label27.Text = "15" Then
                OvalShape1.Location = New Point(137, 55)
            ElseIf Label27.Text = "14" Then
                OvalShape1.Location = New Point(144, 55)
            ElseIf Label27.Text = "13" Then
                OvalShape1.Location = New Point(144, 65)
            ElseIf Label27.Text = "12" Then
                OvalShape1.Location = New Point(144, 75)
            ElseIf Label27.Text = "11" Then
                OvalShape1.Location = New Point(144, 85)
            ElseIf Label27.Text = "10" Then
                OvalShape1.Location = New Point(144, 95)
            ElseIf Label27.Text = "9" Then
                OvalShape1.Location = New Point(144, 105)
            ElseIf Label27.Text = "8" Then
                OvalShape1.Location = New Point(144, 115)
            ElseIf Label27.Text = "7" Then
                OvalShape1.Location = New Point(134, 115)
            ElseIf Label27.Text = "6" Then
                OvalShape1.Location = New Point(124, 115)
            ElseIf Label27.Text = "5" Then
                OvalShape1.Location = New Point(124, 125)
                Form1.lvlPanelMain.Controls.Add(UClvl3a)
            End If

Wat is het probleem, en vooral: hoe kan ik het oplossen!!!!!!!!!

Toevoeging: Hij crasht op dezelijn code (map.vb line7)

Code:
Dim UClvl3a As New level3a
 
Laatst bewerkt:
Waar is de If voor die eerste ElseIF?
 
Laatst bewerkt:
@Edmoor: Scherp gezien. :)

@topic-starter: Hoogstwaarschijnlijk moet (zodra je in de regel van Edmoor ElseIf hebt veranderd in If) je nog een End If toevoegen aan het einde van je code, anders staan er 2 multi-line If statements in waarvan er maar 1 afgesloten is met End If

Tijs.
 
ne, dat is het niet. hij loopt door verschillende mogelijkheden door. Ik heb puur de belangrijke stuk code gepakt, oftewel waar ik die UClvl3 gebruik. Die if voor die eerste else if bestaat gewoon in de code.

Denk dat ik het eigenlijk al weet, denk dat het ligt dat ik direct voor de code de dim cijfer1 (in de level3 UC) wil vullen met een lege textbox.
Kwam ikpas na 4 uur zoeken achter. weet niet of het dat is...
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan