Samuele Locatelli
37 lines
789 B
VB.net
37 lines
789 B
VB.net
'
|
|
' 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
|