VB.NET按钮事件问题

我的按钮有问题，我的按钮代码是

Private Sub btnCalculateCosts_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCalculateCosts.Click

它处理：

' This Calculate Costs button click event handler edits the 
' registration(costs) form to ensure it contains valid data. 
' Then, after passing control to the business class, it 
' displays the registration cost.

Dim objCourse As Course
Dim objCourseCostsFile As Course
Dim InputError As Boolean = False

' Is student ID entered properly
If Me.txtCorporateID.MaskFull = False Then
    MessageBox.Show("Enter your Corporate ID in the Corporate ID box", "Error")
    Me.txtCorporateID.Clear()
    Me.txtCorporateID.Focus()
    InputError = True
' Is student name entered properly
ElseIf Me.txtFirstName.TextLength < 1 Or _
    Me.txtFirstName.Text < "A" Then
    MessageBox.Show("Please enter your first name in the First Name box", "Error")
    Me.txtFirstName.Clear()
    Me.txtFirstName.Focus()
    InputError = True
' Is number of units entered properly
ElseIf Me.txtLastName.TextLength < 1 Or _
    Me.txtLastName.Text < "A" Then
    MessageBox.Show("Please enter your last name in the Last Name box", "Error")
    Me.txtLastName.Clear()
    Me.txtLastName.Focus()
    InputError = True
' Is number of units entered properly
ElseIf Not IsNumeric(Me.txtNumberOfDays.Text) Then
    MessageBox.Show("Enter the units in the Number of Units box", "Error")
    Me.txtNumberOfDays.Clear()
    Me.txtNumberOfDays.Focus()
    InputError = True
' Has 1-4 units been entered
ElseIf Convert.ToInt32(Me.txtNumberOfDays.Text) < 1 _
       Or Convert.ToInt32(Me.txtNumberOfDays.Text) > 4 Then
    MessageBox.Show("Units must be 1 - 4", "Error")
    Me.txtNumberOfDays.Clear()
    Me.txtNumberOfDays.Focus()
    InputError = True
End If

' If no input error, process the registration costs
If Not InputError Then
    If Me.radPreConferenceCourse.Checked = False Then
        objCourse = New Course(txtCorporateID.Text, txtFirstName.Text, txtLastName.Text, txtNumberOfDays.Text)
        Me.lblCosts.Visible = True
        Me.lblCosts.Text = "Total Conference Costs Are: " & (objCourse.ComputeCosts()).ToString("C2")
    Else
        objCourse = New Course(txtCorporateID.Text, txtFirstName.Text, txtLastName.Text, txtNumberOfDays.Text, g)
        Me.lblCosts.Visible = True
        Me.lblCosts.Text = "Total Conference Costs Are: " & (objCourse.ComputeCosts()).ToString("C2")
....

”此“计算成本”按钮单击事件处理程序可编辑
'注册（费用）表，以确保其包含有效数据。
'然后，在将控制权传递给业务类之后
'显示注册成本。
模糊对象课程作为课程
Dim objCourseCostsFile作为课程
Dim InputError为布尔值=False
'是否正确输入了学生ID
如果Me.txtCorporateID.MaskFull=False，则
Show（“在公司ID框中输入公司ID”，“错误”）
Me.txtCorporateID.Clear（）
Me.txtCorporateID.Focus（）
输入错误=真
'是否正确输入了学生姓名
ElseIf Me.txtFirstName.TextLength<1或_
Me.txtFirstName.Text<“A”然后
MessageBox.Show（“请在名字框中输入您的名字”，“错误”）
Me.txtFirstName.Clear（）
Me.txtflastname.Focus（）
输入错误=真
'是否正确输入了单位数
ElseIf Me.txtLastName.TextLength<1或_
Me.txtLastName.Text<“A”那么
MessageBox.Show（“请在姓氏框中输入您的姓氏”，“错误”）
Me.txtLastName.Clear（）
Me.txtLastName.Focus（）
输入错误=真
'是否正确输入了单位数
否则如果不是数字（Me.txtNumberOfDays.Text），则
MessageBox.Show（“在单位数框中输入单位”，“错误”）
Me.txtNumberOfDays.Clear（）
Me.txtNumberOfDays.Focus（）
输入错误=真
'是否输入了1-4个单位
ElseIf Convert.ToInt32（Me.txtNumberOfDays.Text）<1_
或者将.ToInt32（Me.txtNumberOfDays.Text）>4
MessageBox.Show（“单位必须为1-4”，“错误”）
Me.txtNumberOfDays.Clear（）
Me.txtNumberOfDays.Focus（）
输入错误=真
如果结束
'如果没有输入错误，则处理注册成本
如果不是输入者，那么
如果Me.radPreConferenceCourse.Checked=False，则
objCourse=新课程（txtCorporateID.Text、txtFirstName.Text、txtLastName.Text、txtNumberOfDays.Text）
Me.lblCosts.Visible=真
Me.lblCosts.Text=“会议总成本为：&（objCourse.ComputeCosts（））.ToString（“C2”）
其他的
objCourse=新课程（txtCorporateID.Text、txtFirstName.Text、txtLastName.Text、txtNumberOfDays.Text、g）
Me.lblCosts.Visible=真
Me.lblCosts.Text=“会议总成本为：&（objCourse.ComputeCosts（））.ToString（“C2”）
....

接收错误：

Handles子句需要在中定义的WithEvents变量 包含类型或其基类型之一的

---

btnCalculateCosts的定义在哪里14小时前的SLaks

哪里定义了

btnCalculateCosts

好问题，我不确定它是否在单独的类中定义。