Add New Module MessageboxEx

2022-02-08 16:29:06 +01:00
parent be617951b3
commit 5e44adccd7
12 changed files with 907 additions and 0 deletions
--- a/MessageBoxEx/MsgBoxEx.Designer.vb
+++ b/MessageBoxEx/MsgBoxEx.Designer.vb
@@ -0,0 +1,135 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class MsgBoxEx
+    Inherits DevExpress.XtraEditors.XtraForm
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.chkBx = New System.Windows.Forms.CheckBox()
+        Me.btn1 = New System.Windows.Forms.Button()
+        Me.btn2 = New System.Windows.Forms.Button()
+        Me.messageLbl = New System.Windows.Forms.Label()
+        Me.btn3 = New System.Windows.Forms.Button()
+        Me.PanelControl1 = New DevExpress.XtraEditors.PanelControl()
+        CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.PanelControl1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'chkBx
+        '
+        Me.chkBx.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.chkBx.AutoSize = True
+        Me.chkBx.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.chkBx.Location = New System.Drawing.Point(12, 76)
+        Me.chkBx.Name = "chkBx"
+        Me.chkBx.Size = New System.Drawing.Size(152, 20)
+        Me.chkBx.TabIndex = 22
+        Me.chkBx.Text = "Don't show this again"
+        Me.chkBx.UseVisualStyleBackColor = True
+        Me.chkBx.Visible = False
+        '
+        'btn1
+        '
+        Me.btn1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btn1.AutoSize = True
+        Me.btn1.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.btn1.Location = New System.Drawing.Point(161, 12)
+        Me.btn1.Name = "btn1"
+        Me.btn1.Size = New System.Drawing.Size(100, 23)
+        Me.btn1.TabIndex = 5
+        Me.btn1.Text = "Button1"
+        Me.btn1.UseVisualStyleBackColor = True
+        Me.btn1.Visible = False
+        '
+        'btn2
+        '
+        Me.btn2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btn2.AutoSize = True
+        Me.btn2.Location = New System.Drawing.Point(267, 12)
+        Me.btn2.Name = "btn2"
+        Me.btn2.Size = New System.Drawing.Size(100, 23)
+        Me.btn2.TabIndex = 6
+        Me.btn2.Text = "Button2"
+        Me.btn2.UseVisualStyleBackColor = True
+        Me.btn2.Visible = False
+        '
+        'messageLbl
+        '
+        Me.messageLbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.messageLbl.Location = New System.Drawing.Point(58, 10)
+        Me.messageLbl.Name = "messageLbl"
+        Me.messageLbl.Size = New System.Drawing.Size(415, 75)
+        Me.messageLbl.TabIndex = 19
+        Me.messageLbl.Text = "[Message]"
+        '
+        'btn3
+        '
+        Me.btn3.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btn3.AutoSize = True
+        Me.btn3.Location = New System.Drawing.Point(373, 12)
+        Me.btn3.Name = "btn3"
+        Me.btn3.Size = New System.Drawing.Size(100, 23)
+        Me.btn3.TabIndex = 7
+        Me.btn3.Text = "Button3"
+        Me.btn3.UseVisualStyleBackColor = True
+        Me.btn3.Visible = False
+        '
+        'PanelControl1
+        '
+        Me.PanelControl1.Controls.Add(Me.btn1)
+        Me.PanelControl1.Controls.Add(Me.btn3)
+        Me.PanelControl1.Controls.Add(Me.btn2)
+        Me.PanelControl1.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.PanelControl1.Location = New System.Drawing.Point(0, 102)
+        Me.PanelControl1.Name = "PanelControl1"
+        Me.PanelControl1.Size = New System.Drawing.Size(485, 47)
+        Me.PanelControl1.TabIndex = 23
+        '
+        'MsgBoxEx
+        '
+        Me.Appearance.BackColor = System.Drawing.SystemColors.ControlLightLight
+        Me.Appearance.Options.UseBackColor = True
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
+        Me.CancelButton = Me.btn1
+        Me.ClientSize = New System.Drawing.Size(485, 149)
+        Me.Controls.Add(Me.PanelControl1)
+        Me.Controls.Add(Me.chkBx)
+        Me.Controls.Add(Me.messageLbl)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "MsgBoxEx"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "[Title]"
+        CType(Me.PanelControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.PanelControl1.ResumeLayout(False)
+        Me.PanelControl1.PerformLayout()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Private chkBx As System.Windows.Forms.CheckBox
+    Private WithEvents btn1 As System.Windows.Forms.Button
+    Private WithEvents btn2 As System.Windows.Forms.Button
+    Private messageLbl As System.Windows.Forms.Label
+    Private WithEvents btn3 As System.Windows.Forms.Button
+    Friend WithEvents PanelControl1 As DevExpress.XtraEditors.PanelControl
+End Class