Visual Basic 6 - webbrowser con le matrici e tabstrip

Dim ar() As Long

grazie ma tra i miei tentativi c'era stato anche quello. comunque facendo il redim mi viene dato l'errore che ho citato sopra, come rimediare???

grazie per l'aiuto

ha ragione BigG

Dim Ar() as long

poi prima di usare qualsiasi valre di ar devi dargli un redim di partenza indicandogli un numero di elementi
es: redim preserve ar(0 to 0)
ti crea l'elemento ar (0)
poi ogni volta che ti servira` una nuova scheda aumenti l'intervallo ar di 1
redim preserve ar(0 to ubound(ar) +1)

si grazie, ma perchè mi dice "matrice gia dimensionata" ??

Dato che adesso non si sa piu' quale codice usi, mostra il codice che ti da' l'errore e la riga dove hai l'errore ...

dichiarazioni generali

dim ar(0) as variant

form load

Private Sub Form_Load()
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)
Dim home As String
Open App.Path & "\home.dat" For Input As #1
home = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
WebBrowser1(TabStrip1.SelectedItem.index - 1).Navigate home
End Sub

clic su una tab

On Error Resume Next
TabStrip1.ZOrder 1
For x = 0 To WebBrowser1.Count - 1
WebBrowser1(x).Visible = False
Next x
'WebBrowser1(TabStrip1.SelectedItem.index - 1).Visible = True
WebBrowser1(ar(TabStrip1.SelectedItem.index)).Visible = True
Combo1.Text = WebBrowser1(TabStrip1.SelectedItem.index - 1).LocationURL
TabStrip1.SelectedItem.Caption = WebBrowser1(TabStrip1.SelectedItem.index - 1).LocationName
Timer3.Enabled = True

elimina

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

sulla seconda riga di questo mi da indice non compreso nell'intervallo (se metto redim come commento perchè altrimenti mi da errore su quello


For n = TabStrip1.SelectedItem.index - 1 To WebBrowser1.Count - 1
ar(n) = ar(n + 1)
Next n

Scusa TSP ... ma ti e' stato detto di usare

Dim ar() As Long

e tu scrivi

dim ar(0) as variant

???

Boh ...

idem con long e anche se inserisco Dim ar(0) As Long nel form load invece che nelle dic generali ma non fa l'errore del redim se inserisco Dim ar() As Long(sia nel form load che nelle dic generali)