Tjo,

Har lite problem med ett spel på en programmeringslektion. Jag har gjort en for-sats som laddar in ett obestämt antal bilder i den dynamiska arrayn. Men under in laddningen klagar vb på att "subscriptet out of range".

[code]
Dim PicArray()

Private Sub Form_Load()

drvDrive.Drive = App.Path
dirDirectory.Path = App.Path
filFilename.FileName = App.Path

Dim NrOfPics As Integer
NrOfPics = filFilename.ListCount

For i = 0 To (NrOfPics - 1)
Dim Smileyname As String
Smileyname = "\" & "Smiley" & Val(i) & ".bmp"
Set PicArray(i) = LoadPicture(App.Path & Smileyname)
PicnrMax = PicnrMax + 1
Next

tmrJump.Enabled = False
End Sub
[/code]

Du måste Redim :a arrayen , den är ju Noll nu.
<code>
Dim NrOfPics As Long
NrOfPics = filFilename.ListCount
Redim PicArray(NrOfPics)
</code>

drvDrive.Drive = App.Path
dirDirectory.Path = App.Path
filFilename.FileName = App.Path

Ser konstigt ut ! Det sista bord vara

Edit : Oki ser nu att filFileName är en FilListBox så det är ok.