0
下面顯示的代碼應該允許頁面上的任何按鈕改變顏色,除了在第一個if
聲明中指定的那個。此代碼正在工作,但現在單擊按鈕時什麼也不做。該按鈕應該變成黃色,但只是保持默認顏色。無論如何,我可以操縱代碼,所以只有一個按鈕可以一次變紅,而不是允許多個紅色按鈕。在閱讀到這一點。我無法找到任何幫助vb。誰能幫忙?多個按鈕,一個事件來改變點擊按鈕的顏色
個人而言,我認爲這可能與Public Sub
有關,因爲消息框在字段爲空時不會顯示。
Public Sub btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
Try
Dim btn As Button = sender
If btn.Name = "BtnUpdate" Or btn.Name = "BtnBackCust" Or btn.Name = "BtnConfirm" Then
ElseIf TxtFirstName.Text = "" Or TxtLastName.Text = "" Or TxtAddress.Text = "" Or cboCountry.SelectedItem = "" Or cboRoomType.SelectedItem = "" Then
MsgBox("You must populate all fields")
Else
btn.BackColor = Color.Red
btn.Text = ChosenRoom
End If
Catch ex As Exception
End Try
End Sub
也許如果你讓代碼拋出異常而不是隱藏它,你可能會發現你的問題。您是否嘗試設置斷點以查看點擊時發生了什麼?你確定它甚至會參加這個活動嗎? –
對於您的其他問題,您可以將當前紅色的按鈕的名稱保存在某個變量中。 –