📄 计划.frm
字号:
Index = 6
Left = 6600
TabIndex = 13
Top = 120
Width = 855
End
Begin VB.Label lblWeek
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "星期五"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 5520
TabIndex = 12
Top = 120
Width = 855
End
Begin VB.Label lblWeek
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "星期四"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 4440
TabIndex = 11
Top = 120
Width = 855
End
Begin VB.Label lblWeek
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "星期三"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 3360
TabIndex = 10
Top = 120
Width = 855
End
Begin VB.Label lblWeek
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "星期二"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 2280
TabIndex = 9
Top = 120
Width = 855
End
Begin VB.Label lblWeek
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "星期一"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 1200
TabIndex = 8
Top = 120
Width = 855
End
Begin VB.Label lblWeek
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "星期日"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 120
TabIndex = 7
Top = 120
Width = 855
End
Begin VB.Line Line3
BorderColor = &H80000010&
X1 = 1080
X2 = 1080
Y1 = 0
Y2 = 480
End
Begin VB.Line Line4
BorderColor = &H80000010&
X1 = 3240
X2 = 3240
Y1 = 0
Y2 = 495
End
Begin VB.Line Line5
BorderColor = &H80000010&
X1 = 2160
X2 = 2160
Y1 = 0
Y2 = 495
End
Begin VB.Line Line6
BorderColor = &H80000010&
X1 = 4320
X2 = 4320
Y1 = 0
Y2 = 495
End
Begin VB.Line Line7
BorderColor = &H80000010&
X1 = 5400
X2 = 5400
Y1 = 0
Y2 = 495
End
Begin VB.Line Line8
BorderColor = &H80000010&
X1 = 6480
X2 = 6480
Y1 = 0
Y2 = 480
End
Begin VB.Line Line9
BorderColor = &H80000005&
X1 = 6490
X2 = 6490
Y1 = 0
Y2 = 480
End
Begin VB.Line Line10
BorderColor = &H80000005&
X1 = 5410
X2 = 5410
Y1 = 0
Y2 = 495
End
Begin VB.Line Line11
BorderColor = &H80000005&
X1 = 4330
X2 = 4330
Y1 = 0
Y2 = 495
End
Begin VB.Line Line12
BorderColor = &H80000005&
X1 = 2170
X2 = 2170
Y1 = 0
Y2 = 495
End
Begin VB.Line Line13
BorderColor = &H80000005&
X1 = 3250
X2 = 3250
Y1 = 0
Y2 = 495
End
Begin VB.Line Line14
BorderColor = &H80000005&
X1 = 1090
X2 = 1090
Y1 = 0
Y2 = 480
End
End
Begin VB.Line Line2
BorderColor = &H80000005&
X1 = 10
X2 = 7540
Y1 = 610
Y2 = 610
End
Begin VB.Line Line1
BorderColor = &H80000010&
X1 = 10
X2 = 7540
Y1 = 600
Y2 = 600
End
End
Begin VB.Label lblTitle
Alignment = 2 'Center
Caption = "我的工作计划"
Height = 375
Left = 3000
TabIndex = 4
Top = 120
Width = 2055
End
Begin VB.Label lbl04
Caption = "『蓝色▲』：工作性质一般且已完成"
ForeColor = &H00FF0000&
Height = 255
Left = 4440
TabIndex = 3
Top = 960
Width = 3135
End
Begin VB.Label lbl03
Caption = "『蓝色△』：工作性质一般且没完成"
ForeColor = &H00FF0000&
Height = 255
Left = 4440
TabIndex = 2
Top = 600
Width = 3135
End
Begin VB.Label lbl02
Caption = "『红色▲』：工作性质重要且已完成"
ForeColor = &H000000FF&
Height = 255
Left = 120
TabIndex = 1
Top = 960
Width = 3135
End
Begin VB.Label lbl01
Caption = "『红色△』：工作性质重要且没完成"
ForeColor = &H000000FF&
Height = 255
Left = 120
TabIndex = 0
Top = 600
Width = 3135
End
End
Attribute VB_Name = "jihua"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim m As Integer '星期的变量，0表示星期一，1表示星期二，依此类推
Private Sub cmdNextYear_Click()
TheYear.Text = Val(TheYear.Text) + 1
If Val(TheYear.Text) > 9999 Then TheYear.Text = Year(Now)
TheMonth_Click
End Sub
Private Sub cmdPrevYear_Click()
TheYear.Text = Val(TheYear.Text) - 1
If Val(TheYear.Text) < 1 Then TheYear.Text = Year(Now)
TheMonth_Click
End Sub
Private Sub Form_Load()
Call SetCenter(Me)
TheYear.Text = Year(Now)
TheMonth.AddItem "一月"
TheMonth.AddItem "二月"
TheMonth.AddItem "三月"
TheMonth.AddItem "四月"
TheMonth.AddItem "五月"
TheMonth.AddItem "六月"
TheMonth.AddItem "七月"
TheMonth.AddItem "八月"
TheMonth.AddItem "九月"
TheMonth.AddItem "十月"
TheMonth.AddItem "十一月"
TheMonth.AddItem "十二月"
TheMonth.ListIndex = Month(Format$(Now, "yyyy-mmm-dd")) - 1
TheMonth_Click
End Sub
Sub getDay()
i = Day(DateSerial(TheYear, TheMonth.ListIndex + 2, 1) - 1)
TheDay.Clear
For j = 1 To i
TheDay.AddItem j
Next j
End Sub
Private Sub lblDay_Click(Index As Integer)
Select Case Index
Case Index
i = Index
Case Else
MsgBox "抱歉！您在选择日期时出错，请和系统开发人员联系。" & vbCr & vbCr & "联系人：张俊强 电话：0310-8181100 Email：hebeizjq@eyou.com"
Exit Sub
End Select
ThisDay = CDate(TheYear.Text & "-" & TheMonth.ListIndex + 1 & "-" & lblDay(i).Caption)
jihua2.Show 1
End Sub
Private Sub TheMonth_Click()
Dim n As Integer
Dim q As Date
Call getDay
If TheMonth.Text = "一月" Then
n = 1
ElseIf TheMonth.Text = "二月" Then
n = 2
ElseIf TheMonth.Text = "三月" Then
n = 3
ElseIf TheMonth.Text = "四月" Then
n = 4
ElseIf TheMonth.Text = "五月" Then
n = 5
ElseIf TheMonth.Text = "六月" Then
n = 6
ElseIf TheMonth.Text = "七月" Then
n = 7
ElseIf TheMonth.Text = "八月" Then
n = 8
ElseIf TheMonth.Text = "九月" Then
n = 9
ElseIf TheMonth.Text = "十月" Then
n = 10
ElseIf TheMonth.Text = "十一月" Then
n = 11
ElseIf TheMonth.Text = "十二月" Then
n = 12
End If
q = TheYear.Text & "-" & n & "-" & 1
m = DatePart("w", q)
If m > 0 Then showDay
Call OpenDB
Call ShowLblInfo(Me)
Call CloseDB
TheDay.ListIndex = Day(Date) - 1
End Sub
Sub showDay()
Dim t As Integer
For i = 0 To 36
lblDay(i).Caption = ""
lblInfo(i).Caption = ""
lblDay(i).Enabled = True
lblDay(i).BackColor = &HC0C0FF
lblInfo(i).BackColor = &HC0C0FF
lblDay(i).MousePointer = 99
lblDay(i).MouseIcon = LoadPicture(App.Path & "\resource\write.ico")
Next i
If m = m Then
t = m - 1
For i = 0 To TheDay.ListCount - 1
TheDay.ListIndex = i
If i = 0 Or i = 7 Or i = 14 Or i = 21 Or i = 28 Then lblDay(i).ForeColor = RGB(255, 0, 0)
If t > 36 Then
t = 0
End If
lblDay(t).Caption = TheDay.Text
t = t + 1
Next i
End If
For i = 0 To 36
If Trim(lblDay(i).Caption) = "" Then lblDay(i).Enabled = False
If lblDay(i).Caption = Day(Date) Then
lblDay(i).BackColor = RGB(255, 255, 0)
End If
Next i
End Sub
Private Sub TheYear_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Val(TheYear.Text) < 1 Or Val(TheYear.Text) > 9999 Then
TheYear = Year(Now)
End If
TheMonth_Click
TheYear.SetFocus
TheYear.SelStart = 0
TheYear.SelLength = Len(Trim(TheYear.Text))
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -