手机上的日历

来源：百度知道 编辑：UC知道 时间：2024/06/05 14:57:46
手机上的日历是怎么弄的，在上面能看每一年的日历，甚至还没到的年份的年历也能看见（例如我现在不但可以看见2009年的日历，而且可以看见2010年的日历。。。。。。)，请问这是提前将每年的年历都输入到手机了吗？还是有其他什么软件，可以自动更替?
问这问题是不是很傻,但是我还是没想通！

那就是个万年历

Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0: For i = 28 To 30
Label4(i).Visible = True
Next i
Case 1:
If Val(Combo2.Text) Mod 4 = 0 Then
For i = 29 To 30
Label4(i).Visible = False
Next i
Label4(28).Visible = True
Else
For i = 28 To 30
Label4(i).Visible = False
Next i
End If
Case 2:
For i = 28 To 30
Label4(i).Visible = True
Next i
Case 3:
For i = 27 To 29
Label4(i).Visible = True
Next i
Case 4:
For i = 28 To 30
Label4(i).Visible = True
Next i
Case 5:
For i = 27 To 29
Label4(i).Visible = True
Next i
Label4(30).Visible = False
Case 6:
For i = 28 To 30
Label4(i).Visible = True
Next i
Case 7:
For i = 28 To 30
Label4(i).Visible = True
Next i
Case 8:
For i = 27 To 29
Label4(i).Visible = True
Next i
Label4(30).Visible = Fal