找一个VB日历程序。

\ \ \ '在表单上有以下控件:

\\\'picDate，picturebox

\\\'lblD(0到34)，标签，每行7个，共5行。

\\\'Shape1

还有其他的标题控制，可以自己安排！

子添加日期()

Dim R，intWekV为整数

Dim strWekV作为字符串

对于R = 0到34

lblD(R)。标题= " "

lblD(R)。BackColor = vbWhite

然后

\\\'Shape1。可见=假

将qaa标注为整数

将t，d标注为整数

将e标注为日期

e = DateSerial(YearV，MonthV，1)

qaa = DatePart("w "，e)

\ \ \ ' e = " 1 " & amp；“-”& amp；CStr(str moto(MonthV))& amp；“-”& amp；YearV

\\\'qaa = DatePart("w "，CDate(e))

t = qaa - 1

for d = 1 To Day(DateSerial(YearV，MonthV + 1，1) - 1)

如果t & gt34那么t = 0

lblD(t)。标题= d

lblD(t)。启用=真

如果t = 0或t = 7或t = 14或t = 21或t = 28或t = 6或t = 13或t = 20或t = 27或t = 34则lblD(t)。ForeColor = & ampHFF & amp；

如果d =日(现在)，MonthV =月(现在)，YearV =年(现在)，则

Shape1。可见=真

Shape1。移动lblD(t)。左- 230，lblD(t)。前60，550，305

intWekV = t Mod 7

选择案例intWekV

案例0

StrWekV = "Sunday "

案例1

StrWekV = "星期一"

案例2

StrWekV = "星期二"

案例3

StrWekV = "星期三"

案例4

StrWekV = "星期四"

案例5

StrWekV = "星期五"

案例6

StrWekV = "星期六"

结束选择

\\\' txtRemarkDate(1)。Text =年份(现在)& amp“年”&；月(现在)和。“月”&；日(现在)与时；“天，”&；strWekV

如果…就会结束

t = t + 1

然后

今天。caption = " Today:" &；年(现在)和。“-”& amp；月(现在)和。“-”& amp；日(现在)与时；" "

对于t = 0到34

如果lblD(t)。Caption = " "然后lblD(t)。启用=假

然后

末端接头