在Visual Basic中传递字符串值

Question

我在尝试传递字符串数据类型的值时遇到了问题。

我能做些什么来解决这个问题？

发件人：

Private Sub verButton_Click(sender As Object, e As EventArgs) Handles verButton.Click 
     If chkauth.auth(csBox.Text, pwBox.Text) Then 
      mainForm.Enabled = True 
      infoLbl.Visible = False 
     Else 
      infoLbl.Visible = True 
     End If 
    End Sub 

收件人：

Public Function auth(ByVal cs As String, ByVal pw As String) 
     Select Case cs 
      Case "Chauix" 
       If pw = "ihartcha" Then 
        MsgBox("Authentication successful!", MsgBoxStyle.Information, "Success") 
        Return True 
       Else 
        Return False 

       End If 

      Case "Brink" 
       If pw = "Jesusismylife" Then 
        MsgBox("Authentication successful!", MsgBoxStyle.Information, "Success") 
        Return True 
       Else 
        Return False 

       End If 

      Case Else 
       Return False 

     End Select 

    End Function 

它总是导致一个错误，当我尝试执行，导致它的事件。

Answer 1

不知道你得到什么错误，请指教。你的函数'auth'没有返回类型 - 首先这样做，并且启用严格选项和显式选项，这将帮助你在代码中找到可能缺少类型或声明的其他地方。这样

更改功能：

auth(ByVal cs As String, ByVal pw As String) as Boolean 

这里是在这些选项页：http://msdn.microsoft.com/en-us/library/zcd4xwzs.aspx

Answer 2

我已经改变了你的代码一点并运行它作为一个VB应用程序，它的工作原理完全。看看下面的代码：

Public Class Form1 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    If auth(TextBox1.Text, TextBox2.Text) Then 
     MsgBox("Authentication successful!", MsgBoxStyle.Information, "Success") 
    Else 
     MsgBox("Authentication failed!", MsgBoxStyle.Critical, "Failed") 
    End If 
End Sub 

Public Function auth(ByVal cs As String, ByVal pw As String) 
    Select Case cs 
     Case "demo1" 
      If pw = "100" Then 
       Return True 
      Else 
       Return False 

      End If 

     Case "demo2" 
      If pw = "100" Then 
       Return True 
      Else 
       Return False 

      End If 

     Case Else 
      Return False 

    End Select 

End Function 

末级

我希望这能解决你的问题。