[vb6] cambio scheda controllo sstab

[Beziel]

Ciao a tutti,
Dovendo intercettare l'evento click di un controllo sstab x far si che il cambio scheda venga effettuato solamenta con il verificarsi di determinate condizioni ho fatto questa subroutine, ma evidentemente sbaglio qualcosa.
C'è qualche anima pia che può aiutarmi?


Private Sub SSTab1_Click(PreviousTab As Integer)
Static active As Boolean
If active Then Exit Sub
active = True
Select Case PreviousTab
Case 0
If Dir("rs4.db") <> "" Then SSTab1.Tab = 1
End Select
active = False
End Sub



tnx!!!

[Beziel]

Ho risolto cambiando la condizione in questo modo:

If SSTab1.Tab = 1 And Dir("rs4.db") = "" Then SSTab1.Tab = 0

però adesso è sorto un altro problema, se ad esempio clicco sulla terza scheda e dopo sulla seconda il codice di prima non funziona xkè???


tnx!!!