Paris-5/Candidate-7-Pro
Paris-5/Candidate-7-Pro
1
1
Fork 0
Code Issues Pull Requests Releases 1 Activity

refactor: 🐛 Rise to version 7.0.8.22

Browse Source
This commit is contained in:
Simon Priet 2021-09-10 01:25:22 +02:00
parent f41ca0d8f5
commit 57d547cf62
22 changed files with 160 additions and 999 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

353
FrmBilan.Designer.vb generated
View File

@ -1,353 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmBilan
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<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
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmBilan))
Me.CBNP = New System.Windows.Forms.ComboBox
Me.RBNP = New System.Windows.Forms.RadioButton
Me.TxtId = New System.Windows.Forms.TextBox
Me.RBId = New System.Windows.Forms.RadioButton
Me.Lbl4 = New System.Windows.Forms.Label
Me.CboMat = New System.Windows.Forms.ComboBox
Me.LstRegion = New System.Windows.Forms.ListBox
Me.LstNP = New System.Windows.Forms.ListBox
Me.LstEtat = New System.Windows.Forms.ListBox
Me.LstSupp = New System.Windows.Forms.ListBox
Me.CmdClose = New System.Windows.Forms.Button
Me.PictureBox1 = New System.Windows.Forms.PictureBox
Me.CmdAff = New System.Windows.Forms.Button
Me.TabControl1 = New System.Windows.Forms.TabControl
Me.TabPage1 = New System.Windows.Forms.TabPage
Me.TabPage2 = New System.Windows.Forms.TabPage
Me.TabPage3 = New System.Windows.Forms.TabPage
Me.LBexam = New System.Windows.Forms.ListBox
Me.Lbl2 = New System.Windows.Forms.Label
Me.Lbl1 = New System.Windows.Forms.Label
Me.LblAge = New System.Windows.Forms.Label
Me.LblCPV = New System.Windows.Forms.Label
Me.LblAdrss = New System.Windows.Forms.Label
Me.LblNP = New System.Windows.Forms.Label
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.SuspendLayout()
'
'CBNP
'
Me.CBNP.FormattingEnabled = True
Me.CBNP.Location = New System.Drawing.Point(42, 77)
Me.CBNP.Name = "CBNP"
Me.CBNP.Size = New System.Drawing.Size(210, 21)
Me.CBNP.TabIndex = 38
'
'RBNP
'
Me.RBNP.AutoSize = True
Me.RBNP.BackColor = System.Drawing.SystemColors.Control
Me.RBNP.Location = New System.Drawing.Point(25, 54)
Me.RBNP.Name = "RBNP"
Me.RBNP.Size = New System.Drawing.Size(223, 17)
Me.RBNP.TabIndex = 37
Me.RBNP.TabStop = True
Me.RBNP.Text = "En sélectionnant son nom et son prénom :"
Me.RBNP.UseVisualStyleBackColor = False
'
'TxtId
'
Me.TxtId.Location = New System.Drawing.Point(179, 28)
Me.TxtId.Name = "TxtId"
Me.TxtId.Size = New System.Drawing.Size(73, 20)
Me.TxtId.TabIndex = 36
'
'RBId
'
Me.RBId.AutoSize = True
Me.RBId.BackColor = System.Drawing.SystemColors.Control
Me.RBId.Location = New System.Drawing.Point(25, 29)
Me.RBId.Name = "RBId"
Me.RBId.Size = New System.Drawing.Size(148, 17)
Me.RBId.TabIndex = 35
Me.RBId.TabStop = True
Me.RBId.Text = "En entrant son identifiant :"
Me.RBId.UseVisualStyleBackColor = False
'
'Lbl4
'
Me.Lbl4.AutoSize = True
Me.Lbl4.BackColor = System.Drawing.SystemColors.Control
Me.Lbl4.Location = New System.Drawing.Point(8, 3)
Me.Lbl4.Name = "Lbl4"
Me.Lbl4.Size = New System.Drawing.Size(208, 13)
Me.Lbl4.TabIndex = 34
Me.Lbl4.Text = "Comment voulez-vous choisir le candidat ?"
'
'CboMat
'
Me.CboMat.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.CboMat.FormattingEnabled = True
Me.CboMat.Location = New System.Drawing.Point(196, 6)
Me.CboMat.Name = "CboMat"
Me.CboMat.Size = New System.Drawing.Size(121, 21)
Me.CboMat.TabIndex = 39
'
'LstRegion
'
Me.LstRegion.FormattingEnabled = True
Me.LstRegion.Location = New System.Drawing.Point(6, 33)
Me.LstRegion.Name = "LstRegion"
Me.LstRegion.Size = New System.Drawing.Size(114, 56)
Me.LstRegion.TabIndex = 40
'
'LstNP
'
Me.LstNP.FormattingEnabled = True
Me.LstNP.Location = New System.Drawing.Point(126, 33)
Me.LstNP.Name = "LstNP"
Me.LstNP.Size = New System.Drawing.Size(103, 56)
Me.LstNP.TabIndex = 41
'
'LstEtat
'
Me.LstEtat.FormattingEnabled = True
Me.LstEtat.Location = New System.Drawing.Point(235, 33)
Me.LstEtat.Name = "LstEtat"
Me.LstEtat.Size = New System.Drawing.Size(105, 56)
Me.LstEtat.TabIndex = 42
'
'LstSupp
'
Me.LstSupp.FormattingEnabled = True
Me.LstSupp.Location = New System.Drawing.Point(8, 19)
Me.LstSupp.Name = "LstSupp"
Me.LstSupp.Size = New System.Drawing.Size(313, 69)
Me.LstSupp.TabIndex = 43
'
'CmdClose
'
Me.CmdClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.CmdClose.Location = New System.Drawing.Point(269, 302)
Me.CmdClose.Name = "CmdClose"
Me.CmdClose.Size = New System.Drawing.Size(75, 23)
Me.CmdClose.TabIndex = 44
Me.CmdClose.Text = "Fermer"
Me.CmdClose.UseVisualStyleBackColor = True
'
'PictureBox1
'
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
Me.PictureBox1.Location = New System.Drawing.Point(0, 372)
Me.PictureBox1.MaximumSize = New System.Drawing.Size(0, 2)
Me.PictureBox1.MinimumSize = New System.Drawing.Size(0, 2)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(0, 2)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 45
Me.PictureBox1.TabStop = False
'
'CmdAff
'
Me.CmdAff.Location = New System.Drawing.Point(11, 104)
Me.CmdAff.Name = "CmdAff"
Me.CmdAff.Size = New System.Drawing.Size(75, 23)
Me.CmdAff.TabIndex = 46
Me.CmdAff.Text = "Afficher"
Me.CmdAff.UseVisualStyleBackColor = True
'
'TabControl1
'
Me.TabControl1.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.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Location = New System.Drawing.Point(0, 0)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(357, 296)
Me.TabControl1.TabIndex = 51
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.LBexam)
Me.TabPage1.Controls.Add(Me.Lbl2)
Me.TabPage1.Controls.Add(Me.Lbl1)
Me.TabPage1.Controls.Add(Me.LblAge)
Me.TabPage1.Controls.Add(Me.LblCPV)
Me.TabPage1.Controls.Add(Me.LblAdrss)
Me.TabPage1.Controls.Add(Me.LblNP)
Me.TabPage1.Controls.Add(Me.CmdAff)
Me.TabPage1.Controls.Add(Me.Lbl4)
Me.TabPage1.Controls.Add(Me.RBId)
Me.TabPage1.Controls.Add(Me.CBNP)
Me.TabPage1.Controls.Add(Me.TxtId)
Me.TabPage1.Controls.Add(Me.RBNP)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(349, 270)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Bilan Individuel"
Me.TabPage1.UseVisualStyleBackColor = True
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.LstRegion)
Me.TabPage2.Controls.Add(Me.CboMat)
Me.TabPage2.Controls.Add(Me.LstNP)
Me.TabPage2.Controls.Add(Me.LstEtat)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(349, 270)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Inscription par matière"
Me.TabPage2.UseVisualStyleBackColor = True
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.LstSupp)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(349, 270)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Inscription supprimées."
Me.TabPage3.UseVisualStyleBackColor = True
'
'LBexam
'
Me.LBexam.FormattingEnabled = True
Me.LBexam.Location = New System.Drawing.Point(193, 157)
Me.LBexam.Name = "LBexam"
Me.LBexam.Size = New System.Drawing.Size(148, 108)
Me.LBexam.TabIndex = 53
'
'Lbl2
'
Me.Lbl2.AutoSize = True
Me.Lbl2.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Lbl2.Location = New System.Drawing.Point(176, 141)
Me.Lbl2.Name = "Lbl2"
Me.Lbl2.Size = New System.Drawing.Size(56, 13)
Me.Lbl2.TabIndex = 52
Me.Lbl2.Text = "Examens :"
'
'Lbl1
'
Me.Lbl1.AutoSize = True
Me.Lbl1.Location = New System.Drawing.Point(8, 141)
Me.Lbl1.Name = "Lbl1"
Me.Lbl1.Size = New System.Drawing.Size(55, 13)
Me.Lbl1.TabIndex = 47
Me.Lbl1.Text = "Candidat :"
'
'LblAge
'
Me.LblAge.AutoSize = True
Me.LblAge.Font = New System.Drawing.Font("Tahoma", 9.0!)
Me.LblAge.Location = New System.Drawing.Point(22, 236)
Me.LblAge.Name = "LblAge"
Me.LblAge.Size = New System.Drawing.Size(142, 14)
Me.LblAge.TabIndex = 51
Me.LblAge.Text = "Date de naissance (Age)"
'
'LblCPV
'
Me.LblCPV.AutoSize = True
Me.LblCPV.Font = New System.Drawing.Font("Tahoma", 9.0!)
Me.LblCPV.Location = New System.Drawing.Point(22, 216)
Me.LblCPV.Name = "LblCPV"
Me.LblCPV.Size = New System.Drawing.Size(100, 14)
Me.LblCPV.TabIndex = 50
Me.LblCPV.Text = "Code postal, Ville"
'
'LblAdrss
'
Me.LblAdrss.AutoSize = True
Me.LblAdrss.Font = New System.Drawing.Font("Tahoma", 9.0!)
Me.LblAdrss.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.LblAdrss.Location = New System.Drawing.Point(22, 196)
Me.LblAdrss.Name = "LblAdrss"
Me.LblAdrss.Size = New System.Drawing.Size(50, 14)
Me.LblAdrss.TabIndex = 49
Me.LblAdrss.Text = "Adresse"
'
'LblNP
'
Me.LblNP.AutoSize = True
Me.LblNP.Font = New System.Drawing.Font("Tahoma", 9.0!)
Me.LblNP.Location = New System.Drawing.Point(22, 176)
Me.LblNP.Name = "LblNP"
Me.LblNP.Size = New System.Drawing.Size(82, 14)
Me.LblNP.TabIndex = 48
Me.LblNP.Text = "Nom, Prénom"
'
'FrmBilan
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(356, 337)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.CmdClose)
Me.Controls.Add(Me.TabControl1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "FrmBilan"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Bilans"
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
Me.TabPage2.ResumeLayout(False)
Me.TabPage3.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents CBNP As System.Windows.Forms.ComboBox
Friend WithEvents RBNP As System.Windows.Forms.RadioButton
Friend WithEvents TxtId As System.Windows.Forms.TextBox
Friend WithEvents RBId As System.Windows.Forms.RadioButton
Friend WithEvents Lbl4 As System.Windows.Forms.Label
Friend WithEvents CboMat As System.Windows.Forms.ComboBox
Friend WithEvents LstRegion As System.Windows.Forms.ListBox
Friend WithEvents LstNP As System.Windows.Forms.ListBox
Friend WithEvents LstEtat As System.Windows.Forms.ListBox
Friend WithEvents LstSupp As System.Windows.Forms.ListBox
Friend WithEvents CmdClose As System.Windows.Forms.Button
Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
Friend WithEvents CmdAff As System.Windows.Forms.Button
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
Friend WithEvents LBexam As System.Windows.Forms.ListBox
Friend WithEvents Lbl2 As System.Windows.Forms.Label
Friend WithEvents Lbl1 As System.Windows.Forms.Label
Friend WithEvents LblAge As System.Windows.Forms.Label
Friend WithEvents LblCPV As System.Windows.Forms.Label
Friend WithEvents LblAdrss As System.Windows.Forms.Label
Friend WithEvents LblNP As System.Windows.Forms.Label
End Class

184
FrmBilan.resx
View File

@ -1,184 +0,0 @@
<?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>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="PictureBox1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
Qk3GDQAAAAAAADYAAAAoAAAAQgIAAAIAAAABABgAAAAAAAAAAADEDgAAxA4AAAAAAAAAAAAA////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////bQCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBtAA==
</value>
</data>
</root>

36
FrmBilan.vb
View File

@ -1,36 +0,0 @@
Public Class FrmBilan
Private Sub CmdClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdClose.Click
Me.Close()
FrmAccueil.Show()
End Sub
Private Sub FrmBilan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Tag = "Bilans"
'Me.Text = "Bilans | " & TimeOfDay
Dim i As Integer
For i = 0 To UBound(tme)
CboMat.Items.Add(tme(i))
Next
End Sub
Private Sub CBNP_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBNP.GotFocus
RBNP.Checked = True REM Permet de "checker" le ratiobox correspondant au focus (On veut choisir son nom dans une GRrB).
End Sub
Private Sub TxtId_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtId.GotFocus
RBId.Checked = True REM Permet de "checker" le ratiobox correspondant au focus (On veut enter l'ID du candidat).
End Sub
Private Sub RBId_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBId.CheckedChanged
CmdAff.Location = New Point(282, 39)
End Sub
Private Sub RBNP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBNP.CheckedChanged
CmdAff.Location = New Point(282, 88)
End Sub
End Class

122
FrmInput2.Designer.vb generated
View File

@ -19,49 +19,49 @@ Partial Class FrmInput2
'Ne la modifiez pas à l'aide de l'éditeur de code. 'Ne la modifiez pas à l'aide de l'éditeur de code.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmInput2)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmInput2))
Me.CboRegion = New System.Windows.Forms.ComboBox Me.CboRegion = New System.Windows.Forms.ComboBox()
Me.PnlFac = New System.Windows.Forms.Panel Me.PnlFac = New System.Windows.Forms.Panel()
Me.LblFac2 = New System.Windows.Forms.Label Me.LblFac2 = New System.Windows.Forms.Label()
Me.CboFac = New System.Windows.Forms.ComboBox Me.CboFac = New System.Windows.Forms.ComboBox()
Me.RBno = New System.Windows.Forms.RadioButton Me.RBno = New System.Windows.Forms.RadioButton()
Me.RBYes = New System.Windows.Forms.RadioButton Me.RBYes = New System.Windows.Forms.RadioButton()
Me.LblFac1 = New System.Windows.Forms.Label Me.LblFac1 = New System.Windows.Forms.Label()
Me.LblCaR = New System.Windows.Forms.Label Me.LblCaR = New System.Windows.Forms.Label()
Me.LblRegion = New System.Windows.Forms.Label Me.LblRegion = New System.Windows.Forms.Label()
Me.GBOral = New System.Windows.Forms.GroupBox Me.GBOral = New System.Windows.Forms.GroupBox()
Me.CheckBox18 = New System.Windows.Forms.CheckBox Me.CheckBox18 = New System.Windows.Forms.CheckBox()
Me.CheckBox17 = New System.Windows.Forms.CheckBox Me.CheckBox17 = New System.Windows.Forms.CheckBox()
Me.CheckBox16 = New System.Windows.Forms.CheckBox Me.CheckBox16 = New System.Windows.Forms.CheckBox()
Me.CheckBox21 = New System.Windows.Forms.CheckBox Me.CheckBox21 = New System.Windows.Forms.CheckBox()
Me.CheckBox20 = New System.Windows.Forms.CheckBox Me.CheckBox20 = New System.Windows.Forms.CheckBox()
Me.CheckBox19 = New System.Windows.Forms.CheckBox Me.CheckBox19 = New System.Windows.Forms.CheckBox()
Me.CheckBox15 = New System.Windows.Forms.CheckBox Me.CheckBox15 = New System.Windows.Forms.CheckBox()
Me.CheckBox14 = New System.Windows.Forms.CheckBox Me.CheckBox14 = New System.Windows.Forms.CheckBox()
Me.CheckBox13 = New System.Windows.Forms.CheckBox Me.CheckBox13 = New System.Windows.Forms.CheckBox()
Me.GBEcrit = New System.Windows.Forms.GroupBox Me.GBEcrit = New System.Windows.Forms.GroupBox()
Me.CheckBox12 = New System.Windows.Forms.CheckBox Me.CheckBox12 = New System.Windows.Forms.CheckBox()
Me.CheckBox11 = New System.Windows.Forms.CheckBox Me.CheckBox11 = New System.Windows.Forms.CheckBox()
Me.CheckBox10 = New System.Windows.Forms.CheckBox Me.CheckBox10 = New System.Windows.Forms.CheckBox()
Me.CheckBox9 = New System.Windows.Forms.CheckBox Me.CheckBox9 = New System.Windows.Forms.CheckBox()
Me.CheckBox8 = New System.Windows.Forms.CheckBox Me.CheckBox8 = New System.Windows.Forms.CheckBox()
Me.CheckBox7 = New System.Windows.Forms.CheckBox Me.CheckBox7 = New System.Windows.Forms.CheckBox()
Me.CheckBox6 = New System.Windows.Forms.CheckBox Me.CheckBox6 = New System.Windows.Forms.CheckBox()
Me.CheckBox5 = New System.Windows.Forms.CheckBox Me.CheckBox5 = New System.Windows.Forms.CheckBox()
Me.CheckBox4 = New System.Windows.Forms.CheckBox Me.CheckBox4 = New System.Windows.Forms.CheckBox()
Me.CheckBox3 = New System.Windows.Forms.CheckBox Me.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.CheckBox2 = New System.Windows.Forms.CheckBox Me.CheckBox2 = New System.Windows.Forms.CheckBox()
Me.CheckBox1 = New System.Windows.Forms.CheckBox Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.Lbl1 = New System.Windows.Forms.Label Me.Lbl1 = New System.Windows.Forms.Label()
Me.LblNP = New System.Windows.Forms.Label Me.LblNP = New System.Windows.Forms.Label()
Me.CmdNext = New System.Windows.Forms.Button Me.CmdNext = New System.Windows.Forms.Button()
Me.CmdAnnul = New System.Windows.Forms.Button Me.CmdAnnul = New System.Windows.Forms.Button()
Me.PictureBox1 = New System.Windows.Forms.PictureBox Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.TmrCaR = New System.Windows.Forms.Timer(Me.components) Me.TmrCaR = New System.Windows.Forms.Timer(Me.components)
Me.Tlt1 = New System.Windows.Forms.ToolTip(Me.components) Me.Tlt1 = New System.Windows.Forms.ToolTip(Me.components)
Me.LblNbEcr = New System.Windows.Forms.Label Me.LblNbEcr = New System.Windows.Forms.Label()
Me.LblNbOral = New System.Windows.Forms.Label Me.LblNbOral = New System.Windows.Forms.Label()
Me.PnlFac.SuspendLayout() Me.PnlFac.SuspendLayout()
Me.GBOral.SuspendLayout() Me.GBOral.SuspendLayout()
Me.GBEcrit.SuspendLayout() Me.GBEcrit.SuspendLayout()
@ -184,7 +184,7 @@ Partial Class FrmInput2
Me.CheckBox18.Location = New System.Drawing.Point(134, 19) Me.CheckBox18.Location = New System.Drawing.Point(134, 19)
Me.CheckBox18.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox18.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox18.Name = "CheckBox18" Me.CheckBox18.Name = "CheckBox18"
Me.CheckBox18.Size = New System.Drawing.Size(85, 17) Me.CheckBox18.Size = New System.Drawing.Size(87, 17)
Me.CheckBox18.TabIndex = 25 Me.CheckBox18.TabIndex = 25
Me.CheckBox18.Text = "CheckBox18" Me.CheckBox18.Text = "CheckBox18"
Me.CheckBox18.UseVisualStyleBackColor = True Me.CheckBox18.UseVisualStyleBackColor = True
@ -195,7 +195,7 @@ Partial Class FrmInput2
Me.CheckBox17.Location = New System.Drawing.Point(134, 40) Me.CheckBox17.Location = New System.Drawing.Point(134, 40)
Me.CheckBox17.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox17.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox17.Name = "CheckBox17" Me.CheckBox17.Name = "CheckBox17"
Me.CheckBox17.Size = New System.Drawing.Size(85, 17) Me.CheckBox17.Size = New System.Drawing.Size(87, 17)
Me.CheckBox17.TabIndex = 26 Me.CheckBox17.TabIndex = 26
Me.CheckBox17.Text = "CheckBox17" Me.CheckBox17.Text = "CheckBox17"
Me.CheckBox17.UseVisualStyleBackColor = True Me.CheckBox17.UseVisualStyleBackColor = True
@ -206,7 +206,7 @@ Partial Class FrmInput2
Me.CheckBox16.Location = New System.Drawing.Point(134, 61) Me.CheckBox16.Location = New System.Drawing.Point(134, 61)
Me.CheckBox16.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox16.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox16.Name = "CheckBox16" Me.CheckBox16.Name = "CheckBox16"
Me.CheckBox16.Size = New System.Drawing.Size(85, 17) Me.CheckBox16.Size = New System.Drawing.Size(87, 17)
Me.CheckBox16.TabIndex = 27 Me.CheckBox16.TabIndex = 27
Me.CheckBox16.Text = "CheckBox16" Me.CheckBox16.Text = "CheckBox16"
Me.CheckBox16.UseVisualStyleBackColor = True Me.CheckBox16.UseVisualStyleBackColor = True
@ -217,7 +217,7 @@ Partial Class FrmInput2
Me.CheckBox21.Location = New System.Drawing.Point(8, 19) Me.CheckBox21.Location = New System.Drawing.Point(8, 19)
Me.CheckBox21.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox21.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox21.Name = "CheckBox21" Me.CheckBox21.Name = "CheckBox21"
Me.CheckBox21.Size = New System.Drawing.Size(85, 17) Me.CheckBox21.Size = New System.Drawing.Size(87, 17)
Me.CheckBox21.TabIndex = 13 Me.CheckBox21.TabIndex = 13
Me.CheckBox21.Text = "CheckBox21" Me.CheckBox21.Text = "CheckBox21"
Me.CheckBox21.UseVisualStyleBackColor = True Me.CheckBox21.UseVisualStyleBackColor = True
@ -228,7 +228,7 @@ Partial Class FrmInput2
Me.CheckBox20.Location = New System.Drawing.Point(8, 40) Me.CheckBox20.Location = New System.Drawing.Point(8, 40)
Me.CheckBox20.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox20.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox20.Name = "CheckBox20" Me.CheckBox20.Name = "CheckBox20"
Me.CheckBox20.Size = New System.Drawing.Size(85, 17) Me.CheckBox20.Size = New System.Drawing.Size(87, 17)
Me.CheckBox20.TabIndex = 14 Me.CheckBox20.TabIndex = 14
Me.CheckBox20.Text = "CheckBox20" Me.CheckBox20.Text = "CheckBox20"
Me.CheckBox20.UseVisualStyleBackColor = True Me.CheckBox20.UseVisualStyleBackColor = True
@ -239,7 +239,7 @@ Partial Class FrmInput2
Me.CheckBox19.Location = New System.Drawing.Point(8, 61) Me.CheckBox19.Location = New System.Drawing.Point(8, 61)
Me.CheckBox19.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox19.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox19.Name = "CheckBox19" Me.CheckBox19.Name = "CheckBox19"
Me.CheckBox19.Size = New System.Drawing.Size(85, 17) Me.CheckBox19.Size = New System.Drawing.Size(87, 17)
Me.CheckBox19.TabIndex = 15 Me.CheckBox19.TabIndex = 15
Me.CheckBox19.Text = "CheckBox19" Me.CheckBox19.Text = "CheckBox19"
Me.CheckBox19.UseVisualStyleBackColor = True Me.CheckBox19.UseVisualStyleBackColor = True
@ -250,7 +250,7 @@ Partial Class FrmInput2
Me.CheckBox15.Location = New System.Drawing.Point(8, 82) Me.CheckBox15.Location = New System.Drawing.Point(8, 82)
Me.CheckBox15.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox15.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox15.Name = "CheckBox15" Me.CheckBox15.Name = "CheckBox15"
Me.CheckBox15.Size = New System.Drawing.Size(85, 17) Me.CheckBox15.Size = New System.Drawing.Size(87, 17)
Me.CheckBox15.TabIndex = 19 Me.CheckBox15.TabIndex = 19
Me.CheckBox15.Text = "CheckBox15" Me.CheckBox15.Text = "CheckBox15"
Me.CheckBox15.UseVisualStyleBackColor = True Me.CheckBox15.UseVisualStyleBackColor = True
@ -261,7 +261,7 @@ Partial Class FrmInput2
Me.CheckBox14.Location = New System.Drawing.Point(8, 103) Me.CheckBox14.Location = New System.Drawing.Point(8, 103)
Me.CheckBox14.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox14.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox14.Name = "CheckBox14" Me.CheckBox14.Name = "CheckBox14"
Me.CheckBox14.Size = New System.Drawing.Size(85, 17) Me.CheckBox14.Size = New System.Drawing.Size(87, 17)
Me.CheckBox14.TabIndex = 20 Me.CheckBox14.TabIndex = 20
Me.CheckBox14.Text = "CheckBox14" Me.CheckBox14.Text = "CheckBox14"
Me.CheckBox14.UseVisualStyleBackColor = True Me.CheckBox14.UseVisualStyleBackColor = True
@ -272,7 +272,7 @@ Partial Class FrmInput2
Me.CheckBox13.Location = New System.Drawing.Point(8, 124) Me.CheckBox13.Location = New System.Drawing.Point(8, 124)
Me.CheckBox13.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox13.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox13.Name = "CheckBox13" Me.CheckBox13.Name = "CheckBox13"
Me.CheckBox13.Size = New System.Drawing.Size(85, 17) Me.CheckBox13.Size = New System.Drawing.Size(87, 17)
Me.CheckBox13.TabIndex = 21 Me.CheckBox13.TabIndex = 21
Me.CheckBox13.Text = "CheckBox13" Me.CheckBox13.Text = "CheckBox13"
Me.CheckBox13.UseVisualStyleBackColor = True Me.CheckBox13.UseVisualStyleBackColor = True
@ -305,7 +305,7 @@ Partial Class FrmInput2
Me.CheckBox12.Location = New System.Drawing.Point(8, 19) Me.CheckBox12.Location = New System.Drawing.Point(8, 19)
Me.CheckBox12.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox12.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox12.Name = "CheckBox12" Me.CheckBox12.Name = "CheckBox12"
Me.CheckBox12.Size = New System.Drawing.Size(85, 17) Me.CheckBox12.Size = New System.Drawing.Size(87, 17)
Me.CheckBox12.TabIndex = 1 Me.CheckBox12.TabIndex = 1
Me.CheckBox12.Text = "CheckBox12" Me.CheckBox12.Text = "CheckBox12"
Me.CheckBox12.UseVisualStyleBackColor = True Me.CheckBox12.UseVisualStyleBackColor = True
@ -316,7 +316,7 @@ Partial Class FrmInput2
Me.CheckBox11.Location = New System.Drawing.Point(8, 40) Me.CheckBox11.Location = New System.Drawing.Point(8, 40)
Me.CheckBox11.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox11.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox11.Name = "CheckBox11" Me.CheckBox11.Name = "CheckBox11"
Me.CheckBox11.Size = New System.Drawing.Size(85, 17) Me.CheckBox11.Size = New System.Drawing.Size(87, 17)
Me.CheckBox11.TabIndex = 2 Me.CheckBox11.TabIndex = 2
Me.CheckBox11.Text = "CheckBox11" Me.CheckBox11.Text = "CheckBox11"
Me.CheckBox11.UseVisualStyleBackColor = True Me.CheckBox11.UseVisualStyleBackColor = True
@ -327,7 +327,7 @@ Partial Class FrmInput2
Me.CheckBox10.Location = New System.Drawing.Point(8, 61) Me.CheckBox10.Location = New System.Drawing.Point(8, 61)
Me.CheckBox10.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox10.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox10.Name = "CheckBox10" Me.CheckBox10.Name = "CheckBox10"
Me.CheckBox10.Size = New System.Drawing.Size(85, 17) Me.CheckBox10.Size = New System.Drawing.Size(87, 17)
Me.CheckBox10.TabIndex = 3 Me.CheckBox10.TabIndex = 3
Me.CheckBox10.Text = "CheckBox10" Me.CheckBox10.Text = "CheckBox10"
Me.CheckBox10.UseVisualStyleBackColor = True Me.CheckBox10.UseVisualStyleBackColor = True
@ -338,7 +338,7 @@ Partial Class FrmInput2
Me.CheckBox9.Location = New System.Drawing.Point(8, 103) Me.CheckBox9.Location = New System.Drawing.Point(8, 103)
Me.CheckBox9.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox9.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox9.Name = "CheckBox9" Me.CheckBox9.Name = "CheckBox9"
Me.CheckBox9.Size = New System.Drawing.Size(79, 17) Me.CheckBox9.Size = New System.Drawing.Size(81, 17)
Me.CheckBox9.TabIndex = 4 Me.CheckBox9.TabIndex = 4
Me.CheckBox9.Text = "CheckBox9" Me.CheckBox9.Text = "CheckBox9"
Me.CheckBox9.UseVisualStyleBackColor = True Me.CheckBox9.UseVisualStyleBackColor = True
@ -349,7 +349,7 @@ Partial Class FrmInput2
Me.CheckBox8.Location = New System.Drawing.Point(120, 61) Me.CheckBox8.Location = New System.Drawing.Point(120, 61)
Me.CheckBox8.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox8.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox8.Name = "CheckBox8" Me.CheckBox8.Name = "CheckBox8"
Me.CheckBox8.Size = New System.Drawing.Size(79, 17) Me.CheckBox8.Size = New System.Drawing.Size(81, 17)
Me.CheckBox8.TabIndex = 5 Me.CheckBox8.TabIndex = 5
Me.CheckBox8.Text = "CheckBox8" Me.CheckBox8.Text = "CheckBox8"
Me.CheckBox8.UseVisualStyleBackColor = True Me.CheckBox8.UseVisualStyleBackColor = True
@ -360,7 +360,7 @@ Partial Class FrmInput2
Me.CheckBox7.Location = New System.Drawing.Point(120, 124) Me.CheckBox7.Location = New System.Drawing.Point(120, 124)
Me.CheckBox7.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox7.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox7.Name = "CheckBox7" Me.CheckBox7.Name = "CheckBox7"
Me.CheckBox7.Size = New System.Drawing.Size(79, 17) Me.CheckBox7.Size = New System.Drawing.Size(81, 17)
Me.CheckBox7.TabIndex = 6 Me.CheckBox7.TabIndex = 6
Me.CheckBox7.Text = "CheckBox7" Me.CheckBox7.Text = "CheckBox7"
Me.CheckBox7.UseVisualStyleBackColor = True Me.CheckBox7.UseVisualStyleBackColor = True
@ -371,7 +371,7 @@ Partial Class FrmInput2
Me.CheckBox6.Location = New System.Drawing.Point(8, 82) Me.CheckBox6.Location = New System.Drawing.Point(8, 82)
Me.CheckBox6.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox6.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox6.Name = "CheckBox6" Me.CheckBox6.Name = "CheckBox6"
Me.CheckBox6.Size = New System.Drawing.Size(79, 17) Me.CheckBox6.Size = New System.Drawing.Size(81, 17)
Me.CheckBox6.TabIndex = 7 Me.CheckBox6.TabIndex = 7
Me.CheckBox6.Text = "CheckBox6" Me.CheckBox6.Text = "CheckBox6"
Me.CheckBox6.UseVisualStyleBackColor = True Me.CheckBox6.UseVisualStyleBackColor = True
@ -382,7 +382,7 @@ Partial Class FrmInput2
Me.CheckBox5.Location = New System.Drawing.Point(8, 124) Me.CheckBox5.Location = New System.Drawing.Point(8, 124)
Me.CheckBox5.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox5.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox5.Name = "CheckBox5" Me.CheckBox5.Name = "CheckBox5"
Me.CheckBox5.Size = New System.Drawing.Size(79, 17) Me.CheckBox5.Size = New System.Drawing.Size(81, 17)
Me.CheckBox5.TabIndex = 8 Me.CheckBox5.TabIndex = 8
Me.CheckBox5.Text = "CheckBox5" Me.CheckBox5.Text = "CheckBox5"
Me.CheckBox5.UseVisualStyleBackColor = True Me.CheckBox5.UseVisualStyleBackColor = True
@ -393,7 +393,7 @@ Partial Class FrmInput2
Me.CheckBox4.Location = New System.Drawing.Point(120, 19) Me.CheckBox4.Location = New System.Drawing.Point(120, 19)
Me.CheckBox4.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox4.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox4.Name = "CheckBox4" Me.CheckBox4.Name = "CheckBox4"
Me.CheckBox4.Size = New System.Drawing.Size(79, 17) Me.CheckBox4.Size = New System.Drawing.Size(81, 17)
Me.CheckBox4.TabIndex = 9 Me.CheckBox4.TabIndex = 9
Me.CheckBox4.Text = "CheckBox4" Me.CheckBox4.Text = "CheckBox4"
Me.CheckBox4.UseVisualStyleBackColor = True Me.CheckBox4.UseVisualStyleBackColor = True
@ -404,7 +404,7 @@ Partial Class FrmInput2
Me.CheckBox3.Location = New System.Drawing.Point(120, 40) Me.CheckBox3.Location = New System.Drawing.Point(120, 40)
Me.CheckBox3.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox3.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox3.Name = "CheckBox3" Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.Size = New System.Drawing.Size(79, 17) Me.CheckBox3.Size = New System.Drawing.Size(81, 17)
Me.CheckBox3.TabIndex = 10 Me.CheckBox3.TabIndex = 10
Me.CheckBox3.Text = "CheckBox3" Me.CheckBox3.Text = "CheckBox3"
Me.CheckBox3.UseVisualStyleBackColor = True Me.CheckBox3.UseVisualStyleBackColor = True
@ -415,7 +415,7 @@ Partial Class FrmInput2
Me.CheckBox2.Location = New System.Drawing.Point(120, 82) Me.CheckBox2.Location = New System.Drawing.Point(120, 82)
Me.CheckBox2.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox2.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox2.Name = "CheckBox2" Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(79, 17) Me.CheckBox2.Size = New System.Drawing.Size(81, 17)
Me.CheckBox2.TabIndex = 11 Me.CheckBox2.TabIndex = 11
Me.CheckBox2.Text = "CheckBox2" Me.CheckBox2.Text = "CheckBox2"
Me.CheckBox2.UseVisualStyleBackColor = True Me.CheckBox2.UseVisualStyleBackColor = True
@ -426,7 +426,7 @@ Partial Class FrmInput2
Me.CheckBox1.Location = New System.Drawing.Point(120, 103) Me.CheckBox1.Location = New System.Drawing.Point(120, 103)
Me.CheckBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2) Me.CheckBox1.Margin = New System.Windows.Forms.Padding(3, 2, 3, 2)
Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(79, 17) Me.CheckBox1.Size = New System.Drawing.Size(81, 17)
Me.CheckBox1.TabIndex = 12 Me.CheckBox1.TabIndex = 12
Me.CheckBox1.Text = "CheckBox1" Me.CheckBox1.Text = "CheckBox1"
Me.CheckBox1.UseVisualStyleBackColor = True Me.CheckBox1.UseVisualStyleBackColor = True

20
FrmInput2.vb
View File

@ -22,6 +22,7 @@ Public Class FrmInput2
CB.Text = tme(i) CB.Text = tme(i)
i += 1 i += 1
Next Next
If Boule = True Then REM edition If Boule = True Then REM edition
Me.Tag = "Assistant édition de candidature (3/4)" Me.Tag = "Assistant édition de candidature (3/4)"
@ -51,24 +52,25 @@ Public Class FrmInput2
RBno.Checked = True RBno.Checked = True
Else Else
RBYes.Checked = True RBYes.Checked = True
For i = 0 To CboFac.Items.Count - 1 For i = 0 To CboFac.Items.Count
If CboFac.Items.Item(i) = tme(cddts.Fac) Then If CboFac.Items.Item(i) = tme(cddts.Fac) Then
CboFac.SelectedIndex = i CboFac.SelectedIndex = i
Exit For
End If End If
Next Next
CboFac.SelectedIndex = tme(IndexFac) 'CboFac.SelectedItem = tme(IndexFac)
End If End If
End If End If
If Boule = False Then REM inscription If Boule = False Then REM inscription
Me.Tag = "Assistant création de candidature (3/4)" Me.Tag = "Assistant création de candidature (3/4)"
LblNP.Text = FrmInput1.TxtNom.Text & " " & FrmInput1.TxtPrenom.Text REM Reprend le nom et le prénom depuis la feuille input1. LblNP.Text = FrmInput1.TxtNom.Text & " " & FrmInput1.TxtPrenom.Text REM Reprend le nom et le prénom depuis la feuille input1.
LblCaR.Tag = 75
RBno.Checked = True RBno.Checked = True
PnlFac.Visible = False PnlFac.Visible = False
CboRegion.SelectedIndex = 0 REM met premier en tête... CboRegion.SelectedIndex = 0 REM met premier en tête...
End If End If
Me.Text = Me.Tag & " | " & Horaire & " | Temps restant : 1:15" Me.Text = Me.Tag & " | " & Horaire & " | Temps restant : 1:15"
LblCaR.Tag = 75
TmrCaR.Start() REM timer start TmrCaR.Start() REM timer start
End Sub End Sub
@ -141,12 +143,12 @@ Public Class FrmInput2
End If End If
End Sub End Sub
Sub convfac(ByVal index) 'Sub convfac(ByVal index)
Dim i As Integer ' Dim i As Integer
For i = 0 To UBound(tme) ' For i = 0 To UBound(tme)
If CboFac.SelectedItem = tme(i) Then Exit For ' If CboFac.SelectedItem = tme(i) Then Exit For
Next ' Next
End Sub 'End Sub
Private Sub CmdDelet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Private Sub CmdDelet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim quit As Integer Dim quit As Integer

