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

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

adding missing files

parent 5f37be6b
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
VECTO/GUI/REESSPackDialog.Designer.vb 0 → 100644
+ 198
− 0
View file @ 294a4a99
' Copyright 2017 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.ComponentModel
Imports Microsoft.VisualBasic.CompilerServices
<DesignerGenerated()> _
Partial Class REESSPackDialog
Inherits Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<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 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.
<DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(REESSPackDialog))
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.OK_Button = New System.Windows.Forms.Button()
Me.Cancel_Button = New System.Windows.Forms.Button()
Me.pnREESSPack = New System.Windows.Forms.Panel()
Me.btnOpenBattery = New System.Windows.Forms.Button()
Me.btnBrowseBattery = New System.Windows.Forms.Button()
Me.tbBattery = New System.Windows.Forms.TextBox()
Me.tbBatteryPackCnt = New System.Windows.Forms.TextBox()
Me.lblBatteryPackCnt = New System.Windows.Forms.Label()
Me.tbStreamId = New System.Windows.Forms.TextBox()
Me.lblStreamId = New System.Windows.Forms.Label()
Me.TableLayoutPanel1.SuspendLayout
Me.pnREESSPack.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!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50!))
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(421, 108)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 1
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
Me.TableLayoutPanel1.TabIndex = 4
'
'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"
'
'pnREESSPack
'
Me.pnREESSPack.Controls.Add(Me.btnOpenBattery)
Me.pnREESSPack.Controls.Add(Me.btnBrowseBattery)
Me.pnREESSPack.Controls.Add(Me.tbBattery)
Me.pnREESSPack.Location = New System.Drawing.Point(12, 12)
Me.pnREESSPack.Name = "pnREESSPack"
Me.pnREESSPack.Size = New System.Drawing.Size(553, 27)
Me.pnREESSPack.TabIndex = 20
'
'btnOpenBattery
'
Me.btnOpenBattery.Location = New System.Drawing.Point(4, 3)
Me.btnOpenBattery.Name = "btnOpenBattery"
Me.btnOpenBattery.Size = New System.Drawing.Size(94, 21)
Me.btnOpenBattery.TabIndex = 0
Me.btnOpenBattery.TabStop = false
Me.btnOpenBattery.Text = "REESS Pack"
Me.btnOpenBattery.UseVisualStyleBackColor = true
'
'btnBrowseBattery
'
Me.btnBrowseBattery.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.btnBrowseBattery.Image = CType(resources.GetObject("btnBrowseBattery.Image"),System.Drawing.Image)
Me.btnBrowseBattery.Location = New System.Drawing.Point(527, 2)
Me.btnBrowseBattery.Name = "btnBrowseBattery"
Me.btnBrowseBattery.Size = New System.Drawing.Size(24, 24)
Me.btnBrowseBattery.TabIndex = 2
Me.btnBrowseBattery.TabStop = false
Me.btnBrowseBattery.UseVisualStyleBackColor = true
'
'tbBattery
'
Me.tbBattery.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles)
Me.tbBattery.Location = New System.Drawing.Point(104, 4)
Me.tbBattery.Name = "tbBattery"
Me.tbBattery.Size = New System.Drawing.Size(417, 20)
Me.tbBattery.TabIndex = 1
'
'tbBatteryPackCnt
'
Me.tbBatteryPackCnt.Location = New System.Drawing.Point(214, 45)
Me.tbBatteryPackCnt.Name = "tbBatteryPackCnt"
Me.tbBatteryPackCnt.Size = New System.Drawing.Size(59, 20)
Me.tbBatteryPackCnt.TabIndex = 26
'
'lblBatteryPackCnt
'
Me.lblBatteryPackCnt.AutoSize = true
Me.lblBatteryPackCnt.Location = New System.Drawing.Point(17, 48)
Me.lblBatteryPackCnt.Name = "lblBatteryPackCnt"
Me.lblBatteryPackCnt.Size = New System.Drawing.Size(124, 13)
Me.lblBatteryPackCnt.TabIndex = 25
Me.lblBatteryPackCnt.Text = "Number of RESS Packs:"
'
'tbStreamId
'
Me.tbStreamId.Location = New System.Drawing.Point(214, 71)
Me.tbStreamId.Name = "tbStreamId"
Me.tbStreamId.Size = New System.Drawing.Size(59, 20)
Me.tbStreamId.TabIndex = 28
'
'lblStreamId
'
Me.lblStreamId.AutoSize = true
Me.lblStreamId.Location = New System.Drawing.Point(17, 74)
Me.lblStreamId.Name = "lblStreamId"
Me.lblStreamId.Size = New System.Drawing.Size(44, 13)
Me.lblStreamId.TabIndex = 27
Me.lblStreamId.Text = "String #"
'
'REESSPackDialog
'
Me.AcceptButton = Me.OK_Button
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.Cancel_Button
Me.ClientSize = New System.Drawing.Size(579, 149)
Me.Controls.Add(Me.tbStreamId)
Me.Controls.Add(Me.lblStreamId)
Me.Controls.Add(Me.tbBatteryPackCnt)
Me.Controls.Add(Me.lblBatteryPackCnt)
Me.Controls.Add(Me.pnREESSPack)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
Me.MaximizeBox = false
Me.MinimizeBox = false
Me.Name = "REESSPackDialog"
Me.ShowInTaskbar = false
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Edit REESS Pack"
Me.TableLayoutPanel1.ResumeLayout(false)
Me.pnREESSPack.ResumeLayout(false)
Me.pnREESSPack.PerformLayout
Me.ResumeLayout(false)
Me.PerformLayout
End Sub
Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
Friend WithEvents OK_Button As Button
Friend WithEvents Cancel_Button As Button
Friend WithEvents pnREESSPack As Panel
Friend WithEvents btnOpenBattery As Button
Friend WithEvents btnBrowseBattery As Button
Friend WithEvents tbBattery As TextBox
Friend WithEvents tbBatteryPackCnt As TextBox
Friend WithEvents lblBatteryPackCnt As Label
Friend WithEvents tbStreamId As TextBox
Friend WithEvents lblStreamId As Label
End Class
VECTO/GUI/REESSPackDialog.resx 0 → 100644
+ 139
− 0
View file @ 294a4a99
<?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>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnBrowseBattery.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
vAAADrwBlbxySQAAAtVJREFUOE+FkmtIk2EYhhc6zU1zyjyAlZn5Q0QS6k/EMDDSQiuzkmxM5wpEA00S
zTzbsozQEDUyVKjQbejUPGQSyyjUmofysFRKU/M859J5qORu77s1KX/0wPXju7/vvp4X3o/RVsHv7pDy
0VklwIfaCPTXCzHQEPkXn5pEUDWJNH31kRGMf4eUocvF7GAShlqjQZ6H3qZjYUICQGliVfscvc+EGmNt
c0hhY/kONpYMrC/cwowqiYowchcYNaKRoa7mDDyfcuFRYpdnrBsEv7S3KT8XCTkUkq/3xGOj9xrQn0Cp
qQrGvnJ7uJTuwK58G4VJ8GMhh25eV29Ccp0yDmvd8SZBV7UA7sW2R5wfWsO+0ApO2ewMKlibE2N11siM
GCt6SL7YEQtdZxxUShECq7wQ9MQLZKnTfbbcqpQJuwxLDRWsTN+EbiobuslsLBsh+eybK3j/WgBfmQeq
1RKcqPalAgexlYIIrNMtQAVLE1lYGs/Cd8JYJrR6SK5ovoCzjTzI1VLE9gjgVsiBYza7jJvHAhGwkpkG
gfZrJhZHM6D5QtBf4ed0yKSnENLEg0L3AlHKIBxq2Ik9BRy4FNrA4bFBYJlgbhCQgno4DeqhNMwPpuFb
TyICan3waqUF0coAHGtxpwJvuSPcJBwqYBUzwby8TUEF84OpmFOlYnYghR69XcLHUdl+RLX7I6TVc4uA
W8aCZZy5hhnO8KECUpzuu4Gpj8lU0FgShuIHgeAVucK/0d0k8KzgwjGXje0xZiPMS/oyGVIgxcme65jo
MvyBNUWhqMw/j7ryi+Dlu+KwfDcVcNNYEOfx6E2Ypq0iVKN6GYNxZRLG3iVSQXnOcRSk+EGadxK1j4Jx
IMsZPhXOsE+2QnPZOcPmP9MtD+d0SMPkXTVCDLdeRadciPjIg7H6V3sNXzAYtrEMjmW0udxCZFZmjLZO
eyX/NDkNOcG9FD9vY/yfYTB+A9kMOLKC3dXwAAAAAElFTkSuQmCC
</value>
</data>
</root>
\ No newline at end of file
VECTO/GUI/REESSPackDialog.vb 0 → 100644
+ 101
− 0
View file @ 294a4a99
' Copyright 2017 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.
Option Infer On
Option Strict On
Option Explicit On
Imports System.IO
''' <summary>
''' Axle Config Editor (Vehicle Editor sub-dialog)
''' </summary>
Public Class REESSPackDialog
Public _vehFile As String
Public Sub New()
InitializeComponent()
End Sub
Public Sub Clear()
tbBattery.Text = ""
tbBatteryPackCnt.Text = ""
tbStreamId.Text = ""
tbBattery.Focus()
End Sub
'Initialise
Private Sub F_VEH_Axle_Load(sender As Object, e As EventArgs) Handles Me.Load
End Sub
'Save and close
Private Sub OK_Button_Click(sender As Object, e As EventArgs) Handles OK_Button.Click
If Not IsNumeric(tbStreamId.Text) Then
MsgBox("Invalid input for Stream #")
tbStreamId.Focus()
Return
End If
If Not IsNumeric(tbBatteryPackCnt.Text) Then
MsgBox("Invalid REESS Count")
tbBatteryPackCnt.Focus()
Return
End If
DialogResult = DialogResult.OK
Close()
End Sub
'Cancel
Private Sub Cancel_Button_Click(sender As Object, e As EventArgs) Handles Cancel_Button.Click
DialogResult = DialogResult.Cancel
Close()
End Sub
Private Sub btnBrowseBattery_Click(sender As Object, e As EventArgs) Handles btnBrowseBattery.Click
If REESSFileBrowser.OpenDialog(FileRepl(tbBattery.Text, GetPath(_vehFile))) Then
tbBattery.Text = GetFilenameWithoutDirectory(REESSFileBrowser.Files(0), GetPath(_vehFile))
End If
End Sub
Private Sub btnOpenBattery_Click(sender As Object, e As EventArgs) Handles btnOpenBattery.Click
Dim f As String
f = FileRepl(tbBattery.Text, GetPath(_vehFile))
'Thus Veh-file is returned
BatteryForm.JobDir = GetPath(_vehFile)
BatteryForm.AutoSendTo = True
If Not Trim(f) = "" Then
If Not File.Exists(f) Then
MsgBox("File not found!")
Exit Sub
End If
End If
If Not BatteryForm.Visible Then
BatteryForm.Show()
Else
If BatteryForm.WindowState = FormWindowState.Minimized Then BatteryForm.WindowState = FormWindowState.Normal
BatteryForm.BringToFront()
End If
If Not Trim(f) = "" Then
Try
BatteryForm.OpenBatteryFile(f)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Error loading Vehicle File")
End Try
End If
End Sub
End Class
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

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