Question

用VB制作一个类似电脑系统自带的日历，不用其他控件之类，求代码

Answer 1

我自己写了段代码，你研究研究啊！~新建工程然后粘贴就行了！~Private Sub Form_Load()
Me.AutoRedraw = True
Me.ScaleMode = 3 '日历
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