如何使用VB.Net加载截至当前月份的ComboBox选项？

前端ASPX代码 #

保留你原有的ASPxComboBox控件：

<dx:ASPxComboBox ID="cmbMonth" runat="server" AutoPostBack="true"></dx:ASPxComboBox>

后台VB.NET代码 #

在页面的后台代码（.aspx.vb文件）中，添加以下逻辑绑定月份选项：

首先引入必要的命名空间：

Imports System.Globalization

然后在Page_Load事件中处理绑定逻辑：

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Not IsPostBack Then
        ' 获取当前系统的月份（1代表一月，12代表十二月）
        Dim currentMonth As Integer = DateTime.Now.Month
        
        ' 循环生成从一月到当前月份的选项
        For monthNum As Integer = 1 To currentMonth
            ' 获取当前月份的中文名称（如"一月"）
            Dim monthDisplayName As String = CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(monthNum)
            ' 向ComboBox添加选项，Value存储月份数字，Text显示月份名称
            cmbMonth.Items.Add(New ListItem(monthDisplayName, monthNum.ToString()))
        Next
    End If
End Sub

关键说明 #

• 加入Not IsPostBack判断是为了避免页面回发时重复绑定选项，导致ComboBox出现重复条目
• 如果需要显示英文月份名称，无需额外修改，GetMonthName会根据当前系统文化自动适配；若要强制指定语言，可替换CultureInfo.CurrentCulture为New CultureInfo("en-US")之类的特定文化对象
• 绑定的选项中，Value存储的是月份数字（1-12），方便后续业务逻辑中直接获取选中的月份数值

内容的提问来源于stack exchange，提问作者Una O Lian