不知道我在做什麼錯在控制

好吧這是我到目前爲止。我正在嘗試執行復選框，以便一次僅檢查一個複選框。但由於某種原因，他們都會檢查。另一件事，我有那裏的標籤，但在單選按鈕，無論你檢查和提交它只是統計底部的一個。有人能幫助我，告訴我什麼，我做錯了......不知道我在做什麼錯在控制

Public Class Form1 

Dim Message As String 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load, MaskedTextBox1.TextChanged 

End Sub 

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged 
    If TextBox1.Text <> "" Then 
     ErrorProvider1.Clear() 
     Label1.Text = TextBox1.Text 
    Else 
     ErrorProvider1.SetError(TextBox1, "Please enter text") 
    End If 
End Sub 



Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateChanged 

    Me.Text = Me.MonthCalendar1.SelectionRange.Start.ToShortDateString 
End Sub 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Label2.Text = MaskedTextBox1.Text 
    Label3.Text = RadioButton1.Text 
    Label3.Text = RadioButton2.Text 
    Label3.Text = RadioButton3.Text 
    Label4.Text = CheckBox1.Text 
    Label5.Text = CheckBox2.Text 
    Label6.Text = MonthCalendar1.Text 

    Dim message As String 
    message = "" 
    If CheckBox1.Checked Then 
     message += "first one clicked" 
    End If 
    If CheckBox2.Checked Then 
     message += " second one clicked" 
    End If 
    MessageBox.Show(message) 

     End Sub 

     Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged, RadioButton2.CheckedChanged, RadioButton1.CheckedChanged 
     Dim radMessage As RadioButton = CType(sender, RadioButton) 
     If radMessage.Checked Then 
     Message = radMessage.Text 
     End If 

End Sub

末級

好吧，這是假設是什麼我的指令應該做.. 創建一個新的窗口Project。將表單的標題更改爲Lab3.drag將以下控件拖到您的表單，文本框，屏蔽的文本框（設置爲電話號碼），組框中的3個單選按鈕（容器控件），2個複選框，月份日曆，全部位於左側形式的，添加一個標籤上的右各控制中，添加一個用於ErrorProvider控件文本框和保證已輸入的數據，添加到工具提示每個控制，添加一個按鈕

任務

當過上他們得到一個提示左側任意控制用戶將鼠標移動，更改按鈕「提交」，文本當用戶時鐘的按鈕，從控制左邊的信息會出現在如果在文本框中沒有輸入任何數據，則使用errorprovider控件提示用戶輸入數據，對於所有三個單選按鈕只使用1個標籤，如果複選框選中，僅顯示每個複選框數據，請確保添加代碼擦除適當的標籤，如果用戶UNCHECKS複選框，設置控件的Tab鍵順序，以便您可以按順序在左側標籤，查看互聯網瞭解如何從日曆中檢索所選日期當用戶點擊按鈕時進行控制。

我不希望任何人都可以幫我這個忙。我正在嘗試執行代碼，但我知道我在哪裏做了些什麼。對此我仍然是一個新手。

來源

2011-06-17 andy

我不希望這個答案來解決所有的問題，你，但希望它應該證明是一個起點。

首先，你爲什麼要在任何時刻只能選擇一個複選框？我看不到這是你任務的要求？默認情況下，複選框不會顯示該行爲（這是單選按鈕的用途），但可以對其進行設置。要做到這一點，您需要查看複選框的selected_change事件，選擇其中一個時，取消選擇所有其他事件。然而，在你這樣做之前，確保它在你進行之前就是你的。

隨着單選按鈕的問題，我假設你要選擇的單選按鈕的文字設置成標籤？那麼目前你正在將選定的文本分配到一個字段Message中，但是你沒有在其他任何地方使用它。當您設置標籤，您具備以下條件：

Label3.Text = RadioButton1.Text 
Label3.Text = RadioButton2.Text 
Label3.Text = RadioButton3.Text

雖然我猜你需要沿着

Label3.Text = Message

東西線目前正在設置相同的標籤文字三次，只將顯示第三個單選按鈕文本。

在另一個說明中，我會考慮使用不同的變量名稱，因爲它可能會導致稍後的混淆。

希望得到您的地方

來源

2011-06-17 08:49:40 chillysapien

不知道我在做什麼錯在控制

回答

相關問題