28
FrmInput3.Designer.vb generated
View File

@ -20,19 +20,19 @@ Partial Class FrmInput3
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmInput3)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmInput3))
Me.Lbl2 = New System.Windows.Forms.Label Me.Lbl2 = New System.Windows.Forms.Label()
Me.Lbl1 = New System.Windows.Forms.Label Me.Lbl1 = New System.Windows.Forms.Label()
Me.LblAge = New System.Windows.Forms.Label Me.LblAge = New System.Windows.Forms.Label()
Me.LblCPV = New System.Windows.Forms.Label Me.LblCPV = New System.Windows.Forms.Label()
Me.LblAdrss = New System.Windows.Forms.Label Me.LblAdrss = New System.Windows.Forms.Label()
Me.LblNP = New System.Windows.Forms.Label Me.LblNP = New System.Windows.Forms.Label()
Me.LblTitre = New System.Windows.Forms.Label Me.LblTitre = New System.Windows.Forms.Label()
Me.CmdNext = New System.Windows.Forms.Button Me.CmdNext = New System.Windows.Forms.Button()
Me.CmdAnnul = New System.Windows.Forms.Button Me.CmdAnnul = New System.Windows.Forms.Button()
Me.PictureBox1 = New System.Windows.Forms.PictureBox Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.LBexam = New System.Windows.Forms.ListBox Me.LBexam = New System.Windows.Forms.ListBox()
Me.CmdDelet = New System.Windows.Forms.Button Me.CmdDelet = New System.Windows.Forms.Button()
Me.LblID = New System.Windows.Forms.Label Me.LblID = New System.Windows.Forms.Label()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
@ -141,7 +141,7 @@ Partial Class FrmInput3
Me.LBexam.FormattingEnabled = True Me.LBexam.FormattingEnabled = True
Me.LBexam.Location = New System.Drawing.Point(263, 81) Me.LBexam.Location = New System.Drawing.Point(263, 81)
Me.LBexam.Name = "LBexam" Me.LBexam.Name = "LBexam"
Me.LBexam.Size = New System.Drawing.Size(148, 108) Me.LBexam.Size = New System.Drawing.Size(207, 173)
Me.LBexam.TabIndex = 12 Me.LBexam.TabIndex = 12
' '
'CmdDelet 'CmdDelet

