Nogle der kan se en fejl? eller to :D

Tags:    visual-basic

Nogle der kan se en fejl her? (Spillet vil ikke loade)


Option Explicit

Private Sub Form_Load()
ShockwaveFlash1.Movie = Form1.Text2.Text
ShockwaveFlash1.Base = Form1.Text1.Text
End Sub

Private Sub ShockwaveFlash1_OnReadyStateChange(newState As Long)
ShockwaveFlash1.FlashVars = "strGUI=medium&strServer=aq10&strLanguage=&strAutoAd=no"
End Sub
Private Sub Form1_Load()

End Sub
Private Sub Text1_Change()
ShockwaveFlash1.Base "aq.battleon.com/build30/game.asp?launchtype=medium"
End Sub

Private Sub Text2_Change()
ShockwaveFlash1.Movie "http://aq.battleon.com/Build30/engine/Lore3386A.swf"
End Sub



Du mangler stadig to =

Så jeg kan rette to fejl:

Fold kodeboks ind/udKode 


Jeg programmere ikke selv i VB så jeg kan ikke hjælpe mere. Du har dog en tom Form1_Load proecudre, men det er måske meningen.



t