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'没有返回类型 - 首先执行此操作，并启用option strict和option explicit，这将帮助您找到代码中可能缺少类型或声明的任何其他位置。

这样的改变功能是：

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

结束班

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

在Visual Basic中传递字符串值

2 个答案: