Dopo aver compilato il mio programma, e lo lancio quando premo per cambiare scheda nel controllo SSTAB mi genera l'errore seguente:
Run time error 13
Type mismatch
Dopo aver compilato il mio programma, e lo lancio quando premo per cambiare scheda nel controllo SSTAB mi genera l'errore seguente:
Run time error 13
Type mismatch
probabilmente chiama qualche funzione in cui fa un typecast automatico
Vascello fantasma dei mentecatti nonchè baronetto della scara corona alcolica, piccolo spuccello di pezza dislessico e ubriaco- Colui che ha modificato l'orribile scritta - Gran Evacuatore Mentecatto - Tristo Mietitore Mentecatto chi usa uTonter danneggia anche te
scusami l'ignoranza quasi totale, cosa dovrei fare materialmente per risolvere questo problema, non sono proprio il top in VB6. Grazie infinite.
hai provato a controllare in debug quale istruzione genera l'errore?
io sono festosamente cicciottello :: e. cartman
t'amo senza sapere come, nè quando nè da dove,
t'amo direttamente senza problemi nè orgoglio:
così ti amo perchè non so amare altrimenti
e io non sono propriamente un oracolo senza vedere neanche un pezzetto di codice faccio fatica a risolvere i problemiOriginariamente inviato da md76
non sono proprio il top in VB6. Grazie infinite.
Vascello fantasma dei mentecatti nonchè baronetto della scara corona alcolica, piccolo spuccello di pezza dislessico e ubriaco- Colui che ha modificato l'orribile scritta - Gran Evacuatore Mentecatto - Tristo Mietitore Mentecatto chi usa uTonter danneggia anche te
in debug non genera nessun errore.
Questo e' il codice:
On Error GoTo 0
If SSTab1.Tab = 0 Then
frmViewImmagini.Visible = False
frmViewImmagini1.Visible = False
End If
If SSTab1.Tab = 1 Then
frmViewImmagini1.Visible = False
frmViewImmagini.Show
End If
If SSTab1.Tab = 2 Then
frmViewImmagini.Visible = False
frmViewImmagini1.Show
End If
'Gestione errori
err_trap:
If Err.Number = 13 Then
Beep
End If
con On Error Goto 0 però non viene gestito l'errore, o sbaglio?
io sono festosamente cicciottello :: e. cartman
t'amo senza sapere come, nè quando nè da dove,
t'amo direttamente senza problemi nè orgoglio:
così ti amo perchè non so amare altrimenti
On Error GoTo err_trap
.
.
.
.
.
.
exit sub
err_trap:
.
.
.
.
end sub
I don't wanna have to shout it out / I don't want my hair to fall out
I don't wanna be filled with doubt / I don't wanna be a good boy scout
I don't wanna have to learn to count / I don't wanna have the biggest amount
I don't wanna grow up
come scrive Corwin se non dai una exit prima della label err_trap il programma ci entra
Vascello fantasma dei mentecatti nonchè baronetto della scara corona alcolica, piccolo spuccello di pezza dislessico e ubriaco- Colui che ha modificato l'orribile scritta - Gran Evacuatore Mentecatto - Tristo Mietitore Mentecatto chi usa uTonter danneggia anche te
Ho scritto cosi' adesso ma il problema persiste, mi potete aiutare xfavore ?
On Error GoTo err_trap
If SSTab1.Tab = 0 Then
frmViewImmagini.Visible = False
frmViewImmagini1.Visible = False
End If
If SSTab1.Tab = 1 Then
frmViewImmagini1.Visible = False
frmViewImmagini.Show
End If
If SSTab1.Tab = 2 Then
frmViewImmagini.Visible = False
frmViewImmagini1.Show
End If
Exit Sub
'Gestione errori
err_trap:
If Err.Number = 13 Then
Beep
End If
End Sub
Permessi di invio
Rispondi quotando