Как наложить на форму количество лейблов, соответствующих количеству дней в месяце? - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Продолжаю писать прогу "график работы" и возник вопрос... Как не вручную, а программно положить на форму лейблов, число которых будет соответствовать числу дней в месяце? Предыдущий вариант моей программы использовал заготовленную форму с 31 лейблом, что не очень удобно, так как в разных месяцах, разное количество дней(что сбивает с понтолыги юзера))... P.S. как программно убирать с формы её элементы(лейблы, текстбоксы, кнопки и т.д...) ?

Решение задачи: «Как наложить на форму количество лейблов, соответствующих количеству дней в месяце?»

textual
Листинг программы
  1. Private Sub Form_Load()
  2. Dim i%
  3. Label1(0).Visible = False
  4. For i = 1 To DateSerial(Year(Date), Month(Date) + 1, 1) - DateSerial(Year(Date), Month(Date), 1)
  5.   Load Label1(i)
  6.     With Label1(i)
  7.     .Visible = True
  8.     .BorderStyle = 1
  9.     .Caption = i
  10.     .Width = 390
  11.     .Height = 390
  12.     .Top = 390
  13.     .Left = i * 400
  14.    End With
  15. Next i
  16. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы