Oppure

Loading
19/04/08 12:47
TSP
si scusatemi ma non riesco piu a cavarci i piedi

l'errore si verifica quando clicco su una tab sulla linea:

WebBrowser1(ar(TabStrip1.selectedindex.index - 1)).Visible = True

e dice: Proprietà o Metodo non supportati dall'oggetto

grazie per la pazienza:k:
aaa
19/04/08 12:53
gantonio
TSP ... concentrati un attimo e LEGGI BENE quello che ti ho risposto quando ho scritto

"forse paperoga intendeva" ...

Se non leggi ATTENTAMENTE le risposte facciamo notte ...
aaa
20/04/08 18:30
TSP
ok capito grazie e scusa ma l'altro giorno ero un po stanco

ora il problema(nuovo) è su:

ReDim ar(0 To UBound(ar))
Load WebBrowser1(UBound(ar) + 1)
MsgBox UBound(ar)
Dim n As Integer
For n = TabStrip1.SelectedItem.index - 1 To WebBrowser1.Count - 1
ar(n) = ar(n + 1)
Next n
ReDim ar(0 To UBound(ar) - 1)
TabStrip1.Tabs.Add
Set TabStrip1.SelectedItem = TabStrip1.Tabs(TabStrip1.Tabs.Count)
TabStrip1.Tabs.Item(TabStrip1.Tabs.Count).Caption = WebBrowser1(TabStrip1.SelectedItem.index - 1).LocationName
TabStrip1.ZOrder 1

che è l'affiunta della tab

la riga ar(n) = ar(n + 1) mi da indice non compreso nell'intervallo sull n = 1
come se non esistesse ma io ho fatto il redim all'inizio... :-?:-?:-?
aaa
22/04/08 12:50
P4p3r0g4
ti staccherei la testa a morsi
il webbrowser.count -1 non va bene!!! potrebbe esserci un asincronia. devi usare i controlli sul vettore.

aggiungo che hai dichiarato
ReDim ar(0 To UBound(ar))
quindi dichiari ar = ar ovvero in questo caso c'e` solo l'elemento ar(0)
ovvio che da errore ar(n) = ar(n+1), no?
Ultima modifica effettuata da P4p3r0g4 22/04/08 12:55
aaa