Calender control

[anonymous]

[Originally posted by VRK]

Hi,
I am developing a vb6 application. I want to show a calender control with icon (may be check boxes or cross) in the day part. If user clicks in that particular day then the picture will be displayed in the cell. How to achieve this. Please help.

regards

[anonymous]

[Originally posted by Greg DeBacker]

Here is some simple code i wrote to draw a month view on a form or picturebox. Maybe you will find some use in it...

Private Sub Form_Paint()
ÿ ÿ DrawCal Me, "2002", "4"
End Sub

Private Sub DrawCal(DrawOn As Object, sYear As String, sMonth As String)
ÿ ÿ 'You can change 'As Object' to 'As Form' or 'As PictureBox'
ÿ ÿ 'if you know what you will be drawing to
ÿ ÿ Dim k As Long
ÿ ÿ Dim i As Long
ÿ ÿ Dim iBoxWidth As Long
ÿ ÿ Dim iBoxHeight As Long
ÿ ÿ Dim iStart As Long
ÿ ÿ Dim iDays As Long
ÿ ÿ Dim sTemp As String
ÿ ÿ Dim iDaySpotÿ As Integer
ÿ ÿ Dim iRow As Integer
ÿ ÿ
ÿ ÿ DrawOn.Cls
ÿ ÿ
ÿ ÿ 'Draw month and year
ÿ ÿ DrawOn.CurrentX = 80
ÿ ÿ DrawOn.CurrentY = 100
ÿ ÿ DrawOn.Print Format$(DateValue(sMonth & "/1/" & sYear), "mmmm yyyy")

ÿ ÿ 'Get the width and height of each box
ÿ ÿ iBoxWidth = (DrawOn.ScaleWidth - 20) / 7
ÿ ÿ iBoxHeight = (DrawOn.ScaleHeight - 1000) / 6
ÿ ÿ For k = 0 To 6
ÿ ÿ ÿ ÿ 'Draw days on top line
ÿ ÿ ÿ ÿ DrawOn.CurrentX = iBoxWidth * k + 80
ÿ ÿ ÿ ÿ DrawOn.CurrentY = 800 - DrawOn.TextHeight("A") - 60
ÿ ÿ ÿ ÿ DrawOn.Print Format$(DateValue("12/29/2002") + k, "dddd")
ÿ ÿ ÿ ÿ 'draw the boxes
ÿ ÿ ÿ ÿ For i = 0 To 5
ÿ ÿ ÿ ÿ ÿ ÿ DrawOn.Line (iBoxWidth * k, (iBoxHeight * i) + 800)-(iBoxWidth * k + iBoxWidth, iBoxHeight * i + iBoxHeight + 800), , B
ÿ ÿ ÿ ÿ Next
ÿ ÿ Next
ÿ ÿ
ÿ ÿ 'get the first day of the month
ÿ ÿ sTemp = (Format$(DateSerial(sYear, sMonth, 1), "ddd"))
ÿ ÿ Select Case LCase$(sTemp)
ÿ ÿ ÿ ÿ Case "sun": iStart = 0
ÿ ÿ ÿ ÿ Case "mon": iStart = 1
ÿ ÿ ÿ ÿ Case "tue": iStart = 2
ÿ ÿ ÿ ÿ Case "wed": iStart = 3
ÿ ÿ ÿ ÿ Case "thu": iStart = 4
ÿ ÿ ÿ ÿ Case "fri": iStart = 5
ÿ ÿ ÿ ÿ Case "sat": iStart = 6
ÿ ÿ End Select
ÿ ÿ
ÿ ÿ 'Figure the number of days in the month
ÿ ÿ sTemp = Format$(DateSerial(sYear, sMonth, 1), "m")
ÿ ÿ For k = 1 To 5
ÿ ÿ ÿ ÿ If sTemp <> Format$(DateSerial(sYear, sMonth, 27 + k), "m") Then
ÿ ÿ ÿ ÿ ÿ ÿ iDays = 27 + k - 1
ÿ ÿ ÿ ÿ ÿ ÿ Exit For
ÿ ÿ ÿ ÿ End If
ÿ ÿ Next
ÿ ÿ
ÿ ÿ 'draw the dates
ÿ ÿ iDaySpot = iStart - 1
ÿ ÿ iRow = 1
ÿ ÿ For k = iStart To iStart + iDays - 1
ÿ ÿ ÿ ÿ iDaySpot = iDaySpot + 1
ÿ ÿ
ÿ ÿ ÿ ÿ If iDaySpot > 6 Then
ÿ ÿ ÿ ÿ ÿ ÿ iRow = iRow + 1
ÿ ÿ ÿ ÿ ÿ ÿ iDaySpot = 0
ÿ ÿ ÿ ÿ End If
ÿ ÿ
ÿ ÿ ÿ ÿ DrawOn.CurrentX = (iBoxWidth * iDaySpot) + ((iBoxWidth - DrawOn.TextWidth(Trim$(Str$(k)))) / 2)
ÿ ÿ ÿ ÿ DrawOn.CurrentY = ((iBoxHeight * iRow) + 800) - (iBoxHeight / 2)
ÿ ÿ ÿ ÿ DrawOn.Print Trim$(Str$(k - iStart + 1))
ÿ ÿ Next

End Sub

Grex