VB6 - Errore di run-time 365

[androita]

Ciao a tutti...
Ho un form in vb6 dove nel form load carico degli oggetti (textbox) tramite la funzione load text1(i).... dentro un ciclo for...

poi sempre nello stesso form ho un pulsante che scarica le text tramite la funzione unload text1(i)... dentro un ciclo for

fin o a qua tutto ok, il form load carica gli oggetti e il pulsante li scarica giustamente, il problema è che ho anche una combo dove quando seleziono un elemento che ho nella lista, devo scaricare le text, COPIO LO STESSO CODICE che ho usato nel pulsante e mi viene fuori un errore "Errore fi run-time 365. impossibile scaricarte in questo contesto" ho provato ad inserire il codice del pulsante dentro una routine e di richiamarla ma mi da sembre errore...


Grazie!

[androita]

Nessuno ha una risposta...

Sembra quasi che dentro una combo non sia possibile caricare e scaricare gli oggetti...
E' possibile???

[gibra]

Originariamente inviato da androita


Nessuno ha una risposta...

Sembra quasi che dentro una combo non sia possibile caricare e scaricare gli oggetti...
E' possibile???

Non sei stato chiarissimo, ma ci provo.
Se ho capito bene tu vuoi scaricare l'array di controlli con Unload Text1(i) quando selezioni un elemento dal ComboBox (evento Click).
Se è quello che sospetto io, non è possibile. Devi utilizzare un Timer:

1 - aggiungi un Timer (Enabled = False, Interval = 1)
2 - sposta tutto il codice che usi nel ComboBox al Timer1_Timer
3 - nell'evento Click del ComboBox metti l'istruzione Timer1.Enabled
4 - Come prima istruzione dell'evento Timer1_Timer ricordati di mettere Timer1.Enabled = False, il resto del codice che hai copiato dal combo deve venire dopo . In questo modo il codice sarà eseguito una sola volta!

Prova e facci sapere.

Ciao

[androita]

grazie tante....

Ho provato e funziona perfettamente....

Grazie e

[androita]

a cmq ho provato e funziona, ma come mai non è possibile scaricare un array all'interno di una combo?

Grazie

[oregon]

Originariamente inviato da androita
ma come mai non è possibile scaricare un array all'interno di una combo?

Ma questo cosa c'entra con il tuo problema?

[gibra]

Originariamente inviato da androita
a cmq ho provato e funziona, ma come mai non è possibile scaricare un array all'interno di una combo?

Grazie

Leggi qui
http://msdn.microsoft.com/en-us/library/aa445638.aspx

Ciao

[oregon]

Originariamente inviato da oregon
Ma questo cosa c'entra con il tuo problema?

Ah ... "scaricare" ... ok ...

[androita]

ciao a tutti.. sonop di nuovo qua...
usando il timer funziona, pero io nel mio form ho una barra di scorrimento verticale, perche nel mio form ho una lista di oggetti e senza barra non li vedo tutti... quando clicco sopra la barra di scorrimento mi conpare il seguente errore: "Impossibile leggere la proprietà 'Top' in fase di esecuzione"... (errore run-time 393)
ho provato a cancellare il timer e funziona...

questo è il codice che gestisce la barra di scorrimento:
Private Sub Form_Load()

TotAltForm = Me.Height '3765
TotVisualizza = Me.VScroll1.Height ' 1900

Me.Height = TotVisualizza

With VScroll1
.Height = Me.ScaleHeight
.Min = 0
.Max = TotAltForm - TotVisualizza
.SmallChange = Screen.TwipsPerPixelY * 10
.LargeChange = .SmallChange
End With

End Sub

Private Sub ScrollForm()
Dim ctl As Control

For Each ctl In Me.Controls
If Not (TypeOf ctl Is VScrollBar) And _
Not (TypeOf ctl Is CommandButton) Then
ctl.Top = ctl.Top + oldPos - VScroll1.Value
End If
Next

oldPos = VScroll1.Value
End Sub

Private Sub VScroll1_Change()
Call ScrollForm
End Sub


Private Sub VScroll1_Scroll()
Call ScrollForm
End Sub

il problema secondo me è proprio il timer, ho provato ad cancellarlo e funziona, pero anche se lo metto con interval 0 e disable, lui si blocca lo stesso



Grazie