Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '
- ' ADD HERE THE EVENT HANDLERS FOR THE OK AND CANCEL BUTTONS OF THE MODIFICATION OF A TASK
- '
- Private Sub clickOk(sender As Object, e As EventArgs)
- Dim result As Integer = MessageBox.Show("Are you sure you want to modify ?", "Confirmation", MessageBoxButtons.OKCancel)
- If result = DialogResult.OK Then
- With taskDisplayed
- .title = txtModifTitle.Text
- .description = txtModifDescr.Text
- If cboModifCat.SelectedIndex <> -1 Then
- .category = cboModifCat.SelectedIndex
- End If
- If chkModifDate.Checked Then
- .deadline = dateModif.Value
- End If
- End With
- CType(taskDisplayed.controls(0), Panel).Controls(0).Text = txtModifTitle.Text
- displayTask(taskDisplayed, False)
- End If
- End Sub
- Private Sub clickCancel(sender As Object, e As EventArgs)
- Dim result As Integer = MessageBox.Show("Are you sure you want to cancel ?", "Confirmation", MessageBoxButtons.OKCancel)
- If result = DialogResult.OK Then
- displayTask(taskDisplayed, False)
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement