none
Server Side Clock ( timer and graphics의 사용해서 보여주 ) 예시 들어주실 수 있나요? RRS feed

답변

  • 안녕하십니까? 상철이 님

    Microsoft TechNet Forum 사이트를 방문해 주셔서 감사합니다.

    문의 하신 “Server Side Clock ( timer and graphics의 사용해서 보여주 ) 예시 들어주실 수 있나요?”에 대한 답변 드리겠습니다.

     

    아래 예제를 참고하시길 바랍니다.

     

    '''Form 1 Needs an imagebox on the page

    Private Sub Page_Load(ByVal sender As System.Object, _

         ByVal e As System.EventArgs) Handles MyBase.Load

            Image1.Height = New Unit(32)

            Image1.Width = New Unit(200)

            Image1.Visible = True

    'Beneath is the Timer

            Dim scriptString As String = "<script language=JavaScript>" & _

            "setclock(); function setclock(){document.images.Image1.src = " & _

            "'http://localhost/WebClock/WebForm2.aspx';setTimeout('setclock()',1000)}</script>"

            Page.RegisterStartupScript("setclock", scriptString)

    End Sub

     

    '''Form2 needs only an empty page

       Private Sub Page_Load(ByVal sender As System.Object, _

       ByVal e As System.EventArgs) Handles MyBase.Load

            Response.Cache.SetExpires(DateTime.Now.AddTicks(500))

            Dim myForeBrush As Brush = Brushes.Black

            Dim myFont As New Font("Times New Roman", 8, FontStyle.Regular)

            Dim textHeight As Single

            Dim bm As New Bitmap(120, 20)

            Dim g As Graphics = Graphics.FromImage(bm)

            g.Clear(Color.White)

            Dim textSize As SizeF = g.MeasureString(now.tostring, myFont)

            g.DrawString(Now.ToString, myFont, myForeBrush, _

                New RectangleF(0, 0, 120, 20))

            Dim ms As New IO.MemoryStream

            Dim arrImage() As Byte

            bm.Save(ms, Imaging.ImageFormat.Bmp)

            arrImage = ms.GetBuffer

            Response.BinaryWrite(arrImage)

            g.dispose

    End Sub

     

    제가 문제에 대해 더 알아야 할 것이 있다면 응답 주시면 감사하겠습니다.

    제시해 드린 답변이 도움이 되었기를 바랍니다.

     

    답변이 문제 해결에 도움이 되었다면 답변으로 채택을 부탁드립니다. 하지만 문제 해결이 되지 않아서 정확한 답변을 원하는 경우에는 문제의 정보를 더 자세하게 답변으로 제공해주시기 바랍니다.

    • 답변으로 표시됨 상철이 2012년 1월 30일 월요일 오후 12:02
    2012년 1월 30일 월요일 오전 11:59
    중재자