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
Ultima modifica effettuata da TSP il 15/04/2008 alle 19:37 |