Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 布尔属性将不会设置为True_Vb.net_Boolean - Fatal编程技术网

Vb.net 布尔属性将不会设置为True

Vb.net 布尔属性将不会设置为True,vb.net,boolean,Vb.net,Boolean,我有一个非常基本的表单,上面有1个标签、文本框和按钮 单击“确定”按钮时,我需要检查文本框(txtserver)是否为空。如果是这样,我将属性ServersError设置为True 然而,我用于此的IIF语句不起作用。然后我直接将ServersError设置为True(正如您在代码中看到的),但由于某种原因,当我直接输出结果时,它仍然返回False 我是疯了,还是这里发生了什么奇怪的事?!谢谢 Public Class formServers Private m_ServersErro

我有一个非常基本的表单,上面有1个标签、文本框和按钮

单击“确定”按钮时,我需要检查文本框(
txtserver
)是否为空。如果是这样,我将属性
ServersError
设置为
True

然而,我用于此的
IIF
语句不起作用。然后我直接将
ServersError
设置为
True
(正如您在代码中看到的),但由于某种原因,当我直接输出结果时,它仍然返回
False

我是疯了,还是这里发生了什么奇怪的事?!谢谢

Public Class formServers

    Private m_ServersError As Boolean = False   ' Whether or not there is an error with the specified servers

    Public Property ServersError() As Boolean
        Get
            ServersError = m_ServersError
        End Get
        Private Set(value As Boolean)
            m_ServersError = ServersError
        End Set
    End Property

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
        'Me.ServersError = IIf(Me.txtServers.Text.Length = 0, True, False)
        Me.ServersError = True
        MsgBox(Me.ServersError)
        Me.Hide()
    End Sub

End Class

我不是VB的人,但不应该是这样吗

Public Class formServers

    Private m_ServersError As Boolean = False   ' Whether or not there is an error with the specified servers

    Public Property ServersError() As Boolean
        Get
            ServersError = m_ServersError
        End Get
        Private Set(value As Boolean)
            m_ServersError = value ' <--------------- changed here
        End Set
    End Property

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
        'Me.ServersError = IIf(Me.txtServers.Text.Length = 0, True, False)
        Me.ServersError = True
        MsgBox(Me.ServersError)
        Me.Hide()
    End Sub

End Class
公共类formServers
Private m_ServersError As Boolean=False'无论指定的服务器是否存在错误
公共属性ServersError()为布尔值
得到
ServersError=m_ServersError
结束
私有集(值为布尔值)

m_ServersError=值“正确”。谢谢,我看不见!