N
nicolecausey
Guest
I am getting an error can someone help me
Public Class frmHTMLReader
Private Sub btnGo_Click(sender As Object, e As EventArgs) Handles btnGo.Click
WebBrowser.Navigate(txtURL.Text)
End Sub
Private Sub btnHtml_Click(sender As Object, e As EventArgs) Handles btnHtml.Click
txtHTML.Clear()
txtHTML.Text = WebBrowser.DocumentText
End Sub
Private Sub btnLoad_Click(sender As Object, e As EventArgs) Handles btnLoad.Click
Dim fileNum As Integer = FreeFile()
Dim TempS As String = ""
Dim TempL As String
FileOpen(fileNum, "MovieList.txt", OpenMode.Input)
Do Until EOF(fileNum)
TempL = LineInput(fileNum)
TempS = +-TempL + vbCrLf right here is where the error is. Cant put string to a double
Loop
FileClose()
txtHTML.Text = TempS
End Sub
End Class
Continue reading...
Public Class frmHTMLReader
Private Sub btnGo_Click(sender As Object, e As EventArgs) Handles btnGo.Click
WebBrowser.Navigate(txtURL.Text)
End Sub
Private Sub btnHtml_Click(sender As Object, e As EventArgs) Handles btnHtml.Click
txtHTML.Clear()
txtHTML.Text = WebBrowser.DocumentText
End Sub
Private Sub btnLoad_Click(sender As Object, e As EventArgs) Handles btnLoad.Click
Dim fileNum As Integer = FreeFile()
Dim TempS As String = ""
Dim TempL As String
FileOpen(fileNum, "MovieList.txt", OpenMode.Input)
Do Until EOF(fileNum)
TempL = LineInput(fileNum)
TempS = +-TempL + vbCrLf right here is where the error is. Cant put string to a double
Loop
FileClose()
txtHTML.Text = TempS
End Sub
End Class
Continue reading...