Keskustelu: Koodit: VB6: Pari esimerkkiä (virheenkäsittely, kuvan lataus)

Private Sub Form_Load()
Dim errorboxi As String
uudestaan: 'eli tähän tullaan jos tulee virhe ja painetaan retryy
On Error GoTo ohjelmointiputka: 'no joo...
Me.Picture = LoadPicture("a:\piktuuri.gif") 'yritetään ladata disketiltä kuva ittelle
ohjelmointiputka: 'eli jos tulee virhetä
If Err.Number = 53 Then 'Jos virhenumero on 53 eli tiedostoa ei ole, niin
errorboxi = MsgBox("File not found", vbCritical + vbRetryCancel) 'sanotaan ettei kuvaa löydy
If errorboxi = vbRetry Then 'jos käyttäjä painaa retryä
GoTo uudestaan: 'mennään sennimiseen labeliin kuin uudestaan eli yritetään ladata kuva uudestaan
Else
'no jos vastataan ok, niin ei yritetä ladata kuvaa uudestaan
End If
ElseIf Err.Number = 71 Then 'Jos virhenumero on 71 eli disketti ei ole asemassa niin
errorboxi = MsgBox("Disk not ready", vbCritical + vbRetryCancel) 'sanotaan ettei kuvaa löydy
If errorboxi = vbRetry Then 'jos käyttäjä painaa retryä
GoTo uudestaan: 'mennään sennimiseen labeliin kuin uudestaan eli yritetään ladata kuva uudestaan
Else
'no jos vastataan ok, niin ei yritetä ladata kuvaa uudestaan
End If
End If
End Sub