vb日历程序
2016-08-23
3520 0 0
4.0 分
其他
如何获取积分?
vb日历程序小程序,对vb时间控件学习很有用
Private Sub picMonth_Paint()
Dim i As Integer, j As Integer, x As Integer, y As Integer
Dim NumDays As Integer, CurrPos As Integer, bCurrMonth As Boolean
Dim MonthStart As Date, buffer As String
'Determine if this month is today's month
If Month(m_CurrDate) = Month(Date) And Year(m_CurrDate) = Year(Date) Then
bCurrMonth = True
End If
'Get first date in the month
MonthStart = DateSerial(Year(m_CurrDate), Month(m_CurrDate), 1)
'Number of days in the month
NumDays = DateDiff("d", MonthStart, DateAdd("m", 1, MonthStart))
'Get first weekday in the month (0 - based)
j = Weekday(MonthStart) - 1
'Tweak for 1-based For/Next index
&n
vb
程序
日历
相关源码推荐
学生管理系统
0
0
暂无评分
VB写的 FTP上传下载
0
0
暂无评分
qq批量登录
0
0
暂无评分
示例MSNPopup
0
0
暂无评分
密码管理软件
0
0
暂无评分
暂无评论