Question

VB做万年历

用VB做一个万年历，用什么方法可以做出来？

Answer 1

我写了段代码，你参考参考啊！~ Private Sub Form_Load()
Me.ScaleMode = 3
Me.AutoRedraw = True
'日历
Dim d, td, tw, fw, m, X
Dim TDate As String
td = 0
TDate = Date ' "2010-3-29"
y = Year(TDate)
m = Month(TDate)
d = Day(TDate)
Dim mm
mm = Array(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
If ((y Mod 4 = 0) And (y Mod 100 <> 0)) Or (y Mod 400 = 0) Then mm(2) = 29
tw = DatePart("w", TDate, vbMonday, vbFirstJan1)
fw = IIf(tw - (d Mod 7) + 1 > 0, tw - (d Mod 7) + 1, tw - (d Mod 7) + 8)
CurrentX = 55
CurrentY = 28
Me.ForeColor = &H80000012
Print Format(Date, "yyyy年mm月dd日")
'Line (54, 40)-(138, 41), , BF
CurrentX = 25
CurrentY = 45
Me.ForeColor = &HC0C000
Print "一 二 三 四 五 六 日"
For y = 1 To 6
For X = 1 To 7
CurrentX = (X - 1) * 24 + 25
CurrentY = (y - 1) * 16 + 60
If (y - 1) * 7 + X >= fw Then td = td + 1
If td > mm(Month(TDate)) Then Exit For

If td > 0 Then
If d = td Then Me.ForeColor = vbRed Else Me.ForeColor = &H80000012
Print Format(td, "@@")
End If
Next
Next
End Sub

Answer 2

有一个日历控件啊，可以直接用的我下的是华军上的vb精简版。

Answer 3

笨啊！VB2008里面有！