2014-01-09 23 views
0

我有一個非常基本的形式,字面上有1x標籤,文本框和按鈕就可以了。布爾屬性將不會設置爲真

點擊「確定」按鈕後,我需要檢查文本框(txtServers)是否爲空。如果是這樣,我將財產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 

回答

2

我不是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 
+0

正確。謝謝,我看不到那看起來! –

相關問題