raise event (spiegazione)

[albadur]

qualcuno mi potrebbe spiegare a che cosa serve l'istruzione raise event in vb6??

mi fate 1 esempio?

grazie 100000000000000000

salut

[Foga27News]

Supponiamo che vuoi fare un controllo ActiveX:
Una casella di testo che accetta solo numeri (ne trovi molte)
Ci metti un evento per chi lo userà che viene chiamato quando l'utente reme un tasto che non sia un numero.
Ci metti anche un parametro che mostra il codice ASCII.
Ecco un esempio di codice:

'Dichiarazione dell' evento
Public Event TastoNonAccettato(CodiceTasto As Integer)

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
'Se il tasto non va bene...
If Not (KeyCode > Asc("0") And KeyCode < Asc("9")) Then
'Chiama l'evento
    RaiseEvent TastoNonAccettato(KeyCode)
'Annulla il tasto
    KeyCode = 0
End If
End Sub

Ora potrai utilizzare la textbox numerica e l'evento così:

Private sub txtNumero_TastoNonAccettato(CodiceTasto as integer)
msgbox ("Hai digitato il tasto " & chr(Codicetasto) & "." & vbcrlf 
& "Inserisci solo numeri.",vbAlert)
End sub