4
FrmInput3.resx
View File

@ -149,7 +149,7 @@
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////LgCgoKCgoKCgoKCg ////////////////////////////////////////////////////////////////ylOgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
@ -178,7 +178,7 @@
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg
oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKAuAA== oKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKDKUw==
</value> </value>
</data> </data>
<metadata name="$this.Locked" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.Locked" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">

4
FrmInput3.vb
View File

@ -22,12 +22,12 @@ Public Class FrmInput3
LblNP.Text = FrmInput1.TxtNom.Text & " " & FrmInput1.TxtPrenom.Text LblNP.Text = FrmInput1.TxtNom.Text & " " & FrmInput1.TxtPrenom.Text
LblAdrss.Text = FrmInput1.TxtAdrss.Text LblAdrss.Text = FrmInput1.TxtAdrss.Text
LblCPV.Text = FrmInput1.TxtCP.Text & ", " & FrmInput1.TxtVille.Text LblCPV.Text = FrmInput1.TxtCP.Text & ", " & FrmInput1.TxtVille.Text
LblAge.Text = FrmInput1.SBHAge.Value & " ans" LblAge.Text = FrmInput1.TxtMois.Text & "/" & FrmInput1.TxtAns.Text & " (" & FrmInput1.LblAns.Text & ")"
REM Reprend et met en forme tous les choix des épreuves depuis la feuille input2. REM Reprend et met en forme tous les choix des épreuves depuis la feuille input2.
Dim CB As CheckBox Dim CB As CheckBox
LBexam.Items.Clear() LBexam.Items.Clear()
LBexam.Items.Add(" Centre :") LBexam.Items.Add("Centre :")
LBexam.Items.Add(" " & FrmInput2.CboRegion.SelectedItem) LBexam.Items.Add(" " & FrmInput2.CboRegion.SelectedItem)
LBexam.Items.Add(" ") LBexam.Items.Add(" ")
LBexam.Items.Add("Ecrits :") LBexam.Items.Add("Ecrits :")

