Keskustelu: Ohjelmointikysymykset: VB6 Formi ei ilmesty näkyviin

Sub AdvanceLevel()

    Dim answer As Variant
    answer = MsgBox("It would cost you " & PlayerData.NextLevel & " experience points and " & PlayerData.LevelCost & " gold pieces." & _
    vbCrLf & "Are you sure you want to level up?", vbYesNo)
    If answer = vbYes Then
        If PlayerData.Exp >= PlayerData.NextLevel And PlayerData.Gold >= PlayerData.LevelCost Then
            frmLevelUp.Visible = True
            LevelUpUpdate
        Else:
            MsgBox "You don't have enough gold or experience!"
            Exit Sub
        End If
    Else:
        Exit Sub
    End If

End Sub

Mikäs ihme tuossa koodissa oikein mättää ku ei ilmesty formi näkyviin vaikka se mun mielestä ihan selvästi tuolla lukee? :& Se ilmestyy näkyviin jos nappia klikkaa kaks kertaa (siis nappia minkä kuuluu suorittaa tuo advancelevel subi)

Ilman tuon tarkempia tietoja kokeile frmLevelUp.Show – voi myös olla että jokin toinen koodi jumittaa mikä tuossa ei näy, esim. LevelUpUpdatessa. Toisaalta vika voi myös olla proseduuria kutsuvan napin koodissa.

Juu, poistin sen lvlupupdaten niin nyt pelittää, en sit tiiä mikä siinä oli väärin mutta ei se niin tärkeä ollu ees :D Kiitoksia avusta :)

-Feltsu

Jos haluat tarkemman analyysin, niin voit toki liittää sen proseduurin tähän, ainakin siinä tapauksessa jos se ei kamalasti kutsu vielä lisää muita proseduureja. Saisitpahan sitten todennäköisesti tietää mikä mättää :)