VB: chiamare un evento

[ftponline]

Ho riscontrato che se ho la mia funzione:

Private Sub PIPPO_Click()
Text3.Text = Trim(Mid(Combo1.Text, 1, 7))
Text18.Text = Mid(Combo1.Text, 9, 2)
Text19.Text = Mid(Combo1.Text, 13, 2)

Call Connetti
End Sub

, quando chiamo la funzione "Connetti", tutto funziona regolarmente.

Invece, nel prossimo caso:

Private Sub Combo1_gotfocus()
Text3.Text = Trim(Mid(Combo1.Text, 1, 7))
Text18.Text = Mid(Combo1.Text, 9, 2)
Text19.Text = Mid(Combo1.Text, 13, 2)
Call Con
Call Connessione_Click
End Sub


Qui chiamo l'evento del tasto Connessione,e la funzione "Connetti" (che viene chiamata anche da "connessione_click") non fa il suo dovere!!!

Questo significa che richiamare gli eventi da una combo può essere problematico? E' uno dei bachi di VB?

NB: questo succede solo con le combo...baco delle combo?

[darkblOOd]

togli Call.

Ciao

[ftponline]

già provato, ma il problema non è la!

La funzione riesce a chiamare l'evento, ma non funziona come dovrebbe...
ti spiego....la connessione_click fa l'unload di un elemeno "body(1)".
Se la chiamo dal tasto Connessione, tutto Ok, ma se la chiamo attraverso la Combo, non mi fa l'unload!
Mi dice che "non può scaricare in questo contesto"!!!

[verodami]

Ciao
Spiegati meglio ..non si capisce molto bene quello che devi fare!
Io ho provato ..e l'istruzione Call connessione_click di per sè non dà problemi ..io credo che il tuo problema sia nell' associare un istruzione "unload" ..ad un 'oggetto...

[ftponline]

Ok...il problema nasce anche qui...

Private Sub Combo1_click()
Text3.Text = Trim(Mid(Combo1.Text, 1, 7))
Text18.Text = Mid(Combo1.Text, 9, 2)
Text19.Text = Mid(Combo1.Text, 13, 2)
Body(1) = Empty
Unload Body(1)
End Sub

Perchè l'unload non funziona???

[verodami]

Scusa non ho capito molto bene la funzione del tuo programmino
All ' interno dell form sono solo queste le cose che hai dichiarato ??non sò se può esserti utile ..
tu hai usato una variabile Empty che è rappresentata da 0 (in un contesto numerico) e da una stringa di lunghezza zero ("")(in un contesto testuale).
Non credo che la tua uguaglianza vada molto bene!
ciao fammi sapere

[ftponline]

ricomiciamo da capo...sto facendo un pò di casino

Ecco la funzione che NON funziona!

Private Sub Combo1_click()
Body(1) = Empty
Unload Body(1)
End Sub

dove body(1) è una textbox esistente ... e fino a qui non ci piove!!!

L'unload non funziona...ma succede SOLO con l'evento CLICK!!! Se uso LOSTFOCUS, VALIDATE...funziona...ma a me interessa proprio l'evento CLICK!!!

Sono stato + chiaro?

[verodami]

Non preoccuparti non è facile farsi capire ... scrivendo!!!!vediamo un pò.. a dopooo ciao

[verodami]

Ma ti va in errore ..o semplicemente non svolge la funzione?che tu hai richiesto?
Perchè io ho provato a spostare la tua istruzione all' interno dell' evento LostFocus ..e mi va in errore proprio
qui:
body(1) = Empty 'mi dice che la funzione non è definita
Tu dici che body(1) e un text box esistente ma l'hai creata tu? all'interno del form?
Scusa se ti faccio tutte queste domande ma vorrei capire per aiutarti ...
se vuoi mandarmi il progettino completo ..sarebbe meglio poi fai tu :-) ....
Comunque credo che alla base del problema sia Body(1)
Ciao

[ftponline]

mi va in errore e mi dice che non può eseguire l'unload!

A te va in errore perchè probabilmente non hai creato l'oggetto body(o) che sta alla base della matrice degli oggetti body!

il progetto completo è troppo grande e sarebbe cmq inutilizzabile perchè tutte le funzioni si connettono al server oracle che ho qui....