Code development platform for open source projects from the European Union institutions

Skip to content
Snippets Groups Projects
Commit 0d80c0dd authored by Martin Dippold's avatar Martin Dippold
Browse files

* Update for User Manual and Release notes. Now always the newest version will be opened

parent 22bf685c
No related branches found
No related tags found
No related merge requests found
......@@ -956,7 +956,8 @@ Public Class F_Main
' Menu open the user manual
Private Sub ToolStripMenuItemManu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItemManu.Click
Dim manual_fname As String = joinPaths(MyPath, "Docs", "VECTO_CSE-User Manual_" & AppVers & ".pdf")
Dim manual_fname As String = (From fi As IO.FileInfo In (New IO.DirectoryInfo(joinPaths(MyPath, "Docs")).GetFiles("*VECTO_CSE-User Manual*.pdf", IO.SearchOption.TopDirectoryOnly)) Order By fi.LastAccessTime Select fi)(0).FullName
Try
System.Diagnostics.Process.Start(manual_fname)
Catch ex As Exception
......@@ -966,7 +967,8 @@ Public Class F_Main
' Menu open the release nodes
Private Sub ReleaseNotesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReleaseNotesToolStripMenuItem.Click
Dim release_fname As String = joinPaths(MyPath, "Docs", "VECTO-CSE_ReleaseNotes_" & AppVers & ".pdf")
Dim release_fname As String = (From fi As IO.FileInfo In (New IO.DirectoryInfo(joinPaths(MyPath, "Docs")).GetFiles("*VECTO-CSE_ReleaseNotes*.pdf", IO.SearchOption.TopDirectoryOnly)) Order By fi.LastAccessTime Select fi)(0).FullName
Try
System.Diagnostics.Process.Start(release_fname)
Catch ex As Exception
......
......@@ -13,7 +13,7 @@ Module declaration_public
' Description of the form
Public Const AppName As String = "VECTO_CSE" ' Name of the programm
Public Const AppVers As String = "2.0.2-beta6" ' Version of the Programm
Public Const AppVers As String = "2.0.3-beta6" ' Version of the Programm
Public AppDate As String ' Date of the compilation of the programm
' Control variables
......
......@@ -151,8 +151,7 @@ Module utils
End Function
#End Region ' File paths'
' Function for a linear interpolation
' Functions for linear interpolation
#Region "Calculation programms"
' Function for a linear interpolation
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment