49 lines
1.5 KiB
VB.net
49 lines
1.5 KiB
VB.net
Imports System.Drawing
|
|
Imports System.Windows.Forms
|
|
|
|
|
|
Public Class frmDialog
|
|
Private Is_Error As Boolean
|
|
Private MyTitle As String
|
|
Private MyMessage As String
|
|
Public Sub New(pMessageText As String, pTitle As String, IsError As Boolean)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
Is_Error = IsError
|
|
MyTitle = pTitle
|
|
MyMessage = pMessageText
|
|
|
|
End Sub
|
|
|
|
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
|
Me.Close()
|
|
End Sub
|
|
Public Sub CancelButtonInvisible()
|
|
Cancel_Button.Visible = False
|
|
End Sub
|
|
Public Sub CancelButtonVisible()
|
|
Cancel_Button.Visible = True
|
|
End Sub
|
|
|
|
Private Sub frmDialog_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
Me.lblMeldung.Text = MyMessage
|
|
Me.Text = MyTitle
|
|
If Is_Error = True Then
|
|
PanelControl1.BackColor = Color.Red
|
|
Cancel_Button.Visible = False
|
|
Else
|
|
PanelControl1.BackColor = Color.OrangeRed
|
|
Cancel_Button.Visible = True
|
|
End If
|
|
End Sub
|
|
End Class
|