messageboxform.vb

This program is designed for a menu ordering system under pocket pc platform .

Public Class MessageBoxForm

    Public MsgContent As String = ""
    Public Icons As String = "None"
    Public Caption As String = ""
    Public Result As Integer = 0

    Private Sub MessageBoxForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        picIcon.Image = GetImage(Icons)
        txt_MsgContent.Text = MsgContent
        Me.Text = Caption
    End Sub
    '確定
    Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OK.Click
        Result = 1
        Me.Close()
    End Sub
    '取消
    Private Sub btn_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cancel.Click
        Result = 2
        Me.Close()
    End Sub

#Region "獲取顯示圖片訊息"

    '''<summary>
    ''' 獲取顯示圖片訊息
    ''' </summary>
    Private Function GetImage(ByVal Icons As String) As Image

        Dim Img As Image
        Select Case Icons
            Case "None"
                Img = Nothing
            Case "Asterisk"
                Img = My.Resources.Asterisk
            Case "Error"
                Img = My.Resources.IsError
            Case "Exclamation"
                Img = My.Resources.Exclamation
            Case "Hand"
                Img = My.Resources.Hand
            Case "Information"
                Img = My.Resources.Information
            Case "Question"
                Img = My.Resources.Question
            Case "Stop"
                Img = My.Resources.IsStop
            Case "Warning"
                Img = My.Resources.Warning
            Case Else
                Img = Nothing

        End Select

        Return Img

    End Function

#End Region

End Class