我的表单上有 14 个命令按钮。我想要做的是根据当前日期更改表单的文本。 button1 应该有今天的日期。 button2 应该有明天的日期。 button3 应该有后天日期等等。我想要十四个按钮。
我可以通过将每个 button.text 分配给每个日期来手动完成...我想使用循环来完成。是否可以。 我的按钮被命名为 button1、button2、button3、button4 等收费按钮 14。 我想要的文字是从当前日期到 14 天后... 基本上想在按钮上显示日期.. 是否有可能通过一个循环。 m 使用 Visual Studio 和 vb.net
【问题讨论】：
标签： vb.net
你可以试试
Dim dateVal As DateTime = DateTime.Today
For i As Integer = 1 To 14
Dim but As Control = Controls("button" & i)
but.Text = dateVal.ToString("dd MMM yyyy")
dateVal = dateVal.AddDays(1)
Next
【讨论】：
For Each b As Control In Me.Controls
If TypeOf b Is Button Then
Dim i As Integer = CInt(b.Name.Replace("Button", ""))
If i <= 14 Then
Dim d As DateTime = DateTime.Now.AddDays(i - 1)
b.Text = d.ToString("dd MMM yyyy")
d = d.AddDays(1)
End If
End If
Next
将代码放在加载事件中。
【讨论】：
您可以循环访问表单上的控件集合，如果控件类型是按钮，您可以围绕它编写一些规则。
【讨论】：
Private Sub ApplyDateLabelsToButtons()
Dim tmpDate As Date = DateTime.Today
For i As Integer = 1 To 14
Me.Controls("Button" & i.ToString()).Text = tmpDate.ToShortDateString()
tmpDate = DateAdd(DateInterval.Day, 1, tmpDate)
Next
End Sub
【讨论】：
试试这样的：
我用 C# 写的：
private void Form1_Load(object sender, EventArgs e)
{
int v = 0;
foreach(Control myBtn in this.Controls)
if (myBtn is Button)
{
myBtn.Text = DateTime.Today.AddDays(v).ToString();
v++;
}
}
然后提示你在VB.net中需要它，所以它在vb.net中：
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim v As Integer = 0
For Each myBtn As Control In Me.Controls
If TypeOf myBtn Is Button Then
myBtn.Text = DateTime.Today.AddDays(v).ToString()
v += 1
End If
Next
End Sub
【讨论】：