8
LISEZ MOI.txt
View File

@ -28,14 +28,17 @@ Dans l'ensemble, le programme apparais maintenant comme stable.
Globalement : Globalement :
• Renommer les nom de fonction pour correspondre aux Handles • Renommer les nom de fonction pour correspondre aux Handles
• [Résolu] IMPORTANT : ACTIVER LES TIMERS pour l'édition d'une candidature !!! • [Résolu] IMPORTANT : ACTIVER LES TIMERS pour l'édition d'une candidature !!!
• Prévoir un système de "Soft-Reset" par appel de fonctions faites pour, plutot que de passer par du Hard-reset (.close; .show) • Prévoir un système de "Soft-Reset" par appel de fonctions faites pour, plutot que de passer par du Hard-reset (.close; .show)
REMARQUE : Beaucoup trop lourd a programmer, cela complique beaucoup les appels, les vérifications, c'est finalement aussi lourds de faire un sorf-reset que de laisser la machine faire son hard-reset.
REMARQUE : Le soft-reset peut passer par un système de load de feuilles, car cette fonction est destinné a les préparer (Problème : Timers). REMARQUE : Le soft-reset peut passer par un système de load de feuilles, car cette fonction est destinné a les préparer (Problème : Timers).
Le Soft-reset et le load d'une feuille peuvent simplement appeler une fonction d'initialisation. Le Soft-reset et le load d'une feuille peuvent simplement appeler une fonction d'initialisation.
• [Résolu] IMPORTANT : Choisir l'item du facultatif dans FrmInput2.vb, faire une correspondance avec le tableau et stoquer l'indice du tableau dans les variables. • [Résolu] IMPORTANT : Choisir l'item du facultatif dans FrmInput2.vb, faire une correspondance avec le tableau et stoquer l'indice du tableau dans les variables.
FrmAccueil : FrmAccueil :
• Design satisfaisant. • Design satisfaisant.
• Quelques fonctions sont manquantes. • [Résolu] Quelques fonctions sont manquantes.
• [Résolu] Améliorer la structure de sauvegarde : Faire appel a des indexs pour stoquer Ecrit et Oral plutot que les nom de variables ? • [Résolu] Améliorer la structure de sauvegarde : Faire appel a des indexs pour stoquer Ecrit et Oral plutot que les nom de variables ?
FrmEdit : FrmEdit :
@ -44,9 +47,6 @@ FrmEdit :
Remarque : Même comme cela, ça marche. Remarque : Même comme cela, ça marche.
• [Résolu] Bogue si on entre rien. • [Résolu] Bogue si on entre rien.
• Programmer CmdNext pour réinitaliser les autres feuilles qu'en cas de modifications. (soft-reset)
(Appeler les loads ?)
FrmNouv : FrmNouv :
FrmBilan : FrmBilan :

