VB.NET员工类代码解析及构造函数、薪资范围功能完善求助

你的代码存在类定义不完整、构造函数缺失、属性过程规范不足，以及列表框显示逻辑未落地的问题，以下是分步修复方案：

1. 完善Employee类的完整实现 #

按照需求将类名修正为Employee（匹配Employee.vb文件），补充构造函数，完善属性过程并添加薪资范围校验：

Public Class Employee
    ' 私有字段封装
    Private _employeeNumber As String
    Private _name As String
    Private _surname As String
    Private _salaryScale As Integer

    ' 默认构造函数：初始化字段为空字符串/0
    Public Sub New()
        _employeeNumber = String.Empty
        _name = String.Empty
        _surname = String.Empty
        _salaryScale = 0
    End Sub

    ' 带参构造函数：接收所有属性并初始化
    Public Sub New(employeeNumber As String, name As String, surname As String, salaryScale As Integer)
        _employeeNumber = employeeNumber
        _name = name
        _surname = surname
        ' 校验薪资范围，非法值设为0
        _salaryScale = If(salaryScale >= 1 AndAlso salaryScale <= 5, salaryScale, 0)
    End Sub

    ' EmployeeNumber属性过程
    Public Property EmployeeNumber As String
        Get
            Return _employeeNumber
        End Get
        Set(value As String)
            _employeeNumber = value
        End Set
    End Property

    ' Name属性过程
    Public Property Name As String
        Get
            Return _name
        End Get
        Set(value As String)
            _name = value
        End Set
    End Property

    ' Surname属性过程
    Public Property Surname As String
        Get
            Return _surname
        End Get
        Set(value As String)
            _surname = value
        End Set
    End Property

    ' SalaryScale属性过程：添加输入校验
    Public Property SalaryScale As Integer
        Get
            Return _salaryScale
        End Get
        Set(value As Integer)
            _salaryScale = If(value >= 1 AndAlso value <= 5, value, 0)
        End Set
    End Property

    ' 获取薪资范围函数
    Public Function GetSalaryRange() As String
        Return Select Case _salaryScale
                   Case 1 : "R2500-R3000"
                   Case 2 : "R3001-R4000"
                   Case 3 : "R4001-R6000"
                   Case 4 : "R6001-R9000"
                   Case 5 : "R9001-R15000"
                   Case Else : "Invalid salary scale"
               End Select
    End Function
End Class

2. 实现列表框显示薪资范围的逻辑 #

假设窗体中有输入控件（txtEmpNumber、txtName、txtSurname、txtSalaryScale）和列表框lstEmployeeDetails，添加按钮点击事件完成员工信息添加与显示：

Public Class employeeDetailsForm
    Private Sub btnAddEmployee_Click(sender As Object, e As EventArgs) Handles btnAddEmployee.Click
        ' 解析并校验薪资等级输入
        Dim salaryScale As Integer
        If Not Integer.TryParse(txtSalaryScale.Text, salaryScale) Then
            MessageBox.Show("请输入1-5之间的整数薪资等级")
            Return
        End If

        ' 创建Employee实例
        Dim emp As New Employee(txtEmpNumber.Text, txtName.Text, txtSurname.Text, salaryScale)

        ' 拼接包含薪资范围的员工信息
        Dim empInfo As String = $"员工编号: {emp.EmployeeNumber}, 姓名: {emp.Name} {emp.Surname}, 薪资范围: {emp.GetSalaryRange()}"

        ' 添加到列表框
        lstEmployeeDetails.Items.Add(empInfo)

        ' 清空输入框
        txtEmpNumber.Clear()
        txtName.Clear()
        txtSurname.Clear()
        txtSalaryScale.Clear()
    End Sub
End Class

3. 常见问题排查 #

如果仍无法显示正确薪资范围，检查以下几点：

• 确认SalaryScale赋值正确：输入的1-5数值未被校验逻辑拦截（比如非整数输入会被设为0）
• 确认GetSalaryRange()调用时机：必须在SalaryScale赋值完成后调用
• 确认列表框实例正确：没有拼写错误或操作了错误的控件

内容的提问来源于stack exchange，提问作者Omphile