42 lines
1.4 KiB
VB.net
42 lines
1.4 KiB
VB.net
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
|