.............................

[GenericName]

...

Endret 11. januar 2011 av Token

[GenericName]

...

Endret 11. januar 2011 av Token

[Vain]

Jeg prøvde programmet og fant ingen direkte feil. Det eneste er at hvis du skriver inn noe som filnavn, men dette filnavnet ikke finnes, da får man feilmelding. Du kan prøve dette:

 

Private Sub cmdÅpneFil_Click()
On Error GoTo hehe:
   ' Viser en feilmelding og
   ' avbryter hvis filnavnet mangler.
   If txtSkriv = "" Then GoTo hehe:
   ' Åpner fila for input.
   Open txtSkriv For Input As #1
   ' Viser innholdet i fila i labelen.
   iblVis = Input(LOF(1), #1)
   ' Lukker fila som ble åpnet.
   Close #1
   Exit Sub
hehe:
       Beep
       iblFeilmelding = "Filnavn og bane mangler!"
       imgSurtFjes = LoadPicture(SURTFJES)
       txtSkriv.SetFocus
End Sub

Hvis det kommer en feilmelding nå så hopper den ned til der det står hehe: og fortsetter derfra.

[GenericName]

...

Endret 11. januar 2011 av Token