Как наложить на форму количество лейблов, соответствующих количеству дней в месяце? - VB
Формулировка задачи:
Здравствуйте!
Продолжаю писать прогу "график работы" и возник вопрос...
Как не вручную, а программно положить на форму лейблов, число которых будет соответствовать числу дней в месяце?
Предыдущий вариант моей программы использовал заготовленную форму с 31 лейблом, что не очень удобно, так как в разных месяцах, разное количество дней(что сбивает с понтолыги юзера))...
P.S. как программно убирать с формы её элементы(лейблы, текстбоксы, кнопки и т.д...) ?
Решение задачи: «Как наложить на форму количество лейблов, соответствующих количеству дней в месяце?»
textual
Листинг программы
- Private Sub Form_Load()
- Dim i%
- Label1(0).Visible = False
- For i = 1 To DateSerial(Year(Date), Month(Date) + 1, 1) - DateSerial(Year(Date), Month(Date), 1)
- Load Label1(i)
- With Label1(i)
- .Visible = True
- .BorderStyle = 1
- .Caption = i
- .Width = 390
- .Height = 390
- .Top = 390
- .Left = i * 400
- End With
- Next i
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д