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.
52 lines
1.6 KiB
52 lines
1.6 KiB
Public Class Text_Neuanmeldung
|
|
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
|
|
' Dim dh As New clsDatahandling
|
|
' dh.Get_Option(7)
|
|
|
|
' Dim filename As String = "Neue_Anmeldung" + ".rtf"
|
|
' Dim path As String = Server.MapPath("~/temp/")
|
|
' filename = path + filename
|
|
' dh.Get_Richtext(2, filename)
|
|
' Try
|
|
' Me.Editor1.LoadRTF(filename)
|
|
' Catch
|
|
' End Try
|
|
|
|
'End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub Editor1_SaveButtonClick(sender As Object, e As EventArgs) Handles Editor1.SaveButtonClick
|
|
Dim filename As String
|
|
filename = "UploadFile" + Me.RadioButtonList1.SelectedValue.ToString + ".rtf"
|
|
Dim path As String = Server.MapPath("~/temp/")
|
|
filename = path + filename
|
|
|
|
Dim dh As New clsDatahandling
|
|
|
|
|
|
Me.Editor1.SaveRTF(filename)
|
|
dh.Save_Richtext(Me.RadioButtonList1.SelectedValue, filename, Me.Editor1.Text)
|
|
|
|
End Sub
|
|
|
|
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Dim dh As New clsDatahandling
|
|
dh.Get_Option(7)
|
|
|
|
Dim filename As String = "UploadFile" + Me.RadioButtonList1.SelectedValue.ToString + ".rtf"
|
|
Dim path As String = Server.MapPath("~/temp/")
|
|
filename = path + filename
|
|
dh.Get_Richtext(Me.RadioButtonList1.SelectedValue.ToString, filename)
|
|
Try
|
|
Me.Editor1.LoadRTF(filename)
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
End Class |