Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = DateTimePicker1.Value.Month
Dim giorni As Int32
giorni = DateTime.DaysInMonth(DateTimePicker1.Value.Year, DateTimePicker1.Value.Month)
For i As Integer = 1 To giorni
Data.Columns.Add("Colonna", i)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = 1 To TextBox1.Text
Data.Rows.Add()
Next
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Data.Rows.Clear()
Data.Columns.Clear()
Dim giorni As Int32
giorni = DateTime.DaysInMonth(DateTimePicker1.Value.Year, DateTimePicker1.Value.Month)
For i As Integer = 1 To giorni
Data.Columns.Add("Suti", i)
Next
Try
For i As Integer = 1 To TextBox1.Text
Data.Rows.Add()
Next
Catch ex As Exception
End Try
End Sub
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
Label1.Text = DateTimePicker1.Value.Month
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
If Label1.Text = "1" Then
Label1.Text = "Gennaio"
End If
If Label1.Text = "2" Then
Label1.Text = "Febbraio"
End If
If Label1.Text = "3" Then
Label1.Text = "Marzo"
End If
If Label1.Text = "4" Then
Label1.Text = "Aprile"
End If
If Label1.Text = "5" Then
Label1.Text = "Maggio"
End If
If Label1.Text = "6" Then
Label1.Text = "Giugno"
End If
If Label1.Text = "7" Then
Label1.Text = "Luglio"
End If
If Label1.Text = "8" Then
Label1.Text = "Agosto"
End If
If Label1.Text = "9" Then
Label1.Text = "Settembre"
End If
If Label1.Text = "10" Then
Label1.Text = "Ottobre"
End If
If Label1.Text = "11" Then
Label1.Text = "Novembre"
End If
If Label1.Text = "12" Then
Label1.Text = "Dicembre"
End If
End Sub
Private Sub Data_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Data.CellEndEdit
Dim cella As Int32
cella = Data.Rows.Count * Data.Columns.Count
For i As Integer = 1 To cella
Next
End Sub
okins ha allegato un file: camere.zip (131101 bytes)
