defaultvb.aspx.vb

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

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Data.OleDb
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
Imports Telerik.WebControls
Imports Telerik.WebControls.CallbackControls


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

    Public Class DefaultVB
        Inherits XhtmlPage
        Protected Panel1 As System.Web.UI.WebControls.Panel
        Protected WithEvents lblBook1 As Telerik.WebControls.CallbackLabel
        Protected lblDescription As System.Web.UI.WebControls.Label
        Protected WithEvents lblBook2 As Telerik.WebControls.CallbackLabel
        Protected WithEvents lblBook3 As Telerik.WebControls.CallbackLabel
        Protected WithEvents lblBook4 As Telerik.WebControls.CallbackLabel
        Protected WithEvents lblBook5 As Telerik.WebControls.CallbackLabel
        Protected ListBox1 As System.Web.UI.WebControls.ListBox
        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 CallbackLabel1 As CallbackLabel


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
            If Not Page.IsPostBack Then
                LoadInitialData()
            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 LoadInitialData()
            Dim path As String = Server.MapPath("~/Callback/data/books.mdb")
            Dim dbCon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + path)
            dbCon.Open()
            Dim command As New OleDbCommand("SELECT name FROM books", dbCon)
            Dim reader As OleDbDataReader = command.ExecuteReader()



            reader.Read()
            lblBook1.Text = CStr(reader.GetValue(0))
            reader.Read()
            lblBook2.Text = CStr(reader.GetValue(0))
            reader.Read()
            lblBook3.Text = CStr(reader.GetValue(0))
            reader.Read()
            lblBook4.Text = CStr(reader.GetValue(0))
            reader.Read()
            lblBook5.Text = CStr(reader.GetValue(0))

            dbCon.Close()
        End Sub 'LoadInitialData


        Private Function GetBookSummary(ByVal bookID As Integer) As String
            Dim path As String = Server.MapPath("~/Callback/data/books.mdb")
            Dim dbCon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + path)
            dbCon.Open()
            Dim command As New OleDbCommand("SELECT summary FROM books WHERE id = " + bookID.ToString(), dbCon)
            Dim summary As String = CStr(command.ExecuteScalar())
            dbCon.Close()
            Return summary
        End Function 'GetBookSummary


        Private Sub CallbackLabel1_MouseOver(ByVal sender As Object, ByVal args As MouseEventArgs) Handles lblBook1.MouseOver, lblBook2.MouseOver, lblBook3.MouseOver, lblBook4.MouseOver, lblBook5.MouseOver
			Dim label As CallbackLabel = CType(sender, CallbackLabel)
			Select Case label.ID
				Case "lblBook1"
					lblDescription.Text = GetBookSummary(1)
					Exit Select
				Case "lblBook2"
					lblDescription.Text = GetBookSummary(2)
					Exit Select
				Case "lblBook3"
					lblDescription.Text = GetBookSummary(3)
					Exit Select
				Case "lblBook4"
					lblDescription.Text = GetBookSummary(4)
					Exit Select
				Case "lblBook5"
					lblDescription.Text = GetBookSummary(5)
					Exit Select
			End Select
        End Sub 'CallbackLabel1_MouseOver



        Private Sub lblBook1_MouseClick(ByVal sender As Object, ByVal args As Telerik.WebControls.CallbackControls.MouseEventArgs) Handles lblBook1.MouseClick, lblBook2.MouseClick, lblBook3.MouseClick, lblBook4.MouseClick, lblBook5.MouseClick
			Dim label As CallbackLabel = CType(sender, CallbackLabel)
			Dim item As ListItem = ListBox1.Items.FindByText(label.Text)
			If item Is Nothing Then
				ListBox1.Items.Add(label.Text)
			Else
				label.ResponseScript = String.Format("alert('{0}')", "This book is already added to cart.")
			End If
        End Sub 'lblBook1_MouseClick


    End Class 'DefaultVB 
End Namespace 'Telerik.CallbackExamplesVB.Controls.Label