如何在VB.NET中为员工排班日历添加并展示每月日期？

常见失效原因排查 #

• 首先确认listFlday列表是否完成初始化：如果仅声明了列表变量但未将界面上的FlowLayoutPanel控件按排列顺序添加到列表中，调用代码时找不到对应容器，自然不会显示日期标签
• 确认参数传递正确：startdayAtf1Number为当月1号对应星期的序号（需和FlowLayoutPanel的排列顺序对应，比如周一排第一个就传1，周日排第一个就传7），totalDaysInmonth为当月总天数，参数错误会导致索引越界或日期错位
• 检查是否开启了错误忽略：如果代码中包含On Error Resume Next语句，索引越界等运行时错误会被直接忽略，导致循环中途终止没有任何输出

调整后代码 #

首先补充listFlday初始化逻辑（写在窗体加载事件中，示例按6行7列共42个面板的常规日历布局排列，可根据你的实际界面调整）：

' 窗体加载时初始化FlowLayoutPanel列表，按你界面的排列顺序把所有面板加进去
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    listFlday = New List(Of FlowLayoutPanel) From {
        flp1, flp2, flp3, flp4, flp5, flp6, flp7,
        flp8, flp9, flp10, flp11, flp12, flp13, flp14,
        flp15, flp16, flp17, flp18, flp19, flp20, flp21,
        flp22, flp23, flp24, flp25, flp26, flp27, flp28,
        flp29, flp30, flp31, flp32, flp33, flp34, flp35,
        flp36, flp37, flp38, flp39, flp40, flp41, flp42
    }
End Sub

修改核心日期添加方法，增加边界校验避免异常：

Private Sub AddlLabelDayToF1Day(ByVal startdayAtf1Number As Integer, ByVal totalDaysInmonth As Integer)
    ' 清空所有面板原有内容
    For Each fl As FlowLayoutPanel In listFlday
        fl.Controls.Clear()
    Next

    ' 先校验参数合法性
    If startdayAtf1Number < 1 OrElse startdayAtf1Number > 7 Then
        MessageBox.Show("星期序号参数错误，范围应为1-7")
        Exit Sub
    End If
    If totalDaysInmonth < 28 OrElse totalDaysInmonth > 31 Then
        MessageBox.Show("当月天数参数错误，范围应为28-31")
        Exit Sub
    End If
    If listFlday.Count = 0 Then
        MessageBox.Show("FlowLayoutPanel列表未初始化")
        Exit Sub
    End If

    Dim maxIndex As Integer = listFlday.Count - 1
    For i As Integer = 1 To totalDaysInmonth
        Dim targetIndex = (i - 1) + (startdayAtf1Number - 1)
        ' 避免索引越界
        If targetIndex > maxIndex Then
            MessageBox.Show("FlowLayoutPanel数量不足，请补充列表元素")
            Exit Sub
        End If

        Dim lbl As New Label
        lbl.Name = $"lblDay{i}"
        lbl.AutoSize = False
        lbl.TextAlign = ContentAlignment.MiddleRight
        lbl.Size = New Size(107, 23)
        lbl.Text = i.ToString()
        lbl.Font = New Font("Microsoft Sans Serif", 12)
        ' 调试阶段可以加背景色方便排查显示问题
        ' lbl.BackColor = Color.White
        listFlday(targetIndex).Controls.Add(lbl)
    Next
End Sub

调用示例 #

在月份切换、窗体初始化的位置调用即可：

' 示例：显示2024年5月日历，5月1日为周三，若周一为第一个面板则startdayAtf1Number传3，当月共31天
AddlLabelDayToF1Day(3, 31)

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