This site uses cookies. Visit our cookies policy page or click the link in any footer for more information and to change your preferences.

Accept all cookies Accept only essential cookies

Code development platform for open source projects from the European Union institutions :large_blue_circle: EU Login authentication by SMS has been phased out. To see alternatives please check here

Skip to content
Snippets Groups Projects
Commit 22f38e76 authored by Markus Quaritsch's avatar Markus Quaritsch
Browse files

adapting vecto gui to get rid of 'Declaration' Folder and use declaration data... 

adapting vecto gui to get rid of 'Declaration' Folder and use declaration data from vecto core; refactoring, removing no longer required files / classes
parent 06013346
No related branches found
No related tags found
No related merge requests found
Expand all Show whitespace changes
Inline Side-by-side
Showing
with 1827 additions and 1816 deletions
Tools/VectoLegacyTests/TorqueConverterTest.cs
+ 1
− 1
View file @ 22f38e76
......@@ -3,7 +3,7 @@ using System.Diagnostics;
using System.Globalization;
using System.Threading;
using Microsoft.VisualStudio.TestTools.UnitTesting;
using VECTO;
using TUGraz.VECTO;
namespace VectoLegacyTests
{
......
VECTO/ApplicationEvents.vb
+ 120
− 119
View file @ 22f38e76
......@@ -10,8 +10,9 @@
' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports System.Collections.Generic
Namespace My
Imports TUGraz.VECTO.File_Browser
Namespace My
' The following events are available for MyApplication:
'
' Startup: Raised when the application starts even before the creation of the Startup-forms.
......@@ -20,9 +21,9 @@ Namespace My
' StartupNextInstance: Raised when launching a single-instance application, and one is already active.
' NetworkAvailabilityChanged: Occurs when connecting or disconnecting to the network.
Partial Friend Class MyApplication
'Initialization
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
Private Sub MyApplication_Startup(ByVal sender As Object,
ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
Dim s As String
Dim i As Int16
......@@ -31,7 +32,7 @@ Namespace My
'Paths
MyAppPath = My.Application.Info.DirectoryPath & "\"
MyConfPath = MyAppPath & "Config\"
MyDeclPath = MyAppPath & "Declaration\"
FB_FilHisDir = MyConfPath & "FileHistory\"
'Log
......@@ -92,7 +93,8 @@ Namespace My
System.Threading.Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo("en-US")
'MSGtoForm(8, "Set CurrentCulture to 'en-US'", True)
Catch ex As Exception
GUImsg(tMsgID.Err, "Failed to set Application Regional Settings to 'en-US'! Check system decimal- and group- separators!")
GUImsg(tMsgID.Err,
"Failed to set Application Regional Settings to 'en-US'! Check system decimal- and group- separators!")
End Try
End If
......@@ -101,9 +103,9 @@ Namespace My
JobFileList = New List(Of String)
JobCycleList = New List(Of String)
DEV = New cDEV
Declaration = New cDeclaration
Cfg = New Configuration 'ACHTUNG: Configuration.New löst Configuration.SetDefault aus welches sKey benötigt dehalb muss sKey schon vorher initialisiert werden!!
Cfg = New Configuration _
'ACHTUNG: Configuration.New löst Configuration.SetDefault aus welches sKey benötigt dehalb muss sKey schon vorher initialisiert werden!!
Cfg.FilePath = MyConfPath & "settings.json"
ProgBarCtrl = New cProgBarCtrl
......@@ -119,16 +121,15 @@ Namespace My
Lic = New vectolic.cLicense
Lic.AppVersion = VECTOvers
Lic.FilePath = MyAppPath & "license.dat"
End Sub
Private Sub MyApplication_UnhandledException(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) Handles Me.UnhandledException
Private Sub MyApplication_UnhandledException(ByVal sender As Object,
ByVal e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) _
Handles Me.UnhandledException
e.ExitApplication = True
MsgBox("ERROR!" & ChrW(10) & ChrW(10) & e.Exception.Message.ToString, MsgBoxStyle.Critical, "Unexpected Error")
LogFile.WriteToLog(tMsgID.Err, ">>>Unexpected Error:" & e.Exception.ToString())
End Sub
End Class
End Namespace
VECTO/ClassDiagram1.cd deleted 100644 → 0
+ 0
− 2
View file @ 06013346
<?xml version="1.0" encoding="utf-8"?>
<ClassDiagram />
\ No newline at end of file
VECTO/ClassDiagram2.cd deleted 100644 → 0
+ 0
− 11
View file @ 06013346
<?xml version="1.0" encoding="utf-8"?>
<ClassDiagram MajorVersion="1" MinorVersion="1">
<Class Name="VECTO.cVECTO">
<Position X="0.5" Y="0.5" Width="1.5" />
<TypeIdentifier>
<HashCode>ADFGAASAAQQCYoKYBgiIAAAIIAOAgAIAFidCSCCApAA=</HashCode>
<FileName>Input Files\cVECTO.vb</FileName>
</TypeIdentifier>
</Class>
<Font Name="Segoe UI" Size="9" />
</ClassDiagram>
\ No newline at end of file
VECTO/Configuration.vb
+ 8
− 6
View file @ 22f38e76
......@@ -9,6 +9,8 @@
'
' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports System.Collections.Generic
Imports System.IO
Imports TUGraz.VectoCore.Models.Declaration
Public Class Configuration
Public FilePath As String
......@@ -35,9 +37,9 @@ Public Class Configuration
End Sub
Public Sub DeclInit()
AirDensity = cDeclaration.AirDensity
FuelDens = cDeclaration.FuelDens
CO2perFC = cDeclaration.CO2perFC
AirDensity = DeclarationData.Physics.AirDensity.Value() ' cDeclaration.AirDensity
FuelDens = DeclarationData.Physics.FuelDensity.Value() ' cDeclaration.FuelDens
CO2perFC = DeclarationData.Physics.CO2PerFuelWeight ' cDeclaration.CO2perFC
DistCorr = True
GnUfromCycle = False
End Sub
......@@ -54,8 +56,8 @@ Public Class Configuration
AirDensity = 1.2
OpenCmd = "notepad"
OpenCmdName = "Notepad"
FuelDens = 0.835
CO2perFC = 3.153
FuelDens = DeclarationData.Physics.FuelDensity.Value()
CO2perFC = DeclarationData.Physics.CO2PerFuelWeight
FirstRun = True
DeclMode = True
End Sub
......@@ -63,7 +65,7 @@ Public Class Configuration
Public Sub Load()
SetDefault()
If Not IO.File.Exists(FilePath) Then
If Not File.Exists(FilePath) Then
Exit Sub
End If
......
VECTO/File Browser/FB_Dialog.designer.vb
+ 187
− 184
View file @ 22f38e76
This diff is collapsed.
VECTO/File Browser/FB_Dialog.vb
+ 4
− 1
View file @ 22f38e76
......@@ -14,6 +14,8 @@ Imports System.IO
Imports System.Text
Imports Microsoft.VisualBasic.FileIO
Imports System.Runtime.InteropServices
Imports TUGraz.VECTO.File_Browser
''' <summary>
''' File Browser dialog. Entirely controlled by cFilebrowser class.
......@@ -58,7 +60,7 @@ Public Class FB_Dialog
_bMultiFiles = False
_noExt = True
_bBrowseFolder = False
_bLightMode = LightMode
_bLightMode = lightMode
ButtonHisFile.Enabled = Not _bLightMode
End Sub
......@@ -954,3 +956,4 @@ lb10:
End Class
VECTO/File Browser/FB_FavDlog.designer.vb
+ 62
− 58
View file @ 22f38e76
' Copyright 2014 European Union.
' Copyright 2014 European Union.
' Licensed under the EUPL (the 'Licence');
'
' * You may not use this work except in compliance with the Licence.
......@@ -8,12 +8,16 @@
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'
' See the LICENSE.txt for the specific language governing permissions and limitations.
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Imports System.ComponentModel
Imports Microsoft.VisualBasic.CompilerServices
<DesignerGenerated()> _
Partial Class FB_FavDlog
Inherits System.Windows.Forms.Form
Inherits Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
......@@ -25,104 +29,104 @@ Partial Class FB_FavDlog
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
Private components As IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.OK_Button = New System.Windows.Forms.Button()
Me.Cancel_Button = New System.Windows.Forms.Button()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.TableLayoutPanel1 = New TableLayoutPanel()
Me.OK_Button = New Button()
Me.Cancel_Button = New Button()
Me.ListBox1 = New ListBox()
Me.Label1 = New Label()
Me.TableLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel1.Anchor = CType((AnchorStyles.Bottom Or AnchorStyles.Right), AnchorStyles)
Me.TableLayoutPanel1.ColumnCount = 2
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(326, 173)
Me.TableLayoutPanel1.Location = New Point(326, 173)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 1
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
Me.TableLayoutPanel1.RowStyles.Add(New RowStyle(SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Size = New Size(146, 29)
Me.TableLayoutPanel1.TabIndex = 0
'
'OK_Button
'
Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.OK_Button.Location = New System.Drawing.Point(3, 3)
Me.OK_Button.Anchor = AnchorStyles.None
Me.OK_Button.Location = New Point(3, 3)
Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(67, 23)
Me.OK_Button.Size = New Size(67, 23)
Me.OK_Button.TabIndex = 0
Me.OK_Button.Text = "OK"
'
'Cancel_Button
'
Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
Me.Cancel_Button.Anchor = AnchorStyles.None
Me.Cancel_Button.DialogResult = DialogResult.Cancel
Me.Cancel_Button.Location = New Point(76, 3)
Me.Cancel_Button.Name = "Cancel_Button"
Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
Me.Cancel_Button.Size = New Size(67, 23)
Me.Cancel_Button.TabIndex = 1
Me.Cancel_Button.Text = "Cancel"
'
'ListBox1
'
Me.ListBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ListBox1.Anchor = CType((((AnchorStyles.Top Or AnchorStyles.Bottom) _
Or AnchorStyles.Left) _
Or AnchorStyles.Right), AnchorStyles)
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.Location = New System.Drawing.Point(12, 12)
Me.ListBox1.Location = New Point(12, 12)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(460, 134)
Me.ListBox1.Size = New Size(460, 134)
Me.ListBox1.TabIndex = 1
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.Anchor = CType((AnchorStyles.Bottom Or AnchorStyles.Right), AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(369, 147)
Me.Label1.Location = New Point(369, 147)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(106, 13)
Me.Label1.Size = New Size(106, 13)
Me.Label1.TabIndex = 2
Me.Label1.Text = "(Double-Click to Edit)"
'
'FB_FavDlog
'
Me.AcceptButton = Me.OK_Button
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Inherit
Me.AutoScaleMode = AutoScaleMode.Inherit
Me.CancelButton = Me.Cancel_Button
Me.ClientSize = New System.Drawing.Size(484, 208)
Me.ClientSize = New Size(484, 208)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ListBox1)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.SizableToolWindow
Me.FormBorderStyle = FormBorderStyle.SizableToolWindow
Me.MaximizeBox = False
Me.MaximumSize = New System.Drawing.Size(5000, 242)
Me.MaximumSize = New Size(5000, 242)
Me.MinimizeBox = False
Me.MinimumSize = New System.Drawing.Size(0, 242)
Me.MinimumSize = New Size(0, 242)
Me.Name = "FB_FavDlog"
Me.ShowIcon = False
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.StartPosition = FormStartPosition.CenterParent
Me.Text = "Edit Favorites"
Me.TableLayoutPanel1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
Friend WithEvents OK_Button As Button
Friend WithEvents Cancel_Button As Button
Friend WithEvents ListBox1 As ListBox
Friend WithEvents Label1 As Label
End Class
VECTO/File Browser/FB_FavDlog.vb
+ 1
− 1
View file @ 22f38e76
......@@ -12,6 +12,7 @@ Option Infer On
Imports System.Windows.Forms
''' <summary>
''' Sub-dialog for File Browser. Entirely controlled by cFilebrowser class (via FB_Dialog).
''' </summary>
......@@ -57,6 +58,5 @@ Public Class FB_FavDlog
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
End Sub
End Class
VECTO/File Browser/FB_Global.vb
+ 0
− 1
View file @ 22f38e76
......@@ -43,4 +43,3 @@ Public Module FB_Global
Public fbVMOD As cFileBrowser
End Module
VECTO/GUI/F_AboutBox.Designer.vb
+ 96
− 92
View file @ 22f38e76
......@@ -8,12 +8,16 @@
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'
' See the LICENSE.txt for the specific language governing permissions and limitations.
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Imports System.ComponentModel
Imports Microsoft.VisualBasic.CompilerServices
Imports TUGraz.VECTO.My.Resources
<DesignerGenerated()> _
Partial Class F_AboutBox
Inherits System.Windows.Forms.Form
Inherits Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
......@@ -25,116 +29,116 @@ Partial Class F_AboutBox
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
Private components As IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label10 = New System.Windows.Forms.Label()
Me.LabelLic = New System.Windows.Forms.Label()
Me.LabelLicDate = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel2 = New System.Windows.Forms.LinkLabel()
Me.Label3 = New System.Windows.Forms.Label()
Me.PictureBoxJRC = New System.Windows.Forms.PictureBox()
Me.Label10 = New Label()
Me.LabelLic = New Label()
Me.LabelLicDate = New Label()
Me.Label2 = New Label()
Me.Label8 = New Label()
Me.Panel1 = New Panel()
Me.PictureBox1 = New PictureBox()
Me.Label1 = New Label()
Me.LinkLabel1 = New LinkLabel()
Me.LinkLabel2 = New LinkLabel()
Me.Label3 = New Label()
Me.PictureBoxJRC = New PictureBox()
Me.Panel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBoxJRC, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, ISupportInitialize).BeginInit()
CType(Me.PictureBoxJRC, ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(9, 250)
Me.Label10.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New Point(9, 250)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(75, 13)
Me.Label10.Size = New Size(75, 13)
Me.Label10.TabIndex = 11
Me.Label10.Text = "License file:"
'
'LabelLic
'
Me.LabelLic.AutoSize = True
Me.LabelLic.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelLic.Location = New System.Drawing.Point(3, 0)
Me.LabelLic.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, CType(0, Byte))
Me.LabelLic.Location = New Point(3, 0)
Me.LabelLic.Name = "LabelLic"
Me.LabelLic.Size = New System.Drawing.Size(22, 13)
Me.LabelLic.Size = New Size(22, 13)
Me.LabelLic.TabIndex = 12
Me.LabelLic.Text = "Lic"
'
'LabelLicDate
'
Me.LabelLicDate.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.LabelLicDate.Anchor = CType((AnchorStyles.Bottom Or AnchorStyles.Left), AnchorStyles)
Me.LabelLicDate.AutoSize = True
Me.LabelLicDate.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelLicDate.Location = New System.Drawing.Point(3, 26)
Me.LabelLicDate.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, CType(0, Byte))
Me.LabelLicDate.Location = New Point(3, 26)
Me.LabelLicDate.Name = "LabelLicDate"
Me.LabelLicDate.Size = New System.Drawing.Size(12, 13)
Me.LabelLicDate.Size = New Size(12, 13)
Me.LabelLicDate.TabIndex = 13
Me.LabelLicDate.Text = "-"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(9, 346)
Me.Label2.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New Point(9, 346)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(162, 13)
Me.Label2.Size = New Size(162, 13)
Me.Label2.TabIndex = 7
Me.Label2.Text = "Developed on behalf of the"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(24, 368)
Me.Label8.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New Point(24, 368)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(158, 39)
Me.Label8.Size = New Size(158, 39)
Me.Label8.TabIndex = 3
Me.Label8.Text = "Joint Research Centre" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sustainable Transport Unit" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "European Commission"
Me.Label8.Text = "Joint Research Centre" & ChrW(13) & ChrW(10) & "Sustainable Transport Unit" & ChrW(13) & ChrW(10) & "European Commission"
'
'Panel1
'
Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.Panel1.BorderStyle = BorderStyle.Fixed3D
Me.Panel1.Controls.Add(Me.LabelLic)
Me.Panel1.Controls.Add(Me.LabelLicDate)
Me.Panel1.Location = New System.Drawing.Point(12, 266)
Me.Panel1.Location = New Point(12, 266)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(464, 52)
Me.Panel1.Size = New Size(464, 52)
Me.Panel1.TabIndex = 16
'
'PictureBox1
'
Me.PictureBox1.Image = Global.VECTO.My.Resources.Resources.VECTO_About
Me.PictureBox1.Location = New System.Drawing.Point(23, 12)
Me.PictureBox1.Image = VECTO_About
Me.PictureBox1.Location = New Point(23, 12)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(447, 182)
Me.PictureBox1.Size = New Size(447, 182)
Me.PictureBox1.TabIndex = 14
Me.PictureBox1.TabStop = False
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(9, 436)
Me.Label1.Font = New Font("Verdana", 8.25!, FontStyle.Regular, GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New Point(9, 436)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(105, 13)
Me.Label1.Size = New Size(105, 13)
Me.Label1.TabIndex = 7
Me.Label1.Text = "Support Contact:"
'
'LinkLabel1
'
Me.LinkLabel1.AutoSize = True
Me.LinkLabel1.Location = New System.Drawing.Point(120, 436)
Me.LinkLabel1.Location = New Point(120, 436)
Me.LinkLabel1.Name = "LinkLabel1"
Me.LinkLabel1.Size = New System.Drawing.Size(122, 13)
Me.LinkLabel1.Size = New Size(122, 13)
Me.LinkLabel1.TabIndex = 17
Me.LinkLabel1.TabStop = True
Me.LinkLabel1.Text = "vecto@jrc.ec.europa.eu"
......@@ -142,10 +146,10 @@ Partial Class F_AboutBox
'LinkLabel2
'
Me.LinkLabel2.AutoSize = True
Me.LinkLabel2.Font = New System.Drawing.Font("Verdana", 8.25!)
Me.LinkLabel2.Location = New System.Drawing.Point(20, 197)
Me.LinkLabel2.Font = New Font("Verdana", 8.25!)
Me.LinkLabel2.Location = New Point(20, 197)
Me.LinkLabel2.Name = "LinkLabel2"
Me.LinkLabel2.Size = New System.Drawing.Size(210, 13)
Me.LinkLabel2.Size = New Size(210, 13)
Me.LinkLabel2.TabIndex = 18
Me.LinkLabel2.TabStop = True
Me.LinkLabel2.Text = "VECTO is licensed under EUPL 1.1+"
......@@ -153,29 +157,29 @@ Partial Class F_AboutBox
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Verdana", 8.25!)
Me.Label3.Location = New System.Drawing.Point(20, 213)
Me.Label3.Font = New Font("Verdana", 8.25!)
Me.Label3.Location = New Point(20, 213)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(237, 13)
Me.Label3.Size = New Size(237, 13)
Me.Label3.TabIndex = 19
Me.Label3.Text = "Copyright © 2012-2016 European Union"
'
'PictureBoxJRC
'
Me.PictureBoxJRC.Cursor = System.Windows.Forms.Cursors.Hand
Me.PictureBoxJRC.Image = Global.VECTO.My.Resources.Resources.JRC_About
Me.PictureBoxJRC.Location = New System.Drawing.Point(216, 353)
Me.PictureBoxJRC.Cursor = Cursors.Hand
Me.PictureBoxJRC.Image = JRC_About
Me.PictureBoxJRC.Location = New Point(216, 353)
Me.PictureBoxJRC.Name = "PictureBoxJRC"
Me.PictureBoxJRC.Size = New System.Drawing.Size(260, 54)
Me.PictureBoxJRC.Size = New Size(260, 54)
Me.PictureBoxJRC.TabIndex = 15
Me.PictureBoxJRC.TabStop = False
'
'F_AboutBox
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(491, 474)
Me.AutoScaleDimensions = New SizeF(6.0!, 13.0!)
Me.AutoScaleMode = AutoScaleMode.Font
Me.BackColor = Color.White
Me.ClientSize = New Size(491, 474)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.LinkLabel2)
Me.Controls.Add(Me.LinkLabel1)
......@@ -186,28 +190,28 @@ Partial Class F_AboutBox
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label8)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.FormBorderStyle = FormBorderStyle.FixedToolWindow
Me.Name = "F_AboutBox"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.StartPosition = FormStartPosition.CenterParent
Me.Text = "About VECTO"
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBoxJRC, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, ISupportInitialize).EndInit()
CType(Me.PictureBoxJRC, ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents LabelLic As System.Windows.Forms.Label
Friend WithEvents LabelLicDate As System.Windows.Forms.Label
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
Friend WithEvents LinkLabel2 As System.Windows.Forms.LinkLabel
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents PictureBoxJRC As System.Windows.Forms.PictureBox
Friend WithEvents Label10 As Label
Friend WithEvents LabelLic As Label
Friend WithEvents LabelLicDate As Label
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label2 As Label
Friend WithEvents Label8 As Label
Friend WithEvents Panel1 As Panel
Friend WithEvents Label1 As Label
Friend WithEvents LinkLabel1 As LinkLabel
Friend WithEvents LinkLabel2 As LinkLabel
Friend WithEvents Label3 As Label
Friend WithEvents PictureBoxJRC As PictureBox
End Class
VECTO/GUI/F_AboutBox.vb
+ 8
− 9
View file @ 22f38e76
......@@ -8,8 +8,7 @@
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'
' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports System.Linq
Imports System.Reflection
''' <summary>
''' About Dialog. Shows Licence and contact/support information
......@@ -17,28 +16,28 @@ Imports System.Reflection
''' <remarks></remarks>
Public Class F_AboutBox
'Initialize
Private Sub F10_AboutBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Private Sub F10_AboutBox_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Me.Text = "VECTO " & VECTOvers & " / VectoCore " & COREVers
Me.LabelLic.Text = Lic.LicString
Me.LabelLicDate.Text = "Expiring date (y/m/d): " & Lic.ExpTime
End Sub
'e-mail links----------------------------------------------------------------
Private Sub LinkLabel1_LinkClicked_1(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
Private Sub LinkLabel1_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) _
Handles LinkLabel1.LinkClicked
System.Diagnostics.Process.Start("mailto:vecto@jrc.ec.europa.eu")
Process.Start("mailto:vecto@jrc.ec.europa.eu")
End Sub
'----------------------------------------------------------------------------
'Picture Links------------------------------------------------------------------
Private Sub PictureBoxJRC_Click(sender As System.Object, e As System.EventArgs) Handles PictureBoxJRC.Click
System.Diagnostics.Process.Start("http://ec.europa.eu/dgs/jrc/index.cfm")
Private Sub PictureBoxJRC_Click(sender As Object, e As EventArgs) Handles PictureBoxJRC.Click
Process.Start("http://ec.europa.eu/dgs/jrc/index.cfm")
End Sub
Private Sub LinkLabel2_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) _
Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) _
Handles LinkLabel2.LinkClicked
System.Diagnostics.Process.Start("https://joinup.ec.europa.eu/community/eupl/og_page/eupl")
Process.Start("https://joinup.ec.europa.eu/community/eupl/og_page/eupl")
End Sub
End Class
VECTO/GUI/F_ENG.Designer.vb
+ 228
− 225
View file @ 22f38e76
This diff is collapsed.
VECTO/GUI/F_ENG.vb
+ 60
− 50
View file @ 22f38e76
Imports System.Web
Imports System.Drawing.Imaging
Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Windows.Forms.DataVisualization.Charting
Imports System.Xml.Linq
Imports TUGraz.VectoCommon.Models
Imports TUGraz.VectoCommon.Utils
Imports TUGraz.VectoCore.Models.Declaration
' Copyright 2014 European Union.
' Licensed under the EUPL (the 'Licence');
'
......@@ -23,14 +30,14 @@ Public Class F_ENG
'Before closing Editor: Check if file was changed and ask to save.
Private Sub F_ENG_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Private Sub F_ENG_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
If e.CloseReason <> CloseReason.ApplicationExitCall And e.CloseReason <> CloseReason.WindowsShutDown Then
e.Cancel = ChangeCheckCancel()
End If
End Sub
'Initialise.
Private Sub F_ENG_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Private Sub F_ENG_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.PnInertia.Enabled = Not Cfg.DeclMode
Me.GrWHTC.Enabled = Cfg.DeclMode
......@@ -45,29 +52,32 @@ Public Class F_ENG
If Not Cfg.DeclMode Then Exit Sub
Me.TbInertia.Text = CStr(cDeclaration.EngInertia(fTextboxToNumString(Me.TbDispl.Text)))
Me.TbInertia.Text =
CStr(
DeclarationData.Engine.EngineInertia((fTextboxToNumString(Me.TbDispl.Text) / 1000.0).SI(Of CubicMeter),
GearboxType.AMT).Value())
End Sub
#Region "Toolbar"
Private Sub ToolStripBtNew_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripBtNew.Click
Private Sub ToolStripBtNew_Click(sender As Object, e As EventArgs) Handles ToolStripBtNew.Click
newENG()
End Sub
Private Sub ToolStripBtOpen_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripBtOpen.Click
Private Sub ToolStripBtOpen_Click(sender As Object, e As EventArgs) Handles ToolStripBtOpen.Click
If fbENG.OpenDialog(EngFile) Then openENG(fbENG.Files(0))
End Sub
Private Sub ToolStripBtSave_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripBtSave.Click
Private Sub ToolStripBtSave_Click(sender As Object, e As EventArgs) Handles ToolStripBtSave.Click
SaveOrSaveAs(False)
End Sub
Private Sub ToolStripBtSaveAs_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripBtSaveAs.Click
Private Sub ToolStripBtSaveAs_Click(sender As Object, e As EventArgs) Handles ToolStripBtSaveAs.Click
SaveOrSaveAs(True)
End Sub
Private Sub ToolStripBtSendTo_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripBtSendTo.Click
Private Sub ToolStripBtSendTo_Click(sender As Object, e As EventArgs) Handles ToolStripBtSendTo.Click
If ChangeCheckCancel() Then Exit Sub
......@@ -90,13 +100,13 @@ Public Class F_ENG
F_VECTO.TbENG.Text = fFileWoDir(EngFile, JobDir)
End Sub
Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
If IO.File.Exists(MyAppPath & "User Manual\help.html") Then
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
If File.Exists(MyAppPath & "User Manual\help.html") Then
Dim BrowserRegistryString As String =
My.Computer.Registry.ClassesRoot.OpenSubKey("\http\shell\open\command\").GetValue("").ToString
Dim DefaultBrowserPath As String =
System.Text.RegularExpressions.Regex.Match(BrowserRegistryString, "(\"".*?\"")").Captures(0).ToString
System.Diagnostics.Process.Start(DefaultBrowserPath,
Regex.Match(BrowserRegistryString, "(\"".*?\"")").Captures(0).ToString
Process.Start(DefaultBrowserPath,
String.Format("""{0}{1}""", MyAppPath, "User Manual\help.html#engine-editor"))
Else
MsgBox("User Manual not found!", MsgBoxStyle.Critical)
......@@ -274,39 +284,39 @@ Public Class F_ENG
End Function
Private Sub TbName_TextChanged(sender As System.Object, e As System.EventArgs) Handles TbName.TextChanged
Private Sub TbName_TextChanged(sender As Object, e As EventArgs) Handles TbName.TextChanged
Change()
End Sub
Private Sub TbDispl_TextChanged(sender As System.Object, e As System.EventArgs) Handles TbDispl.TextChanged
Private Sub TbDispl_TextChanged(sender As Object, e As EventArgs) Handles TbDispl.TextChanged
Change()
DeclInit()
End Sub
Private Sub TbInertia_TextChanged(sender As System.Object, e As System.EventArgs) Handles TbInertia.TextChanged
Private Sub TbInertia_TextChanged(sender As Object, e As EventArgs) Handles TbInertia.TextChanged
Change()
End Sub
Private Sub TbNleerl_TextChanged(sender As System.Object, e As System.EventArgs) Handles TbNleerl.TextChanged
Private Sub TbNleerl_TextChanged(sender As Object, e As EventArgs) Handles TbNleerl.TextChanged
UpdatePic()
Change()
End Sub
Private Sub TbMAP_TextChanged(sender As System.Object, e As System.EventArgs) _
Private Sub TbMAP_TextChanged(sender As Object, e As EventArgs) _
Handles TbMAP.TextChanged, TbFLD.TextChanged
UpdatePic()
Change()
End Sub
Private Sub TbWHTCurban_TextChanged(sender As System.Object, e As System.EventArgs) Handles TbWHTCurban.TextChanged
Private Sub TbWHTCurban_TextChanged(sender As Object, e As EventArgs) Handles TbWHTCurban.TextChanged
Change()
End Sub
Private Sub TbWHTCrural_TextChanged(sender As System.Object, e As System.EventArgs) Handles TbWHTCrural.TextChanged
Private Sub TbWHTCrural_TextChanged(sender As Object, e As EventArgs) Handles TbWHTCrural.TextChanged
Change()
End Sub
Private Sub TbWHTCmw_TextChanged(sender As System.Object, e As System.EventArgs) Handles TbWHTCmw.TextChanged
Private Sub TbWHTCmw_TextChanged(sender As Object, e As EventArgs) Handles TbWHTCmw.TextChanged
Change()
End Sub
......@@ -314,19 +324,19 @@ Public Class F_ENG
#End Region
'Browse for VMAP file
Private Sub BtMAP_Click(sender As System.Object, e As System.EventArgs) Handles BtMAP.Click
Private Sub BtMAP_Click(sender As Object, e As EventArgs) Handles BtMAP.Click
If fbMAP.OpenDialog(fFileRepl(Me.TbMAP.Text, fPATH(EngFile))) Then _
Me.TbMAP.Text = fFileWoDir(fbMAP.Files(0), fPATH(EngFile))
End Sub
'Open VMAP file
Private Sub BtMAPopen_Click(sender As System.Object, e As System.EventArgs) Handles BtMAPopen.Click
Private Sub BtMAPopen_Click(sender As Object, e As EventArgs) Handles BtMAPopen.Click
Dim fldfile As String
fldfile = fFileRepl(Me.TbFLD.Text, fPATH(EngFile))
If fldfile <> sKey.NoFile AndAlso IO.File.Exists(fldfile) Then
If fldfile <> sKey.NoFile AndAlso File.Exists(fldfile) Then
OpenFiles(fFileRepl(Me.TbMAP.Text, fPATH(EngFile)), fldfile)
Else
OpenFiles(fFileRepl(Me.TbMAP.Text, fPATH(EngFile)))
......@@ -335,12 +345,12 @@ Public Class F_ENG
'Save and close
Private Sub ButOK_Click(sender As System.Object, e As System.EventArgs) Handles ButOK.Click
Private Sub ButOK_Click(sender As Object, e As EventArgs) Handles ButOK.Click
If SaveOrSaveAs(False) Then Me.Close()
End Sub
'Close without saving (see FormClosing Event)
Private Sub ButCancel_Click(sender As System.Object, e As System.EventArgs) Handles ButCancel.Click
Private Sub ButCancel_Click(sender As Object, e As EventArgs) Handles ButCancel.Click
Me.Close()
End Sub
......@@ -350,9 +360,9 @@ Public Class F_ENG
Dim mapOK As Boolean = False
Dim FLD0 As New cFLD
Dim MAP0 As New cMAP
Dim MyChart As System.Windows.Forms.DataVisualization.Charting.Chart
Dim s As System.Windows.Forms.DataVisualization.Charting.Series
Dim a As System.Windows.Forms.DataVisualization.Charting.ChartArea
Dim MyChart As Chart
Dim s As Series
Dim a As ChartArea
Dim img As Image
Me.PicBox.Image = Nothing
......@@ -374,25 +384,25 @@ Public Class F_ENG
'Create plot
MyChart = New System.Windows.Forms.DataVisualization.Charting.Chart
MyChart = New Chart
MyChart.Width = Me.PicBox.Width
MyChart.Height = Me.PicBox.Height
a = New System.Windows.Forms.DataVisualization.Charting.ChartArea
a = New ChartArea
If fldOK Then
s = New System.Windows.Forms.DataVisualization.Charting.Series
s = New Series
s.Points.DataBindXY(FLD0.LnU, FLD0.LTq)
s.ChartType = DataVisualization.Charting.SeriesChartType.FastLine
s.ChartType = SeriesChartType.FastLine
s.BorderWidth = 2
s.Color = Color.DarkBlue
s.Name = "Full load (" & fFILE(FLD0.FilePath, True) & ")"
MyChart.Series.Add(s)
s = New System.Windows.Forms.DataVisualization.Charting.Series
s = New Series
s.Points.DataBindXY(FLD0.LnU, FLD0.LTqDrag)
s.ChartType = DataVisualization.Charting.SeriesChartType.FastLine
s.ChartType = SeriesChartType.FastLine
s.BorderWidth = 2
s.Color = Color.Blue
s.Name = "Motoring (" & fFILE(FLD0.FilePath, True) & ")"
......@@ -401,9 +411,9 @@ Public Class F_ENG
End If
If mapOK Then
s = New System.Windows.Forms.DataVisualization.Charting.Series
s = New Series
s.Points.DataBindXY(MAP0.nU, MAP0.Tq)
s.ChartType = DataVisualization.Charting.SeriesChartType.Point
s.ChartType = SeriesChartType.Point
s.MarkerSize = 3
s.Color = Color.Red
s.Name = "Map"
......@@ -415,17 +425,17 @@ Public Class F_ENG
a.AxisX.Title = "engine speed [1/min]"
a.AxisX.TitleFont = New Font("Helvetica", 10)
a.AxisX.LabelStyle.Font = New Font("Helvetica", 8)
a.AxisX.LabelAutoFitStyle = DataVisualization.Charting.LabelAutoFitStyles.None
a.AxisX.MajorGrid.LineDashStyle = DataVisualization.Charting.ChartDashStyle.Dot
a.AxisX.LabelAutoFitStyle = LabelAutoFitStyles.None
a.AxisX.MajorGrid.LineDashStyle = ChartDashStyle.Dot
a.AxisY.Title = "engine torque [Nm]"
a.AxisY.TitleFont = New Font("Helvetica", 10)
a.AxisY.LabelStyle.Font = New Font("Helvetica", 8)
a.AxisY.LabelAutoFitStyle = DataVisualization.Charting.LabelAutoFitStyles.None
a.AxisY.MajorGrid.LineDashStyle = DataVisualization.Charting.ChartDashStyle.Dot
a.AxisY.LabelAutoFitStyle = LabelAutoFitStyles.None
a.AxisY.MajorGrid.LineDashStyle = ChartDashStyle.Dot
a.AxisX.Minimum = 300
a.BorderDashStyle = DataVisualization.Charting.ChartDashStyle.Solid
a.BorderDashStyle = ChartDashStyle.Solid
a.BorderWidth = 1
a.BackColor = Color.GhostWhite
......@@ -434,7 +444,7 @@ Public Class F_ENG
MyChart.Update()
img = New Bitmap(MyChart.Width, MyChart.Height, Imaging.PixelFormat.Format32bppArgb)
img = New Bitmap(MyChart.Width, MyChart.Height, PixelFormat.Format32bppArgb)
MyChart.DrawToBitmap(img, New Rectangle(0, 0, Me.PicBox.Width, Me.PicBox.Height))
......@@ -454,19 +464,19 @@ Public Class F_ENG
OpenWithToolStripMenuItem.Text = "Open with " & Cfg.OpenCmdName
CmOpenFile.Show(Cursor.Position)
CmOpenFile.Show(Windows.Forms.Cursor.Position)
End Sub
Private Sub OpenWithToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) _
Private Sub OpenWithToolStripMenuItem_Click(sender As Object, e As EventArgs) _
Handles OpenWithToolStripMenuItem.Click
If Not FileOpenAlt(CmFiles(0)) Then MsgBox("Failed to open file!")
End Sub
Private Sub ShowInFolderToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) _
Private Sub ShowInFolderToolStripMenuItem_Click(sender As Object, e As EventArgs) _
Handles ShowInFolderToolStripMenuItem.Click
If IO.File.Exists(CmFiles(0)) Then
If File.Exists(CmFiles(0)) Then
Try
System.Diagnostics.Process.Start("explorer", "/select,""" & CmFiles(0) & "")
Process.Start("explorer", "/select,""" & CmFiles(0) & "")
Catch ex As Exception
MsgBox("Failed to open file!")
End Try
......@@ -488,7 +498,7 @@ Public Class F_ENG
fldfile = fFileRepl(Me.TbFLD.Text, fPATH(EngFile))
If fldfile <> sKey.NoFile AndAlso IO.File.Exists(fldfile) Then
If fldfile <> sKey.NoFile AndAlso File.Exists(fldfile) Then
OpenFiles(fldfile)
End If
End Sub
......
VECTO/GUI/F_FileSign.Designer.vb
+ 152
− 149
View file @ 22f38e76
......@@ -8,12 +8,15 @@
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'
' See the LICENSE.txt for the specific language governing permissions and limitations.
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Imports System.ComponentModel
Imports Microsoft.VisualBasic.CompilerServices
<DesignerGenerated()> _
Partial Class F_FileSign
Inherits System.Windows.Forms.Form
Inherits Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
......@@ -25,86 +28,86 @@ Partial Class F_FileSign
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
Private components As IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(F_FileSign))
Me.TbSigFile = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.BtBrowse = New System.Windows.Forms.Button()
Me.lvFiles = New System.Windows.Forms.ListView()
Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.BtSign = New System.Windows.Forms.Button()
Me.BtClose = New System.Windows.Forms.Button()
Me.BtRemFLD = New System.Windows.Forms.Button()
Me.BtAddFLD = New System.Windows.Forms.Button()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.BtClearList = New System.Windows.Forms.Button()
Me.BtReload = New System.Windows.Forms.Button()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.LbStatus = New System.Windows.Forms.Label()
Me.LbMode = New System.Windows.Forms.Label()
Me.LbDateStr = New System.Windows.Forms.Label()
Me.TbPubKey = New System.Windows.Forms.TextBox()
Me.TbLicStr = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Dim resources As ComponentResourceManager = New ComponentResourceManager(GetType(F_FileSign))
Me.TbSigFile = New TextBox()
Me.Label1 = New Label()
Me.BtBrowse = New Button()
Me.lvFiles = New ListView()
Me.ColumnHeader1 = CType(New ColumnHeader(), ColumnHeader)
Me.ColumnHeader2 = CType(New ColumnHeader(), ColumnHeader)
Me.BtSign = New Button()
Me.BtClose = New Button()
Me.BtRemFLD = New Button()
Me.BtAddFLD = New Button()
Me.GroupBox1 = New GroupBox()
Me.BtClearList = New Button()
Me.BtReload = New Button()
Me.GroupBox2 = New GroupBox()
Me.LbStatus = New Label()
Me.LbMode = New Label()
Me.LbDateStr = New Label()
Me.TbPubKey = New TextBox()
Me.TbLicStr = New TextBox()
Me.Label5 = New Label()
Me.Label6 = New Label()
Me.Label3 = New Label()
Me.Label4 = New Label()
Me.Label2 = New Label()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
'
'TbSigFile
'
Me.TbSigFile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TbSigFile.Location = New System.Drawing.Point(12, 29)
Me.TbSigFile.Anchor = CType(((AnchorStyles.Top Or AnchorStyles.Left) _
Or AnchorStyles.Right), AnchorStyles)
Me.TbSigFile.Location = New Point(12, 29)
Me.TbSigFile.Name = "TbSigFile"
Me.TbSigFile.Size = New System.Drawing.Size(528, 20)
Me.TbSigFile.Size = New Size(528, 20)
Me.TbSigFile.TabIndex = 0
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 13)
Me.Label1.Location = New Point(12, 13)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(99, 13)
Me.Label1.Size = New Size(99, 13)
Me.Label1.TabIndex = 4
Me.Label1.Text = "Signature file (.vsig)"
'
'BtBrowse
'
Me.BtBrowse.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtBrowse.Image = Global.VECTO.My.Resources.Resources.Open_icon
Me.BtBrowse.Location = New System.Drawing.Point(541, 27)
Me.BtBrowse.Anchor = CType((AnchorStyles.Top Or AnchorStyles.Right), AnchorStyles)
Me.BtBrowse.Image = My.Resources.Resources.Open_icon
Me.BtBrowse.Location = New Point(541, 27)
Me.BtBrowse.Name = "BtBrowse"
Me.BtBrowse.Size = New System.Drawing.Size(24, 24)
Me.BtBrowse.Size = New Size(24, 24)
Me.BtBrowse.TabIndex = 1
Me.BtBrowse.UseVisualStyleBackColor = True
'
'lvFiles
'
Me.lvFiles.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lvFiles.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2})
Me.lvFiles.Anchor = CType((((AnchorStyles.Top Or AnchorStyles.Bottom) _
Or AnchorStyles.Left) _
Or AnchorStyles.Right), AnchorStyles)
Me.lvFiles.Columns.AddRange(New ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2})
Me.lvFiles.FullRowSelect = True
Me.lvFiles.GridLines = True
Me.lvFiles.LabelEdit = True
Me.lvFiles.Location = New System.Drawing.Point(6, 19)
Me.lvFiles.Location = New Point(6, 19)
Me.lvFiles.MultiSelect = False
Me.lvFiles.Name = "lvFiles"
Me.lvFiles.Size = New System.Drawing.Size(565, 368)
Me.lvFiles.Size = New Size(565, 368)
Me.lvFiles.TabIndex = 0
Me.lvFiles.UseCompatibleStateImageBehavior = False
Me.lvFiles.View = System.Windows.Forms.View.Details
Me.lvFiles.View = View.Details
'
'ColumnHeader1
'
......@@ -118,84 +121,84 @@ Partial Class F_FileSign
'
'BtSign
'
Me.BtSign.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.BtSign.Location = New System.Drawing.Point(12, 638)
Me.BtSign.Anchor = CType((AnchorStyles.Bottom Or AnchorStyles.Left), AnchorStyles)
Me.BtSign.Location = New Point(12, 638)
Me.BtSign.Name = "BtSign"
Me.BtSign.Size = New System.Drawing.Size(126, 23)
Me.BtSign.Size = New Size(126, 23)
Me.BtSign.TabIndex = 5
Me.BtSign.Text = "Create Signature File"
Me.BtSign.UseVisualStyleBackColor = True
'
'BtClose
'
Me.BtClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtClose.Location = New System.Drawing.Point(522, 638)
Me.BtClose.Anchor = CType((AnchorStyles.Bottom Or AnchorStyles.Right), AnchorStyles)
Me.BtClose.Location = New Point(522, 638)
Me.BtClose.Name = "BtClose"
Me.BtClose.Size = New System.Drawing.Size(67, 23)
Me.BtClose.Size = New Size(67, 23)
Me.BtClose.TabIndex = 6
Me.BtClose.Text = "Close"
Me.BtClose.UseVisualStyleBackColor = True
'
'BtRemFLD
'
Me.BtRemFLD.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.BtRemFLD.Image = Global.VECTO.My.Resources.Resources.minus_circle_icon
Me.BtRemFLD.Location = New System.Drawing.Point(29, 387)
Me.BtRemFLD.Anchor = CType((AnchorStyles.Bottom Or AnchorStyles.Left), AnchorStyles)
Me.BtRemFLD.Image = My.Resources.Resources.minus_circle_icon
Me.BtRemFLD.Location = New Point(29, 387)
Me.BtRemFLD.Name = "BtRemFLD"
Me.BtRemFLD.Size = New System.Drawing.Size(24, 24)
Me.BtRemFLD.Size = New Size(24, 24)
Me.BtRemFLD.TabIndex = 2
Me.BtRemFLD.UseVisualStyleBackColor = True
'
'BtAddFLD
'
Me.BtAddFLD.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.BtAddFLD.Image = Global.VECTO.My.Resources.Resources.plus_circle_icon
Me.BtAddFLD.Location = New System.Drawing.Point(5, 387)
Me.BtAddFLD.Anchor = CType((AnchorStyles.Bottom Or AnchorStyles.Left), AnchorStyles)
Me.BtAddFLD.Image = My.Resources.Resources.plus_circle_icon
Me.BtAddFLD.Location = New Point(5, 387)
Me.BtAddFLD.Name = "BtAddFLD"
Me.BtAddFLD.Size = New System.Drawing.Size(24, 24)
Me.BtAddFLD.Size = New Size(24, 24)
Me.BtAddFLD.TabIndex = 1
Me.BtAddFLD.UseVisualStyleBackColor = True
'
'GroupBox1
'
Me.GroupBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox1.Anchor = CType((((AnchorStyles.Top Or AnchorStyles.Bottom) _
Or AnchorStyles.Left) _
Or AnchorStyles.Right), AnchorStyles)
Me.GroupBox1.Controls.Add(Me.lvFiles)
Me.GroupBox1.Controls.Add(Me.BtClearList)
Me.GroupBox1.Controls.Add(Me.BtRemFLD)
Me.GroupBox1.Controls.Add(Me.BtAddFLD)
Me.GroupBox1.Location = New System.Drawing.Point(12, 210)
Me.GroupBox1.Location = New Point(12, 210)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(577, 422)
Me.GroupBox1.Size = New Size(577, 422)
Me.GroupBox1.TabIndex = 4
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Files"
'
'BtClearList
'
Me.BtClearList.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.BtClearList.Location = New System.Drawing.Point(508, 387)
Me.BtClearList.Anchor = CType((AnchorStyles.Bottom Or AnchorStyles.Left), AnchorStyles)
Me.BtClearList.Location = New Point(508, 387)
Me.BtClearList.Name = "BtClearList"
Me.BtClearList.Size = New System.Drawing.Size(63, 24)
Me.BtClearList.Size = New Size(63, 24)
Me.BtClearList.TabIndex = 3
Me.BtClearList.Text = "Clear List"
Me.BtClearList.UseVisualStyleBackColor = True
'
'BtReload
'
Me.BtReload.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.BtReload.Image = Global.VECTO.My.Resources.Resources.Refresh_icon
Me.BtReload.Location = New System.Drawing.Point(565, 27)
Me.BtReload.Anchor = CType((AnchorStyles.Top Or AnchorStyles.Right), AnchorStyles)
Me.BtReload.Image = My.Resources.Resources.Refresh_icon
Me.BtReload.Location = New Point(565, 27)
Me.BtReload.Name = "BtReload"
Me.BtReload.Size = New System.Drawing.Size(24, 24)
Me.BtReload.Size = New Size(24, 24)
Me.BtReload.TabIndex = 2
Me.BtReload.UseVisualStyleBackColor = True
'
'GroupBox2
'
Me.GroupBox2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GroupBox2.Anchor = CType(((AnchorStyles.Top Or AnchorStyles.Left) _
Or AnchorStyles.Right), AnchorStyles)
Me.GroupBox2.Controls.Add(Me.LbStatus)
Me.GroupBox2.Controls.Add(Me.LbMode)
Me.GroupBox2.Controls.Add(Me.LbDateStr)
......@@ -206,9 +209,9 @@ Partial Class F_FileSign
Me.GroupBox2.Controls.Add(Me.Label3)
Me.GroupBox2.Controls.Add(Me.Label4)
Me.GroupBox2.Controls.Add(Me.Label2)
Me.GroupBox2.Location = New System.Drawing.Point(18, 55)
Me.GroupBox2.Location = New Point(18, 55)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(571, 149)
Me.GroupBox2.Size = New Size(571, 149)
Me.GroupBox2.TabIndex = 3
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "File Information"
......@@ -216,99 +219,99 @@ Partial Class F_FileSign
'LbStatus
'
Me.LbStatus.AutoSize = True
Me.LbStatus.Location = New System.Drawing.Point(99, 116)
Me.LbStatus.Location = New Point(99, 116)
Me.LbStatus.Name = "LbStatus"
Me.LbStatus.Size = New System.Drawing.Size(0, 13)
Me.LbStatus.Size = New Size(0, 13)
Me.LbStatus.TabIndex = 4
'
'LbMode
'
Me.LbMode.AutoSize = True
Me.LbMode.Location = New System.Drawing.Point(99, 87)
Me.LbMode.Location = New Point(99, 87)
Me.LbMode.Name = "LbMode"
Me.LbMode.Size = New System.Drawing.Size(0, 13)
Me.LbMode.Size = New Size(0, 13)
Me.LbMode.TabIndex = 3
'
'LbDateStr
'
Me.LbDateStr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LbDateStr.Anchor = CType((AnchorStyles.Top Or AnchorStyles.Right), AnchorStyles)
Me.LbDateStr.AutoSize = True
Me.LbDateStr.Location = New System.Drawing.Point(415, 87)
Me.LbDateStr.Location = New Point(415, 87)
Me.LbDateStr.Name = "LbDateStr"
Me.LbDateStr.Size = New System.Drawing.Size(0, 13)
Me.LbDateStr.Size = New Size(0, 13)
Me.LbDateStr.TabIndex = 2
'
'TbPubKey
'
Me.TbPubKey.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TbPubKey.Location = New System.Drawing.Point(99, 48)
Me.TbPubKey.Anchor = CType(((AnchorStyles.Top Or AnchorStyles.Left) _
Or AnchorStyles.Right), AnchorStyles)
Me.TbPubKey.Location = New Point(99, 48)
Me.TbPubKey.Name = "TbPubKey"
Me.TbPubKey.ReadOnly = True
Me.TbPubKey.Size = New System.Drawing.Size(466, 20)
Me.TbPubKey.Size = New Size(466, 20)
Me.TbPubKey.TabIndex = 1
'
'TbLicStr
'
Me.TbLicStr.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TbLicStr.Location = New System.Drawing.Point(99, 22)
Me.TbLicStr.Anchor = CType(((AnchorStyles.Top Or AnchorStyles.Left) _
Or AnchorStyles.Right), AnchorStyles)
Me.TbLicStr.Location = New Point(99, 22)
Me.TbLicStr.Name = "TbLicStr"
Me.TbLicStr.ReadOnly = True
Me.TbLicStr.Size = New System.Drawing.Size(466, 20)
Me.TbLicStr.Size = New Size(466, 20)
Me.TbLicStr.TabIndex = 0
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(33, 51)
Me.Label5.Location = New Point(33, 51)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(60, 13)
Me.Label5.Size = New Size(60, 13)
Me.Label5.TabIndex = 0
Me.Label5.Text = "Public Key:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(53, 116)
Me.Label6.Location = New Point(53, 116)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(40, 13)
Me.Label6.Size = New Size(40, 13)
Me.Label6.TabIndex = 0
Me.Label6.Text = "Status:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(56, 87)
Me.Label3.Location = New Point(56, 87)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(37, 13)
Me.Label3.Size = New Size(37, 13)
Me.Label3.TabIndex = 0
Me.Label3.Text = "Mode:"
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.Anchor = CType((AnchorStyles.Top Or AnchorStyles.Right), AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(334, 87)
Me.Label4.Location = New Point(334, 87)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(75, 13)
Me.Label4.Size = New Size(75, 13)
Me.Label4.TabIndex = 0
Me.Label4.Text = "Creation Time:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(12, 25)
Me.Label2.Location = New Point(12, 25)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(81, 13)
Me.Label2.Size = New Size(81, 13)
Me.Label2.TabIndex = 0
Me.Label2.Text = "License Owner:"
'
'F_FileSign
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(601, 673)
Me.AutoScaleDimensions = New SizeF(6.0!, 13.0!)
Me.AutoScaleMode = AutoScaleMode.Font
Me.ClientSize = New Size(601, 673)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.BtReload)
Me.Controls.Add(Me.GroupBox1)
......@@ -317,13 +320,13 @@ Partial Class F_FileSign
Me.Controls.Add(Me.BtBrowse)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TbSigFile)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Icon = CType(resources.GetObject("$this.Icon"), Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.MinimumSize = New System.Drawing.Size(480, 400)
Me.MinimumSize = New Size(480, 400)
Me.Name = "F_FileSign"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Show
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.SizeGripStyle = SizeGripStyle.Show
Me.StartPosition = FormStartPosition.CenterParent
Me.Text = "Sign & Verify Files"
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
......@@ -332,29 +335,29 @@ Partial Class F_FileSign
Me.PerformLayout()
End Sub
Friend WithEvents TbSigFile As System.Windows.Forms.TextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents BtBrowse As System.Windows.Forms.Button
Friend WithEvents lvFiles As System.Windows.Forms.ListView
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
Friend WithEvents BtSign As System.Windows.Forms.Button
Friend WithEvents BtClose As System.Windows.Forms.Button
Friend WithEvents BtRemFLD As System.Windows.Forms.Button
Friend WithEvents BtAddFLD As System.Windows.Forms.Button
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents BtClearList As System.Windows.Forms.Button
Friend WithEvents BtReload As System.Windows.Forms.Button
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents LbMode As System.Windows.Forms.Label
Friend WithEvents LbDateStr As System.Windows.Forms.Label
Friend WithEvents TbPubKey As System.Windows.Forms.TextBox
Friend WithEvents TbLicStr As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents LbStatus As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents TbSigFile As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents BtBrowse As Button
Friend WithEvents lvFiles As ListView
Friend WithEvents ColumnHeader1 As ColumnHeader
Friend WithEvents ColumnHeader2 As ColumnHeader
Friend WithEvents BtSign As Button
Friend WithEvents BtClose As Button
Friend WithEvents BtRemFLD As Button
Friend WithEvents BtAddFLD As Button
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents BtClearList As Button
Friend WithEvents BtReload As Button
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Label2 As Label
Friend WithEvents LbMode As Label
Friend WithEvents LbDateStr As Label
Friend WithEvents TbPubKey As TextBox
Friend WithEvents TbLicStr As TextBox
Friend WithEvents Label5 As Label
Friend WithEvents LbStatus As Label
Friend WithEvents Label6 As Label
End Class
VECTO/GUI/F_FileSign.vb
+ 179
− 185
View file @ 22f38e76
......@@ -8,16 +8,18 @@
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'
' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports System.IO
Imports System.Windows.Forms
Imports TUGraz.VECTO.File_Browser
Imports vectolic
''' <summary>
''' Create/Verify signature files (.vsig).
''' </summary>
''' <remarks></remarks>
Public Class F_FileSign
'Create signature file
Private Sub BtSign_Click(sender As System.Object, e As System.EventArgs) Handles BtSign.Click
Private Sub BtSign_Click(sender As Object, e As EventArgs) Handles BtSign.Click
Dim lv0 As ListViewItem
Dim MainDir As String
......@@ -31,7 +33,7 @@ Public Class F_FileSign
Exit Sub
End If
If IO.File.Exists(Me.TbSigFile.Text) Then
If File.Exists(Me.TbSigFile.Text) Then
If MsgBox("Overwrite existing signature file?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub
End If
......@@ -42,7 +44,7 @@ Public Class F_FileSign
Lic.FileSigning.NewFile()
Lic.FileSigning.Mode = vectolic.cFileSigning.tMode.Manual
Lic.FileSigning.Mode = cFileSigning.tMode.Manual
For Each lv0 In Me.lvFiles.Items
......@@ -75,8 +77,6 @@ Public Class F_FileSign
End If
Next
End If
End Sub
'Verify existing signature file
......@@ -84,7 +84,7 @@ Public Class F_FileSign
Dim lv0 As ListViewItem
Dim i As Integer
If Not IO.File.Exists(Me.TbSigFile.Text) Then
If Not File.Exists(Me.TbSigFile.Text) Then
MsgBox("Signature file not found!", MsgBoxStyle.Critical)
Exit Sub
End If
......@@ -102,7 +102,7 @@ Public Class F_FileSign
Me.TbLicStr.Text = Lic.FileSigning.CreatorLicStr
Me.TbPubKey.Text = Lic.FileSigning.PubKey
Me.LbMode.Text = Lic.FileSigning.ModeConv(Lic.FileSigning.Mode)
If Lic.FileSigning.Mode = vectolic.cFileSigning.tMode.Auto Then
If Lic.FileSigning.Mode = cFileSigning.tMode.Auto Then
Me.LbMode.ForeColor = Color.DarkGreen
Else
Me.LbMode.ForeColor = Color.Red
......@@ -119,7 +119,6 @@ Public Class F_FileSign
End If
Me.lvFiles.Items.Add(lv0)
Next
End Sub
'Clear form
......@@ -130,16 +129,16 @@ Public Class F_FileSign
Me.LbMode.Text = ""
Me.LbDateStr.Text = ""
Me.LbStatus.Text = ""
Me.LbMode.ForeColor = Control.DefaultForeColor
Me.LbMode.BackColor = Control.DefaultBackColor
Me.LbStatus.ForeColor = Control.DefaultForeColor
Me.LbStatus.BackColor = Control.DefaultBackColor
Me.LbMode.ForeColor = DefaultForeColor
Me.LbMode.BackColor = DefaultBackColor
Me.LbStatus.ForeColor = DefaultForeColor
Me.LbStatus.BackColor = DefaultBackColor
End Sub
#Region "GUI Controls"
Private Sub BtBrowse_Click(sender As System.Object, e As System.EventArgs) Handles BtBrowse.Click
Private Sub BtBrowse_Click(sender As Object, e As EventArgs) Handles BtBrowse.Click
Dim fb As New cFileBrowser("sig", False, True)
fb.Extensions = New String() {"vsig"}
......@@ -147,33 +146,32 @@ Public Class F_FileSign
Me.TbSigFile.Text = fb.Files(0)
End If
If IO.File.Exists(Me.TbSigFile.Text) Then
If File.Exists(Me.TbSigFile.Text) Then
VerifySigFile()
End If
End Sub
Private Sub BtAddFLD_Click(sender As System.Object, e As System.EventArgs) Handles BtAddFLD.Click
Private Sub BtAddFLD_Click(sender As Object, e As EventArgs) Handles BtAddFLD.Click
AddFile()
End Sub
Private Sub BtRemFLD_Click(sender As System.Object, e As System.EventArgs) Handles BtRemFLD.Click
Private Sub BtRemFLD_Click(sender As Object, e As EventArgs) Handles BtRemFLD.Click
RemoveFile()
End Sub
Private Sub BtClose_Click(sender As System.Object, e As System.EventArgs) Handles BtClose.Click
Private Sub BtClose_Click(sender As Object, e As EventArgs) Handles BtClose.Click
Me.Close()
End Sub
Private Sub BtClearList_Click(sender As System.Object, e As System.EventArgs) Handles BtClearList.Click
Private Sub BtClearList_Click(sender As Object, e As EventArgs) Handles BtClearList.Click
Me.lvFiles.Items.Clear()
End Sub
Private Sub BtReload_Click(sender As System.Object, e As System.EventArgs) Handles BtReload.Click
Private Sub BtReload_Click(sender As Object, e As EventArgs) Handles BtReload.Click
VerifySigFile()
End Sub
Private Sub lvFiles_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles lvFiles.KeyDown
Private Sub lvFiles_KeyDown(sender As Object, e As KeyEventArgs) Handles lvFiles.KeyDown
Select Case e.KeyCode
Case Keys.Delete, Keys.Back
RemoveFile()
......@@ -204,7 +202,6 @@ Public Class F_FileSign
Next
End If
End Sub
'Remove File
......@@ -225,8 +222,5 @@ Public Class F_FileSign
End If
Me.lvFiles.Focus()
End Sub
End Class
VECTO/GUI/F_GBX.Designer.vb
+ 405
− 402
View file @ 22f38e76
This diff is collapsed.
VECTO/GUI/F_GBX.vb
+ 114
− 125
View file @ 22f38e76
This diff is collapsed.
VECTO/GUI/F_Graph.Designer.vb
+ 161
− 158
View file @ 22f38e76
This diff is collapsed.
VECTO/GUI/F_Graph.vb
+ 41
− 37
View file @ 22f38e76
This diff is collapsed.
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment

For further information about the platform and support, please see https://code.europa.eu/info/about