defaultvb.aspx.vb

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

Imports System
Imports System.Data
Imports System.IO
Imports System.Web.UI.WebControls
Imports System.Web.UI
Imports System.Data.OleDb
Imports Telerik.QuickStart
Imports Telerik.WebControls


Namespace Telerik.ComboboxExamplesVB.WhatsNew
   
   '/ <summary>
   '/ Summary description for _Default.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected RadComboBox1 As RadComboBox
      Protected RadComboBox2 As RadComboBox
      Protected WithEvents RadComboBox3 As RadComboBox
      Protected RadComboBox4 As RadComboBox
      Protected WithEvents Button1 As Button
      Protected Label1 As Label
      
      
      Private Sub Page_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      End Sub 'Page_Load
      
      
      Protected Sub ToMonthChanged(sender As Object, e As MonthChangedEventArgs)
         RadComboBox4.OpenDropDownOnLoad = False
      End Sub 'ToMonthChanged
      
      
      Protected Sub ToDateChanged(sender As Object, e As EventArgs)
         Dim calendar As Calendar = CType(RadComboBox4.SelectedItem.FindControl("Calendar1"), Calendar)
         RadComboBox4.Text = FormatDate(calendar.SelectedDate)
         RadComboBox4.OpenDropDownOnLoad = False
      End Sub 'ToDateChanged
      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 Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
         Dim result As String = RadComboBox1.Text + "<br/>" + RadComboBox2.Text + "<br/>" + RadComboBox3.Text + "<br/>" + RadComboBox4.Text
         Label1.Text = result
      End Sub 'Button1_Click
      
      
      Private Sub LoadDealers(filter As String)
         Dim mdbPath As String = Server.MapPath("~/Combobox/Data/NWind.mdb")
         Dim dbCon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + mdbPath)
         dbCon.Open()
         
         Dim sql As String = "SELECT * from Customers"
         If filter <> [String].Empty Then
            sql += " WHERE CompanyName LIKE '" + filter.Replace("'", "''") + "%'"
         End If
         
         Dim adapter As New OleDbDataAdapter(sql, dbCon)
         Dim dt As New DataTable()
         adapter.Fill(dt)
         dbCon.Close()
         
         RadComboBox3.DataSource = dt
         RadComboBox3.DataBind()
      End Sub 'LoadDealers
      
      
      Private Sub RadComboBox3_ItemsRequested(o As Object, e As Telerik.WebControls.RadComboBoxItemsRequestedEventArgs) Handles RadComboBox3.ItemsRequested
         LoadDealers(e.Text)
      End Sub 'RadComboBox3_ItemsRequested
      
      
      Private Function FormatDate([date] As DateTime) As String
         Return [String].Format("{0}/{1}/{2}", [date].Year, [date].Month, [date].Day)
      End Function 'FormatDate
      
      
      
      ' Fixing the calendar control XHTML output.
      Protected Overrides Sub Render(writer As HtmlTextWriter)
         Dim stringWriter As New StringWriter()
         Dim newWriter As New HtmlTextWriter(stringWriter)
         MyBase.Render(newWriter)
         Dim pageHtml As String = stringWriter.ToString()
         pageHtml = pageHtml.Replace("<td align=""Center""", "<td align=""center""")
         pageHtml = pageHtml.Replace("<td align=""Right""", "<td align=""right""")
         pageHtml = pageHtml.Replace("<td align=""Left""", "<td align=""left""")
         writer.Write(pageHtml)
      End Sub 'Render
   End Class 'DefaultVB 
End Namespace 'Telerik.ComboboxExamplesVB.WhatsNew