defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports Telerik.QuickStart


Namespace Telerik.WindowExamplesVB.DemoEmail
   
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected UserGrid As System.Web.UI.WebControls.DataGrid
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         If Not Me.IsPostBack Then
            ' Produce a fake datasource for the emails 
            Dim userTable As New DataTable()
            
            Dim from() As String = {"John Doe", "Jane Doe", "Dimitre Nikolov", "John Smith"}
            Dim subjects() As String = {"Q4", "SiteFinity 2.0", "Re: What Happened", "Q4"}
            Dim dateReceived() As String = {"8/04/2005", "11/05/2005", "11/02/2005", "10/02/2005"}
            Dim mailUrls() As String = {"ExampleFiles/john_doe.html", "ExampleFiles/jane_doe.html", "ExampleFiles/dim_nikolov.html", "ExampleFiles/john_smith.html"}
            
            Dim columns() As String = {"MailUrl", "From", "Subject", "DateReceived"}
            Dim i As Integer = 0
            For i = 0 To columns.Length - 1
               Dim oColumn As New DataColumn(columns(i), GetType(String))
               userTable.Columns.Add(oColumn)
            Next i
            
            For i = 0 To from.Length - 1
               Dim row As DataRow = userTable.NewRow()
               row("MailUrl") = mailUrls(i)
               row("From") = from(i)
               row("Subject") = subjects(i)
               row("DateReceived") = dateReceived(i)
               userTable.Rows.Add(row)
            Next i
            UserGrid.DataSource = userTable
            UserGrid.DataBind()
         End If 
      End Sub 'Page_Load
      Protected Overrides Sub OnInit(e As EventArgs)
         '
         ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
         '
         InitializeComponent()
         MyBase.OnInit(e)
      End Sub 'OnInit
      
      
      '/		Required method for Designer support - do not modify
      '/		the contents of this method with the code editor.
      '/ </summary>
      Private Sub InitializeComponent()
      End Sub 'InitializeComponent
      Private Sub UserGrid_ItemDataBound(sender As Object, e As DataGridItemEventArgs)
         If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
            e.Item.Attributes("onmouseover") = "this.bgColor = '#ff8100';"
            e.Item.Attributes("onmouseout") = "this.bgColor = '#f4f4ef'"
            e.Item.Attributes("onclick") = "viewMsg('" + CType(e.Item.DataItem, DataRowView)("MailUrl") + "')"
         End If
      End Sub 'UserGrid_ItemDataBound
   End Class 'DefaultVB
End Namespace 'Telerik.WindowExamplesVB.DemoEmail