MS ZSG

app/DD-Record-Organizer - Kopie/frmMessageBox.vb

@@ -0,0 +1,41 @@
+Imports System.Windows.Forms
+
+Public Class frmMessageBox
+
+    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 frmMessageBox_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Try
+            Select Case MSG_TYPE
+                Case "ERROR"
+                    OK_Button.Image = My.Resources.delete
+                Case Else
+                    OK_Button.Image = Nothing
+            End Select
+            Me.Text = MSG_TITLE
+            If MSG_LABLE2 = String.Empty Then
+                Me.Size = New Size(449, 177)
+                Me.lblmsg2.Visible = False
+                Me.txtmsg2.Visible = False
+            Else
+                Me.Size = New Size(449, 251)
+                Me.lblmsg2.Visible = True
+                Me.txtmsg2.Visible = True
+                Me.lblmsg2.Text = MSG_LABLE2
+                Me.txtmsg2.Text = MSG_ERROR2
+            End If
+            Me.lblmsg1.Text = MSG_LABLE1
+            Me.txtmsg1.Text = MSG_ERROR1
+        Catch ex As Exception
+            MsgBox("Unexpected Error: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
+
+    Private Sub frmMessageBox_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        Me.BringToFront()
+    End Sub
+End Class