Help: I want to use VB to do a date, please help see greatly, thank you!-CodePudding

Date:
1, and Y direction
2, up and down three lines
3, the date below
4, among a few
5, above the rest day (can be identified manually)
6, size, scalable
Around 7, can drag

Rest day Sue Hugh
Week Monday Tuesday Wednesday Thursday Friday Saturday Sunday Monday Tuesday
Date 12/15 12/16 12/17 12/18 12/19 12/20 12/21 12/22 12/23

CodePudding user response:

To get a first design come out and see...

CodePudding user response:

Good, began to try ah. Made will have any practical problems.

CodePudding user response:

Suggest using the MonthView controls, bold is day off, switch by double-clicking the date,

 Option Explicit 

Private Function GetIsHoliday (ByVal dt As Date) As Boolean 
'read Settings' 
End the Function 

Private Sub SetIsHoliday (ByVal dt As the Date, ByVal IsHoliday As Boolean) 
'save Settings' 
End Sub 

Private Sub MonthView1_DateDblClick (ByVal DateDblClicked As Date) 
MonthView1. DayBold (DateDblClicked)=Not MonthView1. DayBold (DateDblClicked) 
SetIsHoliday DateDblClicked, MonthView1 DayBold (DateDblClicked) 
End Sub 

Private Sub MonthView1_GetDayBold (ByVal StartDate As the Date, ByVal Count As an Integer, the State () As a Boolean) 
Dim As Long I 

For I=0 To Count - 1 
The State (I)=GetIsHoliday (DateAdd (" d ", I, StartDate)) 
Next 
End Sub