'
' libreria  : VBlib
' file      : Message 
'
' funzioni  : gestione messaggi
'
' copyright 2008-2015 C.Viviani
'
Imports System
Imports System.IO
Imports System.IO.File

Public Module Message

    Public msg() As String

    Sub init()

        Dim sz_filename As String

        sz_filename = Application.StartupPath & "\messages\" & Application.ProductName & ".msg"

        If File.Exists(sz_filename) Then  ' 
            Try
                msg = System.IO.File.ReadAllLines(sz_filename)
            Catch e As Exception
                MsgBox(e.Message, MsgBoxStyle.Critical, "Error !")
                End
            End Try
        Else
            MsgBox("  Missing message file :" & vbCrLf & sz_filename, MsgBoxStyle.Critical, "Error 3 :")
            End
        End If
    End Sub

End Module