BIN
Logo64-64.ico
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 128 KiB

5
Module1.vb
View File

@ -40,8 +40,8 @@ Module Module1
Public Sub InscBdD() Public Sub InscBdD()
If ClefMAX - 3 >= UBound(Tindex) Then If PosMAX - 1 >= UBound(Tindex) Then
ReDim Preserve Tindex(2) ReDim Preserve Tindex(PosMAX + 2)
End If End If
REM Entrée depuis la feuille 1 REM Entrée depuis la feuille 1
@ -80,7 +80,6 @@ Module Module1
Next Next
If FrmInput2.RBYes.Checked Then cddts.Fac = IndexFac If FrmInput2.RBYes.Checked Then cddts.Fac = IndexFac
MsgBox(cddts.Fac)
REM Entrée depuis la feuille 3 REM Entrée depuis la feuille 3
Tindex(PosMAX).Suppr = False Tindex(PosMAX).Suppr = False

6
My Project/Application.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Ce code a été généré par un outil. ' Ce code a été généré par un outil.
' Version du runtime :2.0.50727.3603 ' Version du runtime :4.0.30319.237
' '
' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si ' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
' le code est régénéré. ' le code est régénéré.
@ -15,8 +15,8 @@ Option Explicit On
Namespace My Namespace My
'REMARQUE : ce fichier étant généré automatiquement, ne le modifiez pas directement. Pour apporter des modifications, 'REMARQUE : ce fichier étant généré automatiquement, ne le modifiez pas directement. Pour apporter des modifications,
' ou si vous rencontrez des erreurs de génération dans ce fichier, accédez au Concepteur de projets ' ou si vous rencontrez des erreurs de build dans ce fichier, accédez au Concepteur de projets
' (allez dans les propriétés du projet ou double-cliquez sur le noeud Mon projet dans ' (allez dans les propriétés du projet ou double-cliquez sur le noeud My project dans
' l'Explorateur de solutions), puis apportez vos modifications sous l'onglet Application. ' l'Explorateur de solutions), puis apportez vos modifications sous l'onglet Application.
' '
Partial Friend Class MyApplication Partial Friend Class MyApplication

