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 72e5fd39 authored by Terry Burns's avatar Terry Burns Committed by Kostis ANAGNOSTOPOULOS
Browse files

WIP - Persistance Added to Test Harness 

git-tfs-id: [http://tfs00.element.root.com:8080/tfs/TFSCollection]$/VECTO;C1687
parent 9e982f6a
Branches
Tags
No related merge requests found
Expand all Show whitespace changes
Inline Side-by-side
Showing
with 2882 additions and 115 deletions
AuxillaryTestHarness/AuxiliaryTestHarness.vbproj
+ 23
− 0
View file @ 72e5fd39
......@@ -129,6 +129,21 @@
<DesignTime>True</DesignTime>
<DependentUpon>Resource1.resx</DependentUpon>
</Compile>
<Compile Include="UI\cFileBrowser.vb" />
<Compile Include="UI\FB_Dialog.designer.vb">
<DependentUpon>FB_Dialog.vb</DependentUpon>
</Compile>
<Compile Include="UI\FB_Dialog.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="UI\FB_FavDlog.designer.vb">
<DependentUpon>FB_FavDlog.vb</DependentUpon>
</Compile>
<Compile Include="UI\FB_FavDlog.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="UI\FB_Global.vb" />
<Compile Include="UI\VECTO_Types.vb" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Dashboard.resx">
......@@ -145,6 +160,13 @@
<Generator>ResXFileCodeGenerator</Generator>
<LastGenOutput>Resource1.Designer.vb</LastGenOutput>
</EmbeddedResource>
<EmbeddedResource Include="UI\FB_Dialog.resx">
<DependentUpon>FB_Dialog.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="UI\FB_FavDlog.resx">
<DependentUpon>FB_FavDlog.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="AuxillaryTestHarness_TemporaryKey.pfx" />
......@@ -207,6 +229,7 @@
<Install>true</Install>
</BootstrapperPackage>
</ItemGroup>
<ItemGroup />
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
......
AuxillaryTestHarness/Dashboard.Designer.vb
+ 133
− 109
View file @ 72e5fd39
This diff is collapsed.
AuxillaryTestHarness/Dashboard.vb
+ 54
− 6
View file @ 72e5fd39
......@@ -1002,19 +1002,13 @@ Private Sub RefreshDisplayValues_Timed( sender As Object, e As EventArgs) Handl
End If
SecondsIntoCycle+=1
SetProcessingStatus()
RefreshDisplays()
End Sub
'Form Overrides
......@@ -1040,4 +1034,58 @@ Protected Overrides Function ProcessCmdKey(ByRef msg As Message, keyData As Keys
End Function
Private Sub btnSave_Click( sender As Object, e As EventArgs) Handles btnSave.Click
auxEnvironment.ClearDown()
auxEnvironment.Save("TESTHARNESCONFIG.Json")
End Sub
Private Sub btnLoad_Click( sender As Object, e As EventArgs) Handles btnLoad.Click
'JSON METHOD
'Release existing databindings
UnbindAllControls( Me)
auxEnvironment.Load("TESTHARNESCONFIG.Json")
''Only required for Harness environment
auxEnvironment.Initialise()
CreateBindings()
End Sub
public sub UnbindAllControls(ByRef container As Control)
'Clear all of the controls within the container object
'If "Recurse" is true, then also clear controls within any sub-containers
Dim ctrl As Control = Nothing
For Each ctrl In container.Controls
ctrl.DataBindings.Clear()
If ctrl.HasChildren then
UnbindAllControls(ctrl)
End If
next
End Sub
Private Sub btnFuelMap_Click( sender As Object, e As EventArgs) Handles btnFuelMap.Click
'If fbVEH.OpenDialog(fFileRepl(Me.TbVEH.Text,
'fPATH(VECTOfile))) Then
'End If
'Me.TbVEH.Text = fFileWoDir(fbVEH.Files(0), fPATH(VECTOfile))
End Sub
End Class
\ No newline at end of file
AuxillaryTestHarness/UI/FB_Dialog.designer.vb 0 → 100644
+ 379
− 0
View file @ 72e5fd39
' Copyright 2014 European Union.
' Licensed under the EUPL (the 'Licence');
'
' * You may not use this work except in compliance with the Licence.
' * You may obtain a copy of the Licence at: http://ec.europa.eu/idabc/eupl
' * Unless required by applicable law or agreed to in writing,
' software distributed under the Licence is distributed on an "AS IS" basis,
' 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()> _
Partial Class FB_Dialog
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.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()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.ButtonNewDir = New System.Windows.Forms.Button()
Me.ButtonDesktop = New System.Windows.Forms.Button()
Me.ButtonHisFolder = New System.Windows.Forms.Button()
Me.ButtonFolderBack = New System.Windows.Forms.Button()
Me.TextBoxSearchFolder = New System.Windows.Forms.TextBox()
Me.ListViewFolder = New System.Windows.Forms.ListView()
Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ComboBoxDrive = New System.Windows.Forms.ComboBox()
Me.ButtonAll = New System.Windows.Forms.Button()
Me.LabelFileAnz = New System.Windows.Forms.Label()
Me.ComboBoxExt = New System.Windows.Forms.ComboBox()
Me.ButtonHisFile = New System.Windows.Forms.Button()
Me.TextBoxSearchFile = New System.Windows.Forms.TextBox()
Me.ListViewFiles = New System.Windows.Forms.ListView()
Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ContextMenuFile = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.RenameFileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DeleteFileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TextBoxPath = New System.Windows.Forms.TextBox()
Me.ContextMenuHisFolder = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ContextMenuHisFile = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ButtonOK = New System.Windows.Forms.Button()
Me.ButtonCancel = New System.Windows.Forms.Button()
Me.TextBoxCurrent = New System.Windows.Forms.TextBox()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
Me.ContextMenuFile.SuspendLayout()
Me.SuspendLayout()
'
'SplitContainer1
'
Me.SplitContainer1.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.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.SplitContainer1.Location = New System.Drawing.Point(12, 36)
Me.SplitContainer1.Name = "SplitContainer1"
'
'SplitContainer1.Panel1
'
Me.SplitContainer1.Panel1.Controls.Add(Me.ButtonNewDir)
Me.SplitContainer1.Panel1.Controls.Add(Me.ButtonDesktop)
Me.SplitContainer1.Panel1.Controls.Add(Me.ButtonHisFolder)
Me.SplitContainer1.Panel1.Controls.Add(Me.ButtonFolderBack)
Me.SplitContainer1.Panel1.Controls.Add(Me.TextBoxSearchFolder)
Me.SplitContainer1.Panel1.Controls.Add(Me.ListViewFolder)
Me.SplitContainer1.Panel1.Controls.Add(Me.ComboBoxDrive)
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.ButtonAll)
Me.SplitContainer1.Panel2.Controls.Add(Me.LabelFileAnz)
Me.SplitContainer1.Panel2.Controls.Add(Me.ComboBoxExt)
Me.SplitContainer1.Panel2.Controls.Add(Me.ButtonHisFile)
Me.SplitContainer1.Panel2.Controls.Add(Me.TextBoxSearchFile)
Me.SplitContainer1.Panel2.Controls.Add(Me.ListViewFiles)
Me.SplitContainer1.Size = New System.Drawing.Size(764, 293)
Me.SplitContainer1.SplitterDistance = 382
Me.SplitContainer1.TabIndex = 5
Me.SplitContainer1.TabStop = False
'
'ButtonNewDir
'
Me.ButtonNewDir.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ButtonNewDir.Location = New System.Drawing.Point(202, 3)
Me.ButtonNewDir.Name = "ButtonNewDir"
Me.ButtonNewDir.Size = New System.Drawing.Size(38, 21)
Me.ButtonNewDir.TabIndex = 21
Me.ButtonNewDir.TabStop = False
Me.ButtonNewDir.Text = "New"
Me.ButtonNewDir.UseVisualStyleBackColor = True
'
'ButtonDesktop
'
Me.ButtonDesktop.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ButtonDesktop.Location = New System.Drawing.Point(246, 3)
Me.ButtonDesktop.Name = "ButtonDesktop"
Me.ButtonDesktop.Size = New System.Drawing.Size(57, 21)
Me.ButtonDesktop.TabIndex = 22
Me.ButtonDesktop.TabStop = False
Me.ButtonDesktop.Text = "Desktop"
Me.ButtonDesktop.UseVisualStyleBackColor = True
'
'ButtonHisFolder
'
Me.ButtonHisFolder.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ButtonHisFolder.Location = New System.Drawing.Point(309, 3)
Me.ButtonHisFolder.Name = "ButtonHisFolder"
Me.ButtonHisFolder.Size = New System.Drawing.Size(68, 21)
Me.ButtonHisFolder.TabIndex = 24
Me.ButtonHisFolder.TabStop = False
Me.ButtonHisFolder.Text = "His / Fav"
Me.ButtonHisFolder.UseVisualStyleBackColor = True
'
'ButtonFolderBack
'
Me.ButtonFolderBack.Location = New System.Drawing.Point(63, 3)
Me.ButtonFolderBack.Name = "ButtonFolderBack"
Me.ButtonFolderBack.Size = New System.Drawing.Size(28, 21)
Me.ButtonFolderBack.TabIndex = 20
Me.ButtonFolderBack.TabStop = False
Me.ButtonFolderBack.Text = "<"
Me.ButtonFolderBack.UseVisualStyleBackColor = True
'
'TextBoxSearchFolder
'
Me.TextBoxSearchFolder.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TextBoxSearchFolder.Location = New System.Drawing.Point(3, 266)
Me.TextBoxSearchFolder.Name = "TextBoxSearchFolder"
Me.TextBoxSearchFolder.Size = New System.Drawing.Size(374, 20)
Me.TextBoxSearchFolder.TabIndex = 15
'
'ListViewFolder
'
Me.ListViewFolder.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.ListViewFolder.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader3})
Me.ListViewFolder.FullRowSelect = True
Me.ListViewFolder.GridLines = True
Me.ListViewFolder.HideSelection = False
Me.ListViewFolder.Location = New System.Drawing.Point(3, 30)
Me.ListViewFolder.MultiSelect = False
Me.ListViewFolder.Name = "ListViewFolder"
Me.ListViewFolder.Size = New System.Drawing.Size(374, 230)
Me.ListViewFolder.TabIndex = 10
Me.ListViewFolder.UseCompatibleStateImageBehavior = False
Me.ListViewFolder.View = System.Windows.Forms.View.Details
'
'ColumnHeader3
'
Me.ColumnHeader3.Text = "Directory"
'
'ComboBoxDrive
'
Me.ComboBoxDrive.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComboBoxDrive.FormattingEnabled = True
Me.ComboBoxDrive.Location = New System.Drawing.Point(3, 3)
Me.ComboBoxDrive.Name = "ComboBoxDrive"
Me.ComboBoxDrive.Size = New System.Drawing.Size(54, 21)
Me.ComboBoxDrive.TabIndex = 5
'
'ButtonAll
'
Me.ButtonAll.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ButtonAll.Location = New System.Drawing.Point(239, 3)
Me.ButtonAll.Name = "ButtonAll"
Me.ButtonAll.Size = New System.Drawing.Size(71, 21)
Me.ButtonAll.TabIndex = 19
Me.ButtonAll.Text = "Select All"
Me.ButtonAll.UseVisualStyleBackColor = True
'
'LabelFileAnz
'
Me.LabelFileAnz.AutoSize = True
Me.LabelFileAnz.Location = New System.Drawing.Point(3, 7)
Me.LabelFileAnz.Name = "LabelFileAnz"
Me.LabelFileAnz.Size = New System.Drawing.Size(37, 13)
Me.LabelFileAnz.TabIndex = 7
Me.LabelFileAnz.Text = "0 Files"
'
'ComboBoxExt
'
Me.ComboBoxExt.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ComboBoxExt.FormattingEnabled = True
Me.ComboBoxExt.Location = New System.Drawing.Point(291, 266)
Me.ComboBoxExt.Name = "ComboBoxExt"
Me.ComboBoxExt.Size = New System.Drawing.Size(82, 21)
Me.ComboBoxExt.TabIndex = 20
'
'ButtonHisFile
'
Me.ButtonHisFile.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ButtonHisFile.Location = New System.Drawing.Point(316, 3)
Me.ButtonHisFile.Name = "ButtonHisFile"
Me.ButtonHisFile.Size = New System.Drawing.Size(57, 21)
Me.ButtonHisFile.TabIndex = 24
Me.ButtonHisFile.TabStop = False
Me.ButtonHisFile.Text = "History"
Me.ButtonHisFile.UseVisualStyleBackColor = True
'
'TextBoxSearchFile
'
Me.TextBoxSearchFile.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TextBoxSearchFile.Location = New System.Drawing.Point(3, 266)
Me.TextBoxSearchFile.Name = "TextBoxSearchFile"
Me.TextBoxSearchFile.Size = New System.Drawing.Size(282, 20)
Me.TextBoxSearchFile.TabIndex = 15
'
'ListViewFiles
'
Me.ListViewFiles.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.ListViewFiles.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1})
Me.ListViewFiles.ContextMenuStrip = Me.ContextMenuFile
Me.ListViewFiles.FullRowSelect = True
Me.ListViewFiles.GridLines = True
Me.ListViewFiles.HideSelection = False
Me.ListViewFiles.Location = New System.Drawing.Point(3, 30)
Me.ListViewFiles.Name = "ListViewFiles"
Me.ListViewFiles.Size = New System.Drawing.Size(370, 230)
Me.ListViewFiles.TabIndex = 10
Me.ListViewFiles.UseCompatibleStateImageBehavior = False
Me.ListViewFiles.View = System.Windows.Forms.View.Details
'
'ColumnHeader1
'
Me.ColumnHeader1.Text = "Filename"
Me.ColumnHeader1.Width = 251
'
'ContextMenuFile
'
Me.ContextMenuFile.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.RenameFileToolStripMenuItem, Me.DeleteFileToolStripMenuItem})
Me.ContextMenuFile.Name = "ContextMenuFile"
Me.ContextMenuFile.Size = New System.Drawing.Size(148, 48)
'
'RenameFileToolStripMenuItem
'
Me.RenameFileToolStripMenuItem.Name = "RenameFileToolStripMenuItem"
Me.RenameFileToolStripMenuItem.Size = New System.Drawing.Size(147, 22)
Me.RenameFileToolStripMenuItem.Text = "Rename File..."
'
'DeleteFileToolStripMenuItem
'
Me.DeleteFileToolStripMenuItem.Name = "DeleteFileToolStripMenuItem"
Me.DeleteFileToolStripMenuItem.Size = New System.Drawing.Size(147, 22)
Me.DeleteFileToolStripMenuItem.Text = "Delete File..."
'
'TextBoxPath
'
Me.TextBoxPath.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TextBoxPath.Location = New System.Drawing.Point(12, 335)
Me.TextBoxPath.Name = "TextBoxPath"
Me.TextBoxPath.Size = New System.Drawing.Size(764, 20)
Me.TextBoxPath.TabIndex = 15
'
'ContextMenuHisFolder
'
Me.ContextMenuHisFolder.Name = "ContextMenuFolderHis"
Me.ContextMenuHisFolder.Size = New System.Drawing.Size(61, 4)
'
'ContextMenuHisFile
'
Me.ContextMenuHisFile.Name = "ContextMenuFileHis"
Me.ContextMenuHisFile.Size = New System.Drawing.Size(61, 4)
'
'ButtonOK
'
Me.ButtonOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ButtonOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.ButtonOK.Location = New System.Drawing.Point(620, 361)
Me.ButtonOK.Name = "ButtonOK"
Me.ButtonOK.Size = New System.Drawing.Size(75, 23)
Me.ButtonOK.TabIndex = 20
Me.ButtonOK.TabStop = False
Me.ButtonOK.Text = "OK"
Me.ButtonOK.UseVisualStyleBackColor = True
'
'ButtonCancel
'
Me.ButtonCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ButtonCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.ButtonCancel.Location = New System.Drawing.Point(701, 361)
Me.ButtonCancel.Name = "ButtonCancel"
Me.ButtonCancel.Size = New System.Drawing.Size(75, 23)
Me.ButtonCancel.TabIndex = 25
Me.ButtonCancel.TabStop = False
Me.ButtonCancel.Text = "Cancel"
Me.ButtonCancel.UseVisualStyleBackColor = True
'
'TextBoxCurrent
'
Me.TextBoxCurrent.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TextBoxCurrent.Cursor = System.Windows.Forms.Cursors.Hand
Me.TextBoxCurrent.Location = New System.Drawing.Point(12, 14)
Me.TextBoxCurrent.Name = "TextBoxCurrent"
Me.TextBoxCurrent.ReadOnly = True
Me.TextBoxCurrent.Size = New System.Drawing.Size(764, 20)
Me.TextBoxCurrent.TabIndex = 0
Me.TextBoxCurrent.TabStop = False
'
'FB_Dialog
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.ButtonCancel
Me.ClientSize = New System.Drawing.Size(788, 391)
Me.Controls.Add(Me.TextBoxCurrent)
Me.Controls.Add(Me.ButtonCancel)
Me.Controls.Add(Me.ButtonOK)
Me.Controls.Add(Me.TextBoxPath)
Me.Controls.Add(Me.SplitContainer1)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "FB_Dialog"
Me.ShowIcon = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "File Browser"
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel1.PerformLayout()
Me.SplitContainer1.Panel2.ResumeLayout(False)
Me.SplitContainer1.Panel2.PerformLayout()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False)
Me.ContextMenuFile.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
Friend WithEvents ComboBoxDrive As System.Windows.Forms.ComboBox
Friend WithEvents ListViewFolder As System.Windows.Forms.ListView
Friend WithEvents ListViewFiles As System.Windows.Forms.ListView
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
Friend WithEvents TextBoxSearchFolder As System.Windows.Forms.TextBox
Friend WithEvents TextBoxSearchFile As System.Windows.Forms.TextBox
Friend WithEvents TextBoxPath As System.Windows.Forms.TextBox
Friend WithEvents ButtonFolderBack As System.Windows.Forms.Button
Friend WithEvents ContextMenuHisFolder As System.Windows.Forms.ContextMenuStrip
Friend WithEvents ContextMenuHisFile As System.Windows.Forms.ContextMenuStrip
Friend WithEvents ButtonHisFolder As System.Windows.Forms.Button
Friend WithEvents ButtonHisFile As System.Windows.Forms.Button
Friend WithEvents ButtonOK As System.Windows.Forms.Button
Friend WithEvents ButtonCancel As System.Windows.Forms.Button
Friend WithEvents ComboBoxExt As System.Windows.Forms.ComboBox
Friend WithEvents TextBoxCurrent As System.Windows.Forms.TextBox
Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
Friend WithEvents LabelFileAnz As System.Windows.Forms.Label
Friend WithEvents ButtonDesktop As System.Windows.Forms.Button
Friend WithEvents ContextMenuFile As System.Windows.Forms.ContextMenuStrip
Friend WithEvents RenameFileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents DeleteFileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents ButtonNewDir As System.Windows.Forms.Button
Friend WithEvents ButtonAll As System.Windows.Forms.Button
End Class
AuxillaryTestHarness/UI/FB_Dialog.resx 0 → 100644
+ 129
− 0
View file @ 72e5fd39
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ContextMenuFile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>329, 17</value>
</metadata>
<metadata name="ContextMenuHisFolder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ContextMenuHisFile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>180, 17</value>
</metadata>
</root>
\ No newline at end of file
AuxillaryTestHarness/UI/FB_Dialog.vb 0 → 100644
+ 1008
− 0
View file @ 72e5fd39
This diff is collapsed.
AuxillaryTestHarness/UI/FB_FavDlog.designer.vb 0 → 100644
+ 122
− 0
View file @ 72e5fd39
' Copyright 2014 European Union.
' Licensed under the EUPL (the 'Licence');
'
' * You may not use this work except in compliance with the Licence.
' * You may obtain a copy of the Licence at: http://ec.europa.eu/idabc/eupl
' * Unless required by applicable law or agreed to in writing,
' software distributed under the Licence is distributed on an "AS IS" basis,
' 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()> _
Partial Class FB_FavDlog
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.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()> _
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.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.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.Controls.Add(Me.OK_Button, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(277, 155)
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.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.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.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.Name = "Cancel_Button"
Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
Me.Cancel_Button.TabIndex = 1
Me.Cancel_Button.Text = "Cancel"
'
'ListBox1
'
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.Location = New System.Drawing.Point(12, 12)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(411, 134)
Me.ListBox1.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 163)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(119, 13)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Doubleclick Item to Edit"
'
'FB_FavDlog
'
Me.AcceptButton = Me.OK_Button
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.Cancel_Button
Me.ClientSize = New System.Drawing.Size(435, 196)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ListBox1)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "FB_FavDlog"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.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
End Class
AuxillaryTestHarness/UI/FB_FavDlog.resx 0 → 100644
+ 120
− 0
View file @ 72e5fd39
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>
\ No newline at end of file
AuxillaryTestHarness/UI/FB_FavDlog.vb 0 → 100644
+ 67
− 0
View file @ 72e5fd39
' Copyright 2014 European Union.
' Licensed under the EUPL (the 'Licence');
'
' * You may not use this work except in compliance with the Licence.
' * You may obtain a copy of the Licence at: http://ec.europa.eu/idabc/eupl
' * Unless required by applicable law or agreed to in writing,
' software distributed under the Licence is distributed on an "AS IS" basis,
' 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.Windows.Forms
''' <summary>
''' Sub-dialog for File Browser. Entirely controlled by cFilebrowser class (via FB_Dialog).
''' </summary>
''' <remarks></remarks>
Public Class FB_FavDlog
Private Const NoFavString As String = "<undefined>"
Private Const EmptyText As String = " "
Private Sub FB_FavDlog_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Dim x As Integer
Dim txt As String
For x = 10 To 19
txt = FB_FolderHistory(x)
If txt = EmptyText Then
Me.ListBox1.Items.Add(NoFavString)
Else
Me.ListBox1.Items.Add(txt)
End If
Next
End Sub
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub ListBox1_MouseDoubleClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick
Dim i As Integer
Dim txt As String
Dim fb As cFileBrowser
i = Me.ListBox1.SelectedIndex
txt = Me.ListBox1.Items(i).ToString
If txt = NoFavString Then txt = ""
fb = New cFileBrowser("DirBr", True, True)
If fb.OpenDialog(txt) Then
txt = fb.Files(0)
Me.ListBox1.Items.Insert(i, txt)
Me.ListBox1.Items.RemoveAt(i + 1)
End If
End Sub
End Class
AuxillaryTestHarness/UI/FB_Global.vb 0 → 100644
+ 46
− 0
View file @ 72e5fd39
' Copyright 2014 European Union.
' Licensed under the EUPL (the 'Licence');
'
' * You may not use this work except in compliance with the Licence.
' * You may obtain a copy of the Licence at: http://ec.europa.eu/idabc/eupl
' * Unless required by applicable law or agreed to in writing,
' software distributed under the Licence is distributed on an "AS IS" basis,
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'
' See the LICENSE.txt for the specific language governing permissions and limitations.
''' <summary>
''' Global File Brower properties and cFilebrowser instances.
''' </summary>
''' <remarks></remarks>
Module FB_Global
Public FB_FolderHistory(19) As String
Public FB_Drives() As String
Public FB_Init As Boolean
Public FB_FilHisDir As String
'-----------------------------
Public fbFolder As cFileBrowser
Public fbVECTO As cFileBrowser
Public fbFileLists As cFileBrowser
Public fbVEH As cFileBrowser
Public fbDRI As cFileBrowser
Public fbMAP As cFileBrowser
Public fbFLD As cFileBrowser
Public fbENG As cFileBrowser
Public fbGBX As cFileBrowser
Public fbACC As cFileBrowser
Public fbAUX As cFileBrowser
Public fbGBS As cFileBrowser
Public fbTLM As cFileBrowser
Public fbRLM As cFileBrowser
Public fbTCC As cFileBrowser
Public fbCDx As cFileBrowser
Public fbVMOD As cFileBrowser
End Module
AuxillaryTestHarness/UI/VECTO_Types.vb 0 → 100644
+ 181
− 0
View file @ 72e5fd39
' Copyright 2014 European Union.
' Licensed under the EUPL (the 'Licence');
'
' * You may not use this work except in compliance with the Licence.
' * You may obtain a copy of the Licence at: http://ec.europa.eu/idabc/eupl
' * Unless required by applicable law or agreed to in writing,
' software distributed under the Licence is distributed on an "AS IS" basis,
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'
' See the LICENSE.txt for the specific language governing permissions and limitations.
''' <summary>
''' Determines how file extensions are set in the File Browser
''' </summary>
''' <remarks></remarks>
Public Enum tFbExtMode As Integer
ForceExt = 0
MultiExt = 1
SingleExt = 2
End Enum
Public Enum tWorkMsgType
StatusBar
StatusListBox
ProgBars
JobStatus
CycleStatus
InitProgBar
Abort
End Enum
Public Enum tMsgID
NewJob
Normal
Warn
Err
End Enum
Public Enum tCalcResult
Err
Abort
Done
End Enum
Public Enum tJobStatus
Running
Queued
OK
Err
Warn
Undef
End Enum
Public Enum tDriComp
t
V
Grad
Alt
nU
Gears
Padd
Pe
VairVres
VairBeta
Undefined
s
StopTime
Torque
End Enum
Public Enum tVehState
Cruise
Acc
Dec
Stopped
End Enum
Public Enum tEngState
Idle
Drag
FullDrag
Load
FullLoad
Stopped
Undef
End Enum
Public Enum tEngClutch
Closed
Opened
Slipping
End Enum
Public Enum tAuxComp
Psupply
Undefined
End Enum
Public Enum tCdMode
ConstCd0 = 0
CdOfV = 1
CdOfBeta = 2
End Enum
Public Enum tRtType
None = 0
Primary = 1
Secondary = 2
End Enum
Public Enum tGearbox
Manual = 0
SemiAutomatic = 1
Automatic = 2
Custom = 3
End Enum
Public Enum tVehCat As Integer
Undef = 0
RigidTruck = 1
Tractor = 2
Citybus = 3
InterurbanBus = 4
Coach = 5
End Enum
Public Enum tAxleConf As Integer
Undef = 0
a4x2 = 1
a4x4 = 2
a6x2 = 3
a6x4 = 4
a6x6 = 5
a8x2 = 6
a8x4 = 7
a8x6 = 8
a8x8 = 9
End Enum
Public Enum tLoading
FullLoaded
EmptyLoaded
RefLoaded
UserDefLoaded
End Enum
Public Enum tMission
LongHaul
RegionalDelivery
UrbanDelivery
MunicipalUtility
Construction
HeavyUrban
Urban
Suburban
Interurban
Coach
Undef
End Enum
Public Enum tWHTCpart
Urban
Rural
Motorway
End Enum
Public Enum tAux
Fan
SteerPump
HVAC
ElectricSys
PneumSys
End Enum
AuxillaryTestHarness/UI/cFileBrowser.vb 0 → 100644
+ 161
− 0
View file @ 72e5fd39
' Copyright 2014 European Union.
' Licensed under the EUPL (the 'Licence');
'
' * You may not use this work except in compliance with the Licence.
' * You may obtain a copy of the Licence at: http://ec.europa.eu/idabc/eupl
' * Unless required by applicable law or agreed to in writing,
' software distributed under the Licence is distributed on an "AS IS" basis,
' 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.Collections
''' <summary>
''' File Browser for Open/Save File dialogs and Folder Browser. Features File History and Favorite Folders.
''' </summary>
''' <remarks>
''' Usage:
''' 1. Create new instance, preferably in FB_Global, e.g. fbTXT = New cFileBrowser("txt")
''' 2. Define extensions, e.g. fbTXT.Extensions = New String() {"txt","log"}
''' 3. Use OpenDialog, SaveDialog, etc.
''' 4. Call Close method when closing application to write file history, e.g. fbTXT.Close
''' File history is unique for each ID. Folder history is global.
''' </remarks>
Public Class cFileBrowser
Private Initialized As Boolean
Private MyID As String
Private MyExt As String()
Private Dlog As FB_Dialog
Private NoExt As Boolean
Private bFolderBrowser As Boolean
Private bLightMode As Boolean
''' <summary>
''' New cFileBrowser instance
''' </summary>
''' <param name="ID">Needed to save the file history when not using LightMode.</param>
''' <param name="FolderBrowser">Browse folders instead of files.</param>
''' <param name="LightMode">If enabled file history is not saved.</param>
''' <remarks></remarks>
Public Sub New(ByVal ID As String, Optional ByVal FolderBrowser As Boolean = False, Optional ByVal LightMode As Boolean = False)
Initialized = False
MyID = ID
NoExt = True
bFolderBrowser = FolderBrowser
bLightMode = LightMode
End Sub
''' <summary>
''' Opens dialog for OPENING files. Selected file must exist. Returns False if cancelled by user, else True.
''' </summary>
''' <param name="path">Initial selected file. If empty the last selected file is used. If file without directoy the last directory will be used.</param>
''' <param name="MultiFile">Allow selecting multiple files.</param>
''' <param name="Ext">Set extension. If not defined the first predefined extension is used.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function OpenDialog(ByVal path As String, Optional ByVal MultiFile As Boolean = False, Optional ByVal Ext As String = "") As Boolean
Return CustomDialog(path, True, False, tFbExtMode.MultiExt, MultiFile, Ext, "Open")
End Function
''' <summary>
''' Opens dialog for SAVING files. If file already exists user will be asked to overwrite. Returns False if cancelled by user, else True.
''' </summary>
''' <param name="path">Initial selected file. If empty the last selected file is used. If file without directoy the last directory will be used.</param>
''' <param name="ForceExt">Force predefined file extension.</param>
''' <param name="Ext">Set extension. If not defined the first predefined extension is used.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function SaveDialog(ByVal path As String, Optional ByVal ForceExt As Boolean = True, Optional ByVal Ext As String = "") As Boolean
Dim x As tFbExtMode
If ForceExt Then
x = tFbExtMode.ForceExt
Else
x = tFbExtMode.SingleExt
End If
Return CustomDialog(path, False, True, x, False, Ext, "Save As")
End Function
''' <summary>
''' Custom open/save dialog. Returns False if cancelled by user, else True.
''' </summary>
''' <param name="path">Initial selected file. If empty the last selected file is used. If file without directoy the last directory will be used.</param>
''' <param name="FileMustExist">Selected file must exist.</param>
''' <param name="OverwriteCheck">If file already exists user will be asked to overwrite.</param>
''' <param name="ExtMode">ForceExt= First predefined extension (or Ext parameter) will be forced (Default for SaveDialog), MultiExt= All files with predefined extensions are shown (Default for OpenDialog), SingleExt= All files with the first predefined extension will be shown.</param>
''' <param name="MultiFile">Allow to select multiple files.</param>
''' <param name="Ext">Set extension. If not defined the first predefined extension is used.</param>
''' <param name="Title">Dialog title.</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function CustomDialog(ByVal path As String, ByVal FileMustExist As Boolean, ByVal OverwriteCheck As Boolean, ByVal ExtMode As tFbExtMode, ByVal MultiFile As Boolean, ByVal Ext As String, Optional Title As String = "File Browser") As Boolean
If Not Initialized Then Init()
Return Dlog.Browse(path, FileMustExist, OverwriteCheck, ExtMode, MultiFile, Ext, Title)
End Function
'Manually update File History
''' <summary>
''' Add file to file history.
''' </summary>
''' <param name="Path">File to be added to file history.</param>
''' <remarks></remarks>
Public Sub UpdateHistory(ByVal Path As String)
If Not Initialized Then Init()
Dlog.UpdateHistory(Path)
End Sub
''' <summary>
''' Save file history (if not LightMode) and global folder history.
''' </summary>
''' <remarks></remarks>
Public Sub Close()
If Initialized Then
Dlog.SaveAndClose()
Initialized = False
End If
Dlog = Nothing
End Sub
Private Sub Init()
Dlog = New FB_Dialog(bLightMode)
Dlog.ID = MyID
If Not NoExt Then Dlog.Extensions = MyExt
If bFolderBrowser Then Dlog.SetFolderBrowser()
Initialized = True
End Sub
''' <summary>
''' Predefined file extensions. Must be set before Open/Save dialog is used for the first time.
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public Property Extensions() As String()
Get
Return MyExt
End Get
Set(ByVal value As String())
MyExt = value
NoExt = False
End Set
End Property
''' <summary>
''' Selected file(s) oder folder (if FolderBrowser)
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Files() As String()
Get
If Initialized Then
Return Dlog.Files
Else
Return New String() {""}
End If
End Get
End Property
End Class
CanISeeYou/App.config 0 → 100644
+ 6
− 0
View file @ 72e5fd39
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
</startup>
</configuration>
CanISeeYou/CanISeeYou.vbproj 0 → 100644
+ 132
− 0
View file @ 72e5fd39
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{00393656-50C5-4810-AAF6-53BAC8A74E8E}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>CanISeeYou.My.MyApplication</StartupObject>
<RootNamespace>CanISeeYou</RootNamespace>
<AssemblyName>CanISeeYou</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<SccProjectName>SAK</SccProjectName>
<SccLocalPath>SAK</SccLocalPath>
<SccAuxPath>SAK</SccAuxPath>
<SccProvider>SAK</SccProvider>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>CanISeeYou.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>CanISeeYou.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>
\ No newline at end of file
CanISeeYou/Form1.Designer.vb 0 → 100644
+ 51
− 0
View file @ 72e5fd39
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.SuspendLayout
'
'Label1
'
Me.Label1.AutoSize = true
Me.Label1.Location = New System.Drawing.Point(130, 57)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(39, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Label1"
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(461, 300)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(false)
Me.PerformLayout
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
End Class
CanISeeYou/Form1.resx 0 → 100644
+ 120
− 0
View file @ 72e5fd39
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>
\ No newline at end of file
CanISeeYou/Form1.vb 0 → 100644
+ 66
− 0
View file @ 72e5fd39

Imports System.Reflection
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim obj As System.Runtime.Remoting.ObjectHandle
Dim unwrapped As IYa
Try
obj = Activator.CreateInstance([Assembly].GetExecutingAssembly.FullName,"CanISeeYou.MC")
unwrapped = DirectCast(obj.Unwrap , IYa)
Catch ex As Exception
Dim ebb As Single = 0
Finally
End Try
End Sub
End Class
Public Class MC
Implements IYa
Public Property Age As integer
Public Property Name As String Implements IYa.Name
End Class
Public Interface IYa
property Name as string
Property Signals As ISignals
End Interface
CanISeeYou/My Project/Application.Designer.vb 0 → 100644
+ 38
− 0
View file @ 72e5fd39
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.18444
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.CanISeeYou.Form1
End Sub
End Class
End Namespace
CanISeeYou/My Project/Application.myapp 0 → 100644
+ 11
− 0
View file @ 72e5fd39
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>Form1</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>0</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>
CanISeeYou/My Project/AssemblyInfo.vb 0 → 100644
+ 35
− 0
View file @ 72e5fd39
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information
' associated with an assembly.
' Review the values of the assembly attributes
<Assembly: AssemblyTitle("CanISeeYou")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("AEA Group")>
<Assembly: AssemblyProduct("CanISeeYou")>
<Assembly: AssemblyCopyright("Copyright © AEA Group 2014")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'The following GUID is for the ID of the typelib if this project is exposed to COM
<Assembly: Guid("ff2fa347-2f0b-4475-b1fa-4a1a4ae5303c")>
' Version information for an assembly consists of the following four values:
'
' Major Version
' Minor Version
' Build Number
' Revision
'
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
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