的来源
我的初学者进入vb.net和我阻止我想让我的软件采取文本,并写入网站上一行一行的ID
这是我使用的代码
Public Class Form1
Dim streamer As IO.File
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
TextBox5.Text = OpenFileDialog1.FileName
Dim R As New IO.StreamReader("C:" & TheFileName.text & ".txt")
TheText.Text = R.ReadToEnd
R.Close()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
WebBrowser1.Document.GetElementById("u_0_1").SetAttribute("value", TextBox5.Text)
End Sub
End Class
按钮5是开始按钮,按钮1是上传TXT文件按钮textbox1是文本
为了防止混淆,您应该为控件提供有意义的名称,而不是vb的默认名称。所以TextBox5应该是tbFilename, button1应该是buttReadFile等等。
我已经修改了你的例子。希望这能奏效。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
Textbox5.Text = OpenFileDialog1.FileName
TheText.Text = IO.File.ReadAllText(OpenFileDialog1.FileName)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
WebBrowser1.Document.GetElementById("u_0_1").SetAttribute("value", TheText.Text)
End Sub
End Class
OpenFileDialog1.FileName
应该是文件的完整路径,所以我们只使用Io.File.ReadAllText
读取它。当你把它写入浏览器时我们使用的是filename文本框而不是TheText文本框