4
My Project/Resources.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Ce code a été généré par un outil. ' Ce code a été généré par un outil.
' Version du runtime :2.0.50727.3603 ' Version du runtime :4.0.30319.237
' '
' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si ' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
' le code est régénéré. ' le code est régénéré.
@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary> '''<summary>
''' Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées. ''' Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
'''</summary> '''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _

6
My Project/Settings.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Ce code a été généré par un outil. ' Ce code a été généré par un outil.
' Version du runtime :2.0.50727.3603 ' Version du runtime :4.0.30319.237
' '
' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si ' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
' le code est régénéré. ' le code est régénéré.
@ -15,12 +15,12 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "8.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings),MySettings) Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Fonctionnalité Enregistrement automatique My.Settings" #Region "Fonctionnalité Enregistrement automatique My.Settings"
#If _MyType = "WindowsForms" Then #If _MyType = "WindowsForms" Then

46
Projet-VS_100_Priet-Sabourin.vbproj
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
<PropertyGroup> <PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
@ -12,6 +12,27 @@
<AssemblyName>Projet-VS_100_Priet-Sabourin</AssemblyName> <AssemblyName>Projet-VS_100_Priet-Sabourin</AssemblyName>
<MyType>WindowsForms</MyType> <MyType>WindowsForms</MyType>
<ApplicationIcon>Logo64.ico</ApplicationIcon> <ApplicationIcon>Logo64.ico</ApplicationIcon>
<TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
<FileUpgradeFlags>
</FileUpgradeFlags>
<UpgradeBackupLocation>
</UpgradeBackupLocation>
<OldToolsVersion>2.0</OldToolsVersion>
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<IsWebBootstrapper>false</IsWebBootstrapper>
<UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols> <DebugSymbols>true</DebugSymbols>
@ -20,7 +41,8 @@
<DefineTrace>true</DefineTrace> <DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath> <OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>Projet-VS_100_Priet-Sabourin.xml</DocumentationFile> <DocumentationFile>Projet-VS_100_Priet-Sabourin.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType> <DebugType>pdbonly</DebugType>
@ -29,7 +51,8 @@
<Optimize>true</Optimize> <Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath> <OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Projet-VS_100_Priet-Sabourin.xml</DocumentationFile> <DocumentationFile>Projet-VS_100_Priet-Sabourin.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="System" /> <Reference Include="System" />
@ -202,6 +225,23 @@
<Content Include="LISEZ MOI.txt" /> <Content Include="LISEZ MOI.txt" />
<Content Include="Logo64.ico" /> <Content Include="Logo64.ico" />
</ItemGroup> </ItemGroup>
<ItemGroup>
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
<Visible>False</Visible>
<ProductName>Windows Installer 3.1</ProductName>
<Install>true</Install>
</BootstrapperPackage>
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <!-- 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. Other similar extension points exist, see Microsoft.Common.targets.

13
Projet-VS_100_Priet-Sabourin.vbproj.user Normal file
View File

@ -0,0 +1,13 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<PublishUrlHistory />
<InstallUrlHistory />
<SupportUrlHistory />
<UpdateUrlHistory />
<BootstrapperUrlHistory />
<ErrorReportUrlHistory />
<FallbackCulture>fr-FR</FallbackCulture>
<VerifyUploadedFiles>false</VerifyUploadedFiles>
</PropertyGroup>
</Project>

88
Resource1.Designer.vb generated
View File

@ -1,88 +0,0 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Ce code a été généré par un outil.
' Version du runtime :2.0.50727.3603
'
' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
' le code est régénéré.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'Cette classe a été générée automatiquement par la classe StronglyTypedResourceBuilder
'à l'aide d'un outil, tel que ResGen ou Visual Studio.
'Pour ajouter ou supprimer un membre, modifiez votre fichier .ResX, puis réexécutez ResGen
'avec l'option /str ou régénérez votre projet VS.
'''<summary>
''' Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Class Resource1
Private Shared resourceMan As Global.System.Resources.ResourceManager
Private Shared resourceCulture As Global.System.Globalization.CultureInfo
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
Friend Sub New()
MyBase.New
End Sub
'''<summary>
''' Retourne l'instance ResourceManager mise en cache utilisée par cette classe.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Shared ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Projet_VS_100_Priet_Sabourin.Resource1", GetType(Resource1).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Remplace la propriété CurrentUICulture du thread actuel pour toutes
''' les recherches de ressources à l'aide de cette classe de ressource fortement typée.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Shared Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
Friend Shared ReadOnly Property Image_1() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Image_1", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Friend Shared ReadOnly Property LigneH() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("LigneH", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
Friend Shared ReadOnly Property Warning() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Warning", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Class
End Namespace

130
Resource1.resx
View File

@ -1,130 +0,0 @@
<?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>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Image_1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Image 1.jpg;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="LigneH" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>LigneH.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Warning" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Resources\Warning.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
Resources/Thumbs.db
View File

Binary file not shown.

BIN
Resources/Warning.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 233 B

87
Selecteur.Designer.vb generated
View File

@ -1,87 +0,0 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Selecteur
Inherits System.Windows.Forms.Form
'Form remplace la méthode Dispose pour nettoyer la liste des composants.
<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
'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.
'Ne la modifiez pas à l'aide de l'éditeur de code.
<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.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, 274)
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.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 = "Annuler"
'
'Selecteur
'
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, 315)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Selecteur"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Selecteur"
Me.TableLayoutPanel1.ResumeLayout(False)
Me.ResumeLayout(False)
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
End Class

15
Selecteur.vb
View File

@ -1,15 +0,0 @@
Imports System.Windows.Forms
Public Class Selecteur
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
End Class