런타임시 명령 단추에 텍스트 추가

Question

양식에 14 개의 명령 단추가 있습니다. 내가하고 싶은 일은 현재 날짜를 기준으로 양식의 텍스트를 변경하는 것입니다. button1은 오늘 날짜 여야합니다. button2에는 tommorows 날짜가 있어야합니다. button3에는 내일 이후 날짜가 있어야합니다. 나는 이것을 14 개의 버튼으로 원한다.

각 button.text를 각 날짜에 할당하여 수동으로 수행 할 수 있습니다. 루프를 사용하여 수동으로 수행 할 수 있습니다. 그것이 가능합니다. 내 단추의 이름은 button1, button2, button3, button4 등이며 14 번 유료 단추입니다. 그리고 원하는 텍스트는 현재 날짜에서 14 일 후입니다 ... basiocally 버튼을 클릭하면 이 가능합니다. visual studio 및 vb.net을 사용합니다.

Answer 1

이 같은 것을 시도

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 

Answer 2

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 

코드를 load 이벤트에 삽입하십시오.

Answer 3

폼의 컨트롤 컬렉션을 반복 할 수 있으며 컨트롤 종류가 단추 인 경우 해당 규칙 주위에 몇 가지 규칙을 코딩 할 수 있습니다.

Answer 4

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 

Answer 5

뭔가를 시도 할 수 :

나는 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