vb.net函数不会返回所有代码路径的值

我在VB.Net中做了一个简单的函数获取您输入到文本框中的字符串，并通过webbrower发送到文本框ID“wgo”并单击提交之后..它给我的警告“函数GetMessage（）不返回所有代码路径上的值”。如果有人知道如何解决警告，或者如何以不同的格式捕获textbox1.text消息;请告诉我。我使用的代码vb.net函数不会返回所有代码路径的值

继承人部分：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Dim elements = WebBrowser1.Document.GetElementsByTagName("input") '' or whatever tag it is 
    For Each element As HtmlElement In elements 
     GetMessage() 'Get message from textbox1 and send it 
     If element.GetAttribute("className") = "submitbut" Then 
      element.InvokeMember("click") 
      MsgBox("Your ECHO has been broadcast!") 
      Exit For 
     End If 
    Next 
    TextBox2.Text = TextBox1.Text 'Displays what the sent message was 
    TextBox1.Text = ""   'Erases old message from textbox1 
    TextBox3.Text = getCurrentDateTimeString() 'Displays the time and date it was sent 
End Sub 

Function GetMessage() 
    WebBrowser1.Document.GetElementById("wgo").SetAttribute("value", TextBox1.Text) 
End Function

任何帮助，将不胜感激！我是VB.net的新手，所以请放轻松点！再次感谢！

来源

2013-02-27 Jordan ChillMcgee Ludgate

你的函数根本没有返回任何东西！

它这是需要的行为，你应该将其更改为Sub：

Sub GetMessage() 
    WebBrowser1.Document.GetElementById("wgo").SetAttribute("value", TextBox1.Text) 
End Sub

来源

2013-02-27 22:40:53 MarcinJuraszek

哈哈，哇。我习惯于其他语言，您可以在其中定义函数并稍后调用它们。我不习惯所有较新的“功能类型？” VB提供。谢谢，它工作<3。 – 2013-02-27 22:46:54

更正：现在我得到“对象引用未设置为对象的实例。”在“WebBrowser1.Document.GetElementById（”wgo“）。SetAttribute（”value“，TextBox1.Text）”..任何想法？也许它不认可“wgo”作为ID？ – 2013-02-27 22:48:42

您可能希望将此答案标记为正确并开始一个新问题。 – 2013-02-28 00:49:58

vb.net函数不会返回所有代码路径的值

回答

相关问题