spostamento testSam in ramo superiore proj...

2018-11-22 20:37:35 +01:00
parent f14590a37f
commit 287929dad7
368 changed files with 0 additions and 0 deletions
@@ -0,0 +1,36 @@
+'
+' 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