Advertisement
Guest User

Untitled

a guest
Apr 24th, 2017
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 4.52 KB | None | 0 0
  1.  If Not modifiable Then
  2.             'WRITE HERE THE CODE FOR CREATING THE CONTROLS NEEDED FOR DISPLAYING A TASK THAT CANNOT BE MODIFIED
  3.             '=> LABELS
  4.             Dim lblTitle As New Label
  5.             Dim lblDescription As New Label
  6.             Dim lblCategory As New Label
  7.             Dim lblDeadline As New Label
  8.  
  9.             Dim cat As String
  10.  
  11.             Select Case task.category
  12.                 Case Category.family
  13.                     cat = "family"
  14.                 Case Category.home
  15.                     cat = "home"
  16.                 Case Category.home
  17.                     cat = "homework"
  18.                 Case Category.leisure
  19.                     cat = "leisure"
  20.                 Case Else
  21.                     cat = "homework"
  22.             End Select
  23.  
  24.             'Initializing lblTitle
  25.             lblTitle.Text = "Title : " + task.title
  26.             lblTitle.MaximumSize = New Size(190, 0)
  27.             lblTitle.AutoSize = True
  28.             lblTitle.Location = New Point(10, 0)
  29.  
  30.             'Initializing lblDescription
  31.             lblDescription.Text = "Description : " + task.description
  32.             lblDescription.AutoSize = True
  33.             lblDescription.MaximumSize = New Size(190, 100)
  34.             lblDescription.Location = New Point(10, 15)
  35.  
  36.             'Initializing lblCategory
  37.             lblCategory.Text = "Category : " + cat
  38.             lblCategory.AutoSize = True
  39.             lblCategory.Location = New Point(10, 120)
  40.  
  41.             'Initializing lblDeadline
  42.             lblDeadline.Text = "Deadline : " + task.deadline.Day.ToString + "/" + task.deadline.Month.ToString + "/" + task.deadline.Year.ToString
  43.             lblDeadline.AutoSize = True
  44.             lblDeadline.Location = New Point(10, 135)
  45.  
  46.             With pnlTask
  47.                 .Controls.Add(lblTitle)
  48.                 .Controls.Add(lblDescription)
  49.                 .Controls.Add(lblCategory)
  50.                 .Controls.Add(lblDeadline)
  51.             End With
  52.         Else
  53.             'WRITE HERE THE CODE FOR CREATING THE CONTROLS NEEDED FOR DISPLAYING A TASK THAT CAN BE MODIFIED
  54.             '=> TEXTBOX, COMBOBOX, CHECKBOX AD  DATETIMEPICKER
  55.             '=> OK AND CANCEL BUTTONS
  56.             'references to controls that will be used to modify a task
  57.             txtModifTitle = New TextBox
  58.             txtModifDescr = New TextBox
  59.             cboModifCat = New ComboBox
  60.             chkModifDate = New CheckBox
  61.             dateModif = New DateTimePicker
  62.             Dim btnOk As New Button
  63.             Dim btnCancel As New Button
  64.  
  65.             'Initializing txtModifTitle
  66.             txtModifTitle.Text = task.title
  67.             txtModifTitle.Width = 150
  68.  
  69.             'Initializing txtModifDescr
  70.             With txtModifDescr
  71.                 .Text = task.description
  72.                 .Height = 90
  73.                 .Width = 190
  74.                 .Multiline = True
  75.                 .Top = txtModifTitle.Top + txtModifTitle.Height + 5
  76.             End With
  77.  
  78.             'Initializing cboModifCat
  79.             cboModifCat.Top = txtModifDescr.Top + txtModifDescr.Height + 5
  80.             Dim cats As Array
  81.             cats = System.Enum.GetValues(GetType(Category))
  82.             For Each cat In cats
  83.                 cboModifCat.Items.Add(cat)
  84.             Next
  85.             cboModifCat.SelectedIndex = task.category
  86.  
  87.  
  88.             'Initializing chkModifDate
  89.             chkModifDate.Text = "Deadline"
  90.             chkModifDate.Top = cboModifCat.Top + cboModifCat.Height + 5
  91.  
  92.             'Initializing dateModif
  93.             dateModif.Top = chkModifDate.Top + chkModifDate.Height + 5
  94.             dateModif.Width = 180
  95.  
  96.             'Initializing btnOk
  97.             btnOk.Text = "Ok"
  98.             btnOk.Top = dateModif.Top + dateModif.Height + 5
  99.             AddHandler btnOk.Click, AddressOf clickOk
  100.  
  101.             'Initializing btnCancel
  102.             btnCancel.Text = "Cancel"
  103.             btnCancel.Top = btnOk.Top
  104.             btnCancel.Left = btnOk.Left + btnOk.Width + 5
  105.             AddHandler btnCancel.Click, AddressOf clickCancel
  106.  
  107.             With pnlTask
  108.                 .Controls.Add(txtModifTitle)
  109.                 .Controls.Add(txtModifDescr)
  110.                 .Controls.Add(cboModifCat)
  111.                 .Controls.Add(chkModifDate)
  112.                 .Controls.Add(dateModif)
  113.                 .Controls.Add(btnOk)
  114.                 .Controls.Add(btnCancel)
  115.             End With
  116.  
  117.         End If
  118.             'add the panel containing the controls to the display area.
  119.             pnlTask.Location = New Point(5, 20)
  120.         grpTask.Controls.Add(pnlTask)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement