34 lines
1.0 KiB
VB.net
34 lines
1.0 KiB
VB.net
Public Class frmDemoMode
|
|
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
|
|
|
End Sub
|
|
|
|
Public Sub New(Optional Formulartitel As String = "")
|
|
InitializeComponent()
|
|
Me.Text = Formulartitel
|
|
If Formulartitel = "" Then Me.Text = My.Settings.SoftwareType
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub frmDemoMode_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Me.lblprodukt.Text = Globals.Productname
|
|
Me.lblVersion.Text = Globals.Version
|
|
Me.lblDatum.Text = Globals.Versionastaum
|
|
Me.lblSN.Text = Globals.Seriennummer
|
|
If Globals.License.DemoMode Then
|
|
|
|
Me.lblLizenznehmer.Text = "Demo-Version"
|
|
Me.lblkey.Text = Globals.License.KeyCode
|
|
Else
|
|
Me.lblLizenznehmer.Text = Globals.License.Lizenznahmer
|
|
Me.lblkey.Text = Globals.License.KeyCode
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Me.Close()
|
|
End Sub
|
|
End Class |