Hallo zusammen,
Ich würde gerne für jeden Monat im Jahr einen Button erstellen lassen, kann mir jemand dabei helfen?
ein ähnliches Beispiel habe ich schon Programmiert:
Ich würde gerne für jeden Monat im Jahr einen Button erstellen lassen, kann mir jemand dabei helfen?
ein ähnliches Beispiel habe ich schon Programmiert:
VB.NET-Quellcode
- Sub monteur_buttons()
- Dim u1 As Integer
- Dim u2 As Integer
- Dim u3 As Integer
- Dim u4 As Integer
- For i = 0 To TblServiceMonteureDataGridView.Rows.Count - 1
- If i <= 4 Then
- u1 = u1 + 1
- newButton = New Windows.Forms.Button
- newButton.Name = "btnButton" & i
- newButton.Text = TblServiceMonteureDataGridView.Item(1, i).Value()
- newButton.Top = 150 + u1 * 30
- newButton.Left = 410
- AddHandler newButton.Click, AddressOf ButtonClicked
- Me.Controls.Add(newButton)
- ElseIf i >= 4 And i <= 9 Then
- u2 = u2 + 1
- newButton = New Windows.Forms.Button
- newButton.Name = "btnButton" & i
- newButton.Text = TblServiceMonteureDataGridView.Item(1, i).Value()
- newButton.Top = 150 + u2 * 30
- newButton.Left = 510
- AddHandler newButton.Click, AddressOf ButtonClicked
- Me.Controls.Add(newButton)
- ElseIf i >= 9 And i <= 14 Then
- u3 = u3 + 1
- newButton = New Windows.Forms.Button
- newButton.Name = "btnButton" & i
- newButton.Text = TblServiceMonteureDataGridView.Item(1, i).Value()
- newButton.Top = 150 + u3 * 30
- newButton.Left = 610
- AddHandler newButton.Click, AddressOf ButtonClicked
- Me.Controls.Add(newButton)
- ElseIf i >= 14 And i <= 19 Then
- u4 = u4 + 1
- newButton = New Windows.Forms.Button
- newButton.Name = "btnButton" & i
- newButton.Text = TblServiceMonteureDataGridView.Item(1, i).Value()
- newButton.Top = 150 + u4 * 30
- newButton.Left = 710
- AddHandler newButton.Click, AddressOf ButtonClicked
- Me.Controls.Add(newButton)
- End If
- Next
- End Sub