달력 미리보기

달력 미리보기 로그 나오도록 추가

 

    Private Sub MonthCalendar1_DayGotFocus(sender As Object, e As DayEventArgs) Handles MonthCalendar1.DayGotFocus

        '// *** 마우스 달력 미리보기 

        ToolTip1.RemoveAll() '툴탑을 다른 초기화(다른영역 클릭했을때 안보이게

        Try

            Label35.Text = CDate(e.Date).Year & ", " & CDate(e.Date).Month & ", " & CDate(e.Date).Day

            Dim DBConn As SqlConnection

            DBConn = New SqlConnection(dbstring)

            DBConn.Open()

            Dim mySqlCommAND As SqlCommand

            Dim QueryString As String

            QueryString = "SELECT TOP 1 유형3, 내용1, 파일명, 예비1, 유형2 FROM TB_Calenda_Board_List where 유형2= '" & Label35.Text & "'"

            mySqlCommAND = New SqlCommand(QueryString, DBConn)

            Dim DBread As SqlDataReader = mySqlCommAND.ExecuteReader()

            If DBread.Read() Then

                Dim Day_Info As String = ""

                Day_Info = "(" & e.Date & ") " & DBread.GetValue(0) & vbNewLine '날짜와 상단제목

                Day_Info += DBread.GetValue(1) ' 내용1 (본문내용 TEXT글자만)

                ToolTip1.SetToolTip(MonthCalendar1, Day_Info)

            End If

            DBread.Close()

            mySqlCommAND.Dispose()

            DBConn.Close()

            접속기록("캘린더 " & Label35.Text) ' 미리보기 로그기록

        Catch ex As Exception

            '오류무시

        End Try

    End Sub