16/04/08 11:38
P4p3r0g4
infatti
Dim ar() As Long
e` la dichiarazione giusta.
aaa
16/04/08 15:43
P4p3r0g4
allora correggiamo l'errore da cosi`
Unload WebBrowser1(TabStrip1.SelectedItem.index - 1)
For n = TabStrip1.SelectedItem.index - 1 To WebBrowser1.Count - 1
ar(n) = ar(n + 1)
Next n
ReDim Preserve ar(0 To UBound(ar) - 1)
TabStrip1.Tabs.Remove
a cosi`
Unload WebBrowser1(TabStrip1.SelectedItem.index - 1)
For n = TabStrip1.SelectedItem.index - 1 To ubound(ar) - 1
ar(n) = ar(n + 1)
Next n
ReDim Preserve ar(0 To UBound(ar) - 1)
TabStrip1.Tabs.Remove
e comunque
webbroser1(ar(tabstrip1.selectedindex.index)).visible = true
Ultima modifica effettuata da P4p3r0g4 16/04/08 15:45
aaa
16/04/08 17:27
TSP
Ultima modifica effettuata da TSP 16/04/08 17:30
aaa
17/04/08 12:07
P4p3r0g4
ar() deve essere di tipo integer
hai cambiato la sub come ti ho detto nel post precendente?
aaa
17/04/08 12:30
TSP
yes.. fatto tutto quello che avevi detto prima e ar() è integer.........
non è che non la devo metterenel form load???
Ultima modifica effettuata da TSP 17/04/08 12:32
aaa
17/04/08 13:46
P4p3r0g4
intanto nel form load manca il redim.
te l'ho gia detto, no?
prima di usare il vettore devi riempirlo con qualche elemento, no?
nel form_load c'e` ar(n)=ar(n+1)
senza che prima ar sia stato devinito.
ar() deve essere dichiarato uguale alle tabstrip.
aggiungo che nn serve a niente fare ar(n) = ar(n+1) al form load e mi viene un dubbio, hai capito il codice cosa fa?
Ultima modifica effettuata da P4p3r0g4 17/04/08 13:48
aaa