defaultvb.aspx.vb

来自「Telerik是很大的第三方软件制造商」· VB 代码 · 共 174 行

Imports System
Imports System.Data
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports Telerik.QuickStart
Imports Telerik.WebControls


Namespace Telerik.CallbackExamplesVB.Controls.Timer
    '/ <summary>
    '/ Summary description for _Default.
    '/ </summary>

    Public Class DefaultVB
        Inherits XhtmlPage
        Protected WithEvents btnStart1 As Telerik.WebControls.CallbackButton
        Protected WithEvents btnStop2 As Telerik.WebControls.CallbackButton
        Protected WithEvents btnStop1 As Telerik.WebControls.CallbackButton
        Protected WithEvents btnStart2 As Telerik.WebControls.CallbackButton
        Protected WithEvents timer1 As Telerik.WebControls.CallbackTimer
        Protected WithEvents timer2 As Telerik.WebControls.CallbackTimer
        Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
        Protected Label1 As System.Web.UI.WebControls.Label
        Protected Label2 As System.Web.UI.WebControls.Label
        Protected WithEvents label11 As System.Web.UI.WebControls.Label
        Protected WithEvents statusLabel As System.Web.UI.WebControls.Label
        Protected WithEvents LoadingPanel1 As Telerik.WebControls.LoadingPanel
        Protected WithEvents Img1 As System.Web.UI.HtmlControls.HtmlImage
        Protected WithEvents Loadingpanel2 As Telerik.WebControls.LoadingPanel
        Protected WithEvents Img2 As System.Web.UI.HtmlControls.HtmlImage
        Protected DataGrid2 As System.Web.UI.WebControls.DataGrid


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If Not Page.IsPostBack Then
                LoadData1()
                LoadData2()
            End If
        End Sub 'Page_Load

#Region "Web Form Designer generated code"

        Protected Overrides Sub OnInit(ByVal e As EventArgs)
            '
            ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
            '
            InitializeComponent()
            MyBase.OnInit(e)
        End Sub 'OnInit


        '/ <summary>
        '/		Required method for Designer support - do not modify
        '/		the contents of this method with the code editor.
        '/ </summary>
        Private Sub InitializeComponent()

        End Sub 'InitializeComponent

#End Region


        Private Sub LoadData1()
            Dim table As New DataTable()
            table.Columns.Add("1", GetType(String))
            table.Columns.Add("2", GetType(Double))
            table.Columns.Add("3", GetType(Double))

            Dim r As New Random()

            table.Rows.Add(New Object() {"Composite", r.Next(7000, 8000), r.Next(-50, 500) / 100.0})
            table.Rows.Add(New Object() {"Energy", r.Next(8000, 9000), r.Next(-50, 50) / 100.0})

            table.Rows.Add(New Object() {"Financial", r.Next(7000, 8000), r.Next(-50, 50) / 100.0})

            table.Rows.Add(New Object() {"Health care", r.Next(5000, 6000), r.Next(-50, 50) / 100.0})



            DataGrid1.DataSource = table
            DataGrid1.DataBind()

            Dim item As DataGridItem
            For Each item In DataGrid1.Items
                Dim img As System.Web.UI.WebControls.Image = CType(item.FindControl("Image1"), System.Web.UI.WebControls.Image)
                Dim val As Double = CDbl(table.Rows(item.ItemIndex)("3"))
                If val > 0 Then
                    img.ImageUrl = "image1.jpg"
                Else
                    img.ImageUrl = "image2.jpg"
                End If
            Next item
        End Sub 'LoadData1


        Private Sub LoadData2()
            Dim table As New DataTable()
            table.Columns.Add("1", GetType(String))
            table.Columns.Add("2", GetType(Double))
            table.Columns.Add("3", GetType(Double))

            Dim r As New Random()

            table.Rows.Add(New Object() {"Composite", r.Next(7000, 8000), r.Next(-50, 50) / 100.0})
            table.Rows.Add(New Object() {"Energy", r.Next(8000, 9000), r.Next(-50, 50) / 100.0})
            table.Rows.Add(New Object() {"Financial", r.Next(7000, 8000), r.Next(-50, 50) / 100.0})
            table.Rows.Add(New Object() {"Health care", r.Next(5000, 6000), r.Next(-50, 50) / 100.0})  '


            DataGrid2.DataSource = table
            DataGrid2.DataBind()

            Dim item As DataGridItem
            For Each item In DataGrid2.Items
                Dim img As System.Web.UI.WebControls.Image = CType(item.FindControl("Image2"), System.Web.UI.WebControls.Image)
                Dim val As Double = CDbl(table.Rows(item.ItemIndex)("3"))
                If val > 0 Then
                    img.ImageUrl = "image1.jpg"
                Else
                    img.ImageUrl = "image2.jpg"
                End If
            Next item
        End Sub 'LoadData2



        Private Sub CallbackTimer1_Tick(ByVal sender As Object, ByVal args As System.EventArgs) Handles timer1.Tick
            LoadData1()
        End Sub 'CallbackTimer1_Tick


        Private Sub CallbackTimer2_Tick(ByVal sender As Object, ByVal args As System.EventArgs) Handles timer2.Tick
            LoadData2()
        End Sub 'CallbackTimer2_Tick


        Private Sub btnStart1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStart1.Click
            timer1.Start()
            btnStart1.Enabled = False
            btnStop1.Enabled = True
        End Sub 'btnStart1_Click


        Private Sub btnStop1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStop1.Click
            timer1.Stop()
            btnStart1.Enabled = True
            btnStop1.Enabled = False
        End Sub 'btnStop1_Click


        Private Sub btnStart2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStart2.Click
            timer2.Start()
            btnStart2.Enabled = False
            btnStop2.Enabled = True
        End Sub 'btnStart2_Click


        Private Sub btnStop2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStop2.Click
            timer2.Stop()
            btnStart2.Enabled = True
            btnStop2.Enabled = False
        End Sub 'btnStop2_Click


        Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
        End Sub 'DataGrid1_ItemDataBound
    End Class 'DefaultVB ''			
End Namespace 'Telerik.CallbackExamplesVB.Controls.Timer