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