tasksvb.ascx.vb

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

Imports System
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports System.Collections

Namespace Telerik.CallbackExamplesVB.Functionality.LoadingUserControls

    '/ <summary>
    '/		Summary description for News.
    '/ </summary>

    Public Class News
        Inherits System.Web.UI.UserControl
        Protected WithEvents Button1 As System.Web.UI.WebControls.Button
        Protected TextBox1 As System.Web.UI.WebControls.TextBox
        Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
        Protected Label1 As System.Web.UI.WebControls.Label


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            DataGrid1.DataSource = CType(Me.Page, MainPage).Tasks()            
            DataGrid1.DataBind()
            Me.Page.DataBind()
        End Sub 'Page_Load

        Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
            Tasks.Rows.Add(New [Object]() {TextBox1.Text, False})
            DataGrid1.DataBind()
            Me.Page.DataBind()

        End Sub 'Button1_Click


        Private Property Tasks() As DataTable
            Get
                Return CType(Me.Page, MainPage).Tasks()
            End Get
            Set(ByVal Value As DataTable)
                CType(Me.Page, MainPage).Tasks = Value                
            End Set
        End Property

        Private Sub DataGrid1_DeleteCommand(ByVal [source] As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.DeleteCommand
            Tasks.Rows.Remove(Tasks.Rows(e.Item.ItemIndex))
            DataGrid1.DataSource = CType(Me.Page, MainPage).Tasks()
            DataGrid1.DataBind()
            Me.Page.DataBind()

        End Sub 'DataGrid1_DeleteCommand

    End Class 'News 
End Namespace