No self-introduction
Loading
Profile
Follow
codes (2)
VB calendar
4.0
VB calendar applet, is very useful to learn VB controls 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 j = j - 1 \'Show current month/year lblMonth = Format$(m_CurrDate, "mmmm yyyy") \'Clear existing data
linzhenyu 3k+ 0
4
Beautiful VB form interface control
no vote
VB forms a very beautiful interface controls, including buttons, progress bars, combo boxes, drop-down box, different controls such as check boxes, are ideal for VB interface development, using his design is very beautiful and different styles of VB form.
linzhenyu 0 0
1
No more~
Follows0
Fans0