22 lines
866 B
VB.net
22 lines
866 B
VB.net
Imports Telerik.Web.UI
|
|
Public Class StyleManager
|
|
Inherits System.Web.UI.Page
|
|
|
|
|
|
Protected Sub RadButton1_Click(sender As Object, e As EventArgs) Handles RadButton1.Click
|
|
System.Configuration.ConfigurationManager.AppSettings("Telerik.Skin") = Me.RadComboBox1.SelectedValue
|
|
Session("Style") = Me.RadComboBox1.SelectedValue
|
|
Dim dh As New clsDatahandling
|
|
dh.UpdateTable("Optionen", "Inhalt", Me.RadComboBox1.SelectedValue, True, "Optionnr", 22)
|
|
|
|
End Sub
|
|
|
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then Me.RadComboBox1.SelectedValue = System.Configuration.ConfigurationManager.AppSettings("Telerik.Skin")
|
|
End Sub
|
|
|
|
Protected Sub RadComboBox1_SelectedIndexChanged(sender As Object, e As RadComboBoxSelectedIndexChangedEventArgs)
|
|
|
|
|
|
End Sub
|
|
End Class |