Web: Gå til adresse fra fil

noget i den stil:
http://hjem.get2net.dk/sjh/eksperten/467213/vbBrowser.zip

Ja, og dog, for så vidt jeg kan se, så går den bare tilbage til den første hvis man trykker videre, men det er jo ikke meningen

Den skal stoppe når man er ved den sidste og frem-knappen skal derfor blive slået fra

omvendt med tilbage-knappen

Alt andet er bare totalt fedt

Lige en anden ting, jeg bruger ikke et array af knapper

der mangler lige lidt i Form_Load()


Private Sub Form_Load()
Dim strLine As String
Dim intLarst As Integer
  ReDim arrUrls(0) As String
  Open "vbBrowser.txt" For Input As #1
    Do While Not EOF(1)
      Line Input #1, strLine
      If Len(Trim$(strLine)) Then
        intLarst = (UBound(arrUrls) + 1)
        ReDim Preserve arrUrls(intLarst) As String
        arrUrls(intLarst) = strLine
      End If
    Loop
  Close #1
  intSel = 1
  If UBound(arrUrls) > 0 Then
    Call GoURL(arrUrls(intSel))
      Else
    cmdGo(0).Enabled = False
    cmdGo(1).Enabled = False
    WebBrowser1.GoHome
  End If
End Sub

Har løst det med Array-knapperne ;)

Hvad er forskellen på de to stumper kode ??

---Første---

Private Sub Form_Load()
Dim strLine As String
Dim intLarst As Integer
  ReDim arrUrls(0) As String
  Open "vbBrowser.txt" For Input As #1
    Do While Not EOF(1)
      Line Input #1, strLine
      If Len(Trim$(strLine)) Then
        intLarst = (UBound(arrUrls) + 1)
        ReDim Preserve arrUrls(intLarst) As String
        arrUrls(intLarst) = strLine
      End If
    Loop
  Close #1
  intSel = 1
  Call GoURL(arrUrls(intSel))
End Sub

---Første---

---Anden---

Private Sub Form_Load()
Dim strLine As String
Dim intLarst As Integer
  ReDim arrUrls(0) As String
  Open "vbBrowser.txt" For Input As #1
    Do While Not EOF(1)
      Line Input #1, strLine
      If Len(Trim$(strLine)) Then
        intLarst = (UBound(arrUrls) + 1)
        ReDim Preserve arrUrls(intLarst) As String
        arrUrls(intLarst) = strLine
      End If
    Loop
  Close #1
  intSel = 1
  Call GoURL(arrUrls(intSel))
End Sub

---Anden---

Anden skulle selvfølgelig være denne her kode:

Private Sub Form_Load()
Dim strLine As String
Dim intLarst As Integer
  ReDim arrUrls(0) As String
  Open "vbBrowser.txt" For Input As #1
    Do While Not EOF(1)
      Line Input #1, strLine
      If Len(Trim$(strLine)) Then
        intLarst = (UBound(arrUrls) + 1)
        ReDim Preserve arrUrls(intLarst) As String
        arrUrls(intLarst) = strLine
      End If
    Loop
  Close #1
  intSel = 1
  If UBound(arrUrls) > 0 Then
    Call GoURL(arrUrls(intSel))
      Else
    cmdGo(0).Enabled = False
    cmdGo(1).Enabled = False
    WebBrowser1.GoHome
  End If
End Sub

If UBound(arrUrls) > 0 Then
    Call GoURL(arrUrls(intSel))
      Else
    cmdGo(0).Enabled = False
    cmdGo(1).Enabled = False
    WebBrowser1.GoHome
  End If

Ahhh, sådan at knapperne ikke kan bruges hvis der ikke er noget i filen!

Smart

Vil du have de point som du har fortjent ?

det er fint nok med de 30 point.. det betyder ikke så meget for mig ;)