在If语句中使用Function值(在Form Load期间)

时间:2014-07-11 10:37:48

标签: vb.net

美好的一天, 这是我的第一篇文章。我是VB .Net的新手,从Stackoverflow.com学到了很多东西

我想将Function返回的值(true / false)用于Form Load事件的If语句。如果函数值为False,则消息框显示“未运行”,否则。

以下是示例代码。我正在使用应用程序供应商提供的API库来构建一个小应用程序。  我还尝试在结束函数之前使用“Return CreateX”和“CreateX()= True”。由于某种原因,即使我的进程正在运行,它也始终只返回一种类型的pf消息。

Public GlobalX As appLib.Api

Public Function CreateX() As Boolean

    GlobalX = CreateObject("ABCD")

    If GlobalX Is Nothing Then
        CreateX = False
    Else
        CreateX = True
    End If

End Function

Private Sub APP_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 If CreateX() = False Then

        MsgBox(" NOT Running!!")
    Else

        MsgBox("Running!!")

    End If
    End Sub 

请问你能帮助我做到这一点吗?提前致谢。

1 个答案:

答案 0 :(得分:0)

尝试用这个替换你的功能;

Public Function CreateX() As Boolean

    GlobalX = CreateObject("ABCD")

    If GlobalX Is Nothing Then
        return False
    Else
        return True
    End If

End Function

对于该方法,它应该没问题,或者更好的方法来验证boolean;

Private Sub APP_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If NOT CreateX()   Then

    MsgBox(" NOT Running!!")
Else

    MsgBox("Running!!")

End If
End Sub