Полужирная дата базы данных в MonthCalendar

Question

Я пытаюсь сделать свой номер в календаре жирным, когда в эту конкретную дату записано событие. Я искал и пытался это сделать, но я не могу.

Как я могу сделать дату полужирным, когда я сохранил событие в эту выбранную дату?

Вот что я пытался сделать, но он не мог преобразовать в 1 мерный массив даты.

mydbcon = New MySqlConnection 
    mydbcon.ConnectionString = "server=localhost;userid=root;password=root;database=database" 
    Dim reader As MySqlDataReader 
    Dim bold = Form4.MonthCalendar1.SelectionRange.Start.Month 
    Try 
     mydbcon.Open() 
     Dim Query As String 
     Query = "Insert into database.calendar (eventname,Date,Time,Description) Values ('" & TextBox2.Text & "','" & Form4.MonthCalendar1.SelectionRange.Start & "','" & ComboBox1.SelectedItem & "','" & TextBox1.Text & "')" 
     COMMAND = New MySqlCommand(Query, mydbcon) 
     reader = COMMAND.ExecuteReader 
     MessageBox.Show("Event Succesfully Saved") 

     Form4.MonthCalendar1.BoldedDates = bold 
     mydbcon.Close() 
    Catch ex As MySqlException 
     MessageBox.Show(ex.Message) 
    Finally 
     mydbcon.Dispose() 
    End Try 

Answer 1

Добавление смелых дат в календарь - пример:

MonthCalendar1.AddBoldedDate(CDate("03-12-2015")) 
    MonthCalendar1.UpdateBoldedDates() 

чтение дата из базы данных - например:

mydbcon = New MySqlConnection 
    mydbcon.ConnectionString = "server=localhost;userid=root;password=root;database=database" 
    Dim reader As MySqlDataReader 

    Try 
     mydbcon.Open() 
     Dim Query As New MySql.Data.MySqlClient.MySqlCommand 
     Dim eventDate As String 
     Query.Connection = mydbcon 
     Query.CommandText = "SELECT Date FROM database ORDER BY Date" 
     reader = Query.ExecuteReader 

     If reader.HasRows = True Then 
      While reader.Read 
       eventDate = reader.GetValue(reader.GetOrdinal("Date")).ToShortDateString 
       MonthCalendar1.AddBoldedDate(CDate(eventDate)) 
      End While 
      reader.Close() 
      MonthCalendar1.UpdateBoldedDates() 
     End If 

     mydbcon.Close() 
    Catch ex As MySqlException 
     MessageBox.Show(ex.Message) 
    Finally 
     mydbcon.Dispose() 
    End Try