You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
1.2 KiB
33 lines
1.2 KiB
Imports Telerik.Web.UI
|
|
Imports Telerik.Web.UI.Upload
|
|
Imports System.Web.Configuration
|
|
Public Class Zuteilung
|
|
Inherits System.Web.UI.Page
|
|
|
|
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then Me.RadioButtonList1.SelectedValue = 0
|
|
End Sub
|
|
|
|
Protected Sub buttonSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles buttonSubmit.Click
|
|
Dim dh As New clsDatahandling
|
|
dh.Zuteilen(Me.RadioButtonList1.SelectedValue)
|
|
Show_Message(2, "Zuteilung erfolgreich durchgeführt.")
|
|
End Sub
|
|
|
|
Protected Sub Show_Message(ByVal type As Integer, ByVal meldung As String)
|
|
Dim image1 As String
|
|
Select Case type
|
|
Case 1
|
|
image1 = WebConfigurationManager.AppSettings("Imagepath") + "Error.png"
|
|
RadWindowManager1.RadAlert(meldung, 330, 100, "Fehler", "alertCallBackFnError", image1)
|
|
Case 2
|
|
image1 = WebConfigurationManager.AppSettings("Imagepath") + "Info1.png"
|
|
RadWindowManager1.RadAlert(meldung, 330, 100, "Bestätigung", "alertCallBackFnError", image1)
|
|
End Select
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
End Class
|