REPOS_ERICCA/magicsld/pogtest.vb

Public Class pogtest
    Inherits System.Windows.Forms.Form


#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents PtEch As System.Windows.Forms.Button
    Friend WithEvents SelEnt As System.Windows.Forms.Button
    Friend WithEvents Bbox As System.Windows.Forms.Button
    Friend WithEvents NbPo As System.Windows.Forms.Button
    Friend WithEvents FichEch As System.Windows.Forms.Button
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(pogtest))
        Me.Button2 = New System.Windows.Forms.Button
        Me.PtEch = New System.Windows.Forms.Button
        Me.SelEnt = New System.Windows.Forms.Button
        Me.Bbox = New System.Windows.Forms.Button
        Me.NbPo = New System.Windows.Forms.Button
        Me.FichEch = New System.Windows.Forms.Button
        Me.Label1 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.Label4 = New System.Windows.Forms.Label
        Me.Label6 = New System.Windows.Forms.Label
        Me.SuspendLayout()
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(160, 337)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(112, 32)
        Me.Button2.TabIndex = 4
        Me.Button2.Text = "Annuler"
        '
        'PtEch
        '
        Me.PtEch.BackColor = System.Drawing.SystemColors.HighlightText
        Me.PtEch.Image = CType(resources.GetObject("PtEch.Image"), System.Drawing.Image)
        Me.PtEch.Location = New System.Drawing.Point(8, 8)
        Me.PtEch.Name = "PtEch"
        Me.PtEch.Size = New System.Drawing.Size(56, 56)
        Me.PtEch.TabIndex = 7
        Me.PtEch.UseVisualStyleBackColor = False
        '
        'SelEnt
        '
        Me.SelEnt.BackColor = System.Drawing.SystemColors.HighlightText
        Me.SelEnt.Image = CType(resources.GetObject("SelEnt.Image"), System.Drawing.Image)
        Me.SelEnt.Location = New System.Drawing.Point(8, 72)
        Me.SelEnt.Name = "SelEnt"
        Me.SelEnt.Size = New System.Drawing.Size(56, 56)
        Me.SelEnt.TabIndex = 8
        Me.SelEnt.UseVisualStyleBackColor = False
        '
        'Bbox
        '
        Me.Bbox.BackColor = System.Drawing.SystemColors.HighlightText
        Me.Bbox.Image = CType(resources.GetObject("Bbox.Image"), System.Drawing.Image)
        Me.Bbox.Location = New System.Drawing.Point(8, 136)
        Me.Bbox.Name = "Bbox"
        Me.Bbox.Size = New System.Drawing.Size(56, 56)
        Me.Bbox.TabIndex = 9
        Me.Bbox.UseVisualStyleBackColor = False
        '
        'NbPo
        '
        Me.NbPo.BackColor = System.Drawing.SystemColors.HighlightText
        Me.NbPo.Image = CType(resources.GetObject("NbPo.Image"), System.Drawing.Image)
        Me.NbPo.Location = New System.Drawing.Point(8, 200)
        Me.NbPo.Name = "NbPo"
        Me.NbPo.Size = New System.Drawing.Size(56, 56)
        Me.NbPo.TabIndex = 10
        Me.NbPo.UseVisualStyleBackColor = False
        '
        'FichEch
        '
        Me.FichEch.BackColor = System.Drawing.SystemColors.HighlightText
        Me.FichEch.Image = CType(resources.GetObject("FichEch.Image"), System.Drawing.Image)
        Me.FichEch.ImageAlign = System.Drawing.ContentAlignment.BottomRight
        Me.FichEch.Location = New System.Drawing.Point(8, 264)
        Me.FichEch.Name = "FichEch"
        Me.FichEch.Size = New System.Drawing.Size(56, 56)
        Me.FichEch.TabIndex = 11
        Me.FichEch.UseVisualStyleBackColor = False
        '
        'Label1
        '
        Me.Label1.BackColor = System.Drawing.Color.Transparent
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.Location = New System.Drawing.Point(72, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(200, 23)
        Me.Label1.TabIndex = 12
        Me.Label1.Text = "Montrer les points d'�chantillonnage"
        '
        'Label2
        '
        Me.Label2.BackColor = System.Drawing.Color.Transparent
        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label2.Location = New System.Drawing.Point(72, 88)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(176, 23)
        Me.Label2.TabIndex = 13
        Me.Label2.Text = "Selectionner les entit�s raffin�es"
        '
        'Label3
        '
        Me.Label3.BackColor = System.Drawing.Color.Transparent
        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label3.Location = New System.Drawing.Point(72, 152)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(192, 23)
        Me.Label3.TabIndex = 14
        Me.Label3.Text = "Dimensions de la boite englobante"
        '
        'Label4
        '
        Me.Label4.BackColor = System.Drawing.Color.Transparent
        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label4.Location = New System.Drawing.Point(72, 208)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(176, 32)
        Me.Label4.TabIndex = 15
        Me.Label4.Text = "Informations sur les points d'�chantillonnage"
        '
        'Label6
        '
        Me.Label6.BackColor = System.Drawing.Color.Transparent
        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label6.Location = New System.Drawing.Point(72, 264)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(192, 32)
        Me.Label6.TabIndex = 16
        Me.Label6.Text = "Montrer les points d'�chantillonnage d'un fichier"
        '
        'pogtest
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.SystemColors.Menu
        Me.ClientSize = New System.Drawing.Size(302, 383)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.FichEch)
        Me.Controls.Add(Me.NbPo)
        Me.Controls.Add(Me.Bbox)
        Me.Controls.Add(Me.SelEnt)
        Me.Controls.Add(Me.PtEch)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Label1)
        Me.Name = "pogtest"
        Me.Text = "pogtest"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Close()
    End Sub

    Private Sub PtEch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PtEch.Click
        Close()
        testPog(False, True, False, False, False)
    End Sub

    Private Sub SelEnt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelEnt.Click
        Close()
        testPog(True, False, False, False, False)
    End Sub

    Private Sub Bbox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bbox.Click
        Close()
        testPog(False, False, True, False, False)
    End Sub

    Private Sub NbPo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NbPo.Click
        Close()
        testPog(False, False, False, True, False)
    End Sub

    Private Sub FichEch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FichEch.Click
        Close()
        testPog(False, False, False, False, True)
    End Sub


End Class
Revision:	40
Committed:	Mon Aug 20 21:30:28 2007 UTC (17 years, 8 months ago) by bournival
File size:	9476 byte(s)
Log Message:	Projet de these de Sylvain Bournival. Attention projet VB.
#	User	Rev	Content
1	bournival	40	Public Class pogtest
2			Inherits System.Windows.Forms.Form
3
4
5			#Region " Windows Form Designer generated code "
6
7			Public Sub New()
8			MyBase.New()
9
10			'This call is required by the Windows Form Designer.
11			InitializeComponent()
12
13			'Add any initialization after the InitializeComponent() call
14
15			End Sub
16
17			'Form overrides dispose to clean up the component list.
18			Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
19			If disposing Then
20			If Not (components Is Nothing) Then
21			components.Dispose()
22			End If
23			End If
24			MyBase.Dispose(disposing)
25			End Sub
26
27			'Required by the Windows Form Designer
28			Private components As System.ComponentModel.IContainer
29
30			'NOTE: The following procedure is required by the Windows Form Designer
31			'It can be modified using the Windows Form Designer.
32			'Do not modify it using the code editor.
33			Friend WithEvents Button2 As System.Windows.Forms.Button
34			Friend WithEvents PtEch As System.Windows.Forms.Button
35			Friend WithEvents SelEnt As System.Windows.Forms.Button
36			Friend WithEvents Bbox As System.Windows.Forms.Button
37			Friend WithEvents NbPo As System.Windows.Forms.Button
38			Friend WithEvents FichEch As System.Windows.Forms.Button
39			Friend WithEvents Label1 As System.Windows.Forms.Label
40			Friend WithEvents Label2 As System.Windows.Forms.Label
41			Friend WithEvents Label3 As System.Windows.Forms.Label
42			Friend WithEvents Label4 As System.Windows.Forms.Label
43			Friend WithEvents Label6 As System.Windows.Forms.Label
44			<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
45			Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(pogtest))
46			Me.Button2 = New System.Windows.Forms.Button
47			Me.PtEch = New System.Windows.Forms.Button
48			Me.SelEnt = New System.Windows.Forms.Button
49			Me.Bbox = New System.Windows.Forms.Button
50			Me.NbPo = New System.Windows.Forms.Button
51			Me.FichEch = New System.Windows.Forms.Button
52			Me.Label1 = New System.Windows.Forms.Label
53			Me.Label2 = New System.Windows.Forms.Label
54			Me.Label3 = New System.Windows.Forms.Label
55			Me.Label4 = New System.Windows.Forms.Label
56			Me.Label6 = New System.Windows.Forms.Label
57			Me.SuspendLayout()
58			'
59			'Button2
60			'
61			Me.Button2.Location = New System.Drawing.Point(160, 337)
62			Me.Button2.Name = "Button2"
63			Me.Button2.Size = New System.Drawing.Size(112, 32)
64			Me.Button2.TabIndex = 4
65			Me.Button2.Text = "Annuler"
66			'
67			'PtEch
68			'
69			Me.PtEch.BackColor = System.Drawing.SystemColors.HighlightText
70			Me.PtEch.Image = CType(resources.GetObject("PtEch.Image"), System.Drawing.Image)
71			Me.PtEch.Location = New System.Drawing.Point(8, 8)
72			Me.PtEch.Name = "PtEch"
73			Me.PtEch.Size = New System.Drawing.Size(56, 56)
74			Me.PtEch.TabIndex = 7
75			Me.PtEch.UseVisualStyleBackColor = False
76			'
77			'SelEnt
78			'
79			Me.SelEnt.BackColor = System.Drawing.SystemColors.HighlightText
80			Me.SelEnt.Image = CType(resources.GetObject("SelEnt.Image"), System.Drawing.Image)
81			Me.SelEnt.Location = New System.Drawing.Point(8, 72)
82			Me.SelEnt.Name = "SelEnt"
83			Me.SelEnt.Size = New System.Drawing.Size(56, 56)
84			Me.SelEnt.TabIndex = 8
85			Me.SelEnt.UseVisualStyleBackColor = False
86			'
87			'Bbox
88			'
89			Me.Bbox.BackColor = System.Drawing.SystemColors.HighlightText
90			Me.Bbox.Image = CType(resources.GetObject("Bbox.Image"), System.Drawing.Image)
91			Me.Bbox.Location = New System.Drawing.Point(8, 136)
92			Me.Bbox.Name = "Bbox"
93			Me.Bbox.Size = New System.Drawing.Size(56, 56)
94			Me.Bbox.TabIndex = 9
95			Me.Bbox.UseVisualStyleBackColor = False
96			'
97			'NbPo
98			'
99			Me.NbPo.BackColor = System.Drawing.SystemColors.HighlightText
100			Me.NbPo.Image = CType(resources.GetObject("NbPo.Image"), System.Drawing.Image)
101			Me.NbPo.Location = New System.Drawing.Point(8, 200)
102			Me.NbPo.Name = "NbPo"
103			Me.NbPo.Size = New System.Drawing.Size(56, 56)
104			Me.NbPo.TabIndex = 10
105			Me.NbPo.UseVisualStyleBackColor = False
106			'
107			'FichEch
108			'
109			Me.FichEch.BackColor = System.Drawing.SystemColors.HighlightText
110			Me.FichEch.Image = CType(resources.GetObject("FichEch.Image"), System.Drawing.Image)
111			Me.FichEch.ImageAlign = System.Drawing.ContentAlignment.BottomRight
112			Me.FichEch.Location = New System.Drawing.Point(8, 264)
113			Me.FichEch.Name = "FichEch"
114			Me.FichEch.Size = New System.Drawing.Size(56, 56)
115			Me.FichEch.TabIndex = 11
116			Me.FichEch.UseVisualStyleBackColor = False
117			'
118			'Label1
119			'
120			Me.Label1.BackColor = System.Drawing.Color.Transparent
121			Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
122			Me.Label1.Location = New System.Drawing.Point(72, 24)
123			Me.Label1.Name = "Label1"
124			Me.Label1.Size = New System.Drawing.Size(200, 23)
125			Me.Label1.TabIndex = 12
126			Me.Label1.Text = "Montrer les points d'�chantillonnage"
127			'
128			'Label2
129			'
130			Me.Label2.BackColor = System.Drawing.Color.Transparent
131			Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
132			Me.Label2.Location = New System.Drawing.Point(72, 88)
133			Me.Label2.Name = "Label2"
134			Me.Label2.Size = New System.Drawing.Size(176, 23)
135			Me.Label2.TabIndex = 13
136			Me.Label2.Text = "Selectionner les entit�s raffin�es"
137			'
138			'Label3
139			'
140			Me.Label3.BackColor = System.Drawing.Color.Transparent
141			Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
142			Me.Label3.Location = New System.Drawing.Point(72, 152)
143			Me.Label3.Name = "Label3"
144			Me.Label3.Size = New System.Drawing.Size(192, 23)
145			Me.Label3.TabIndex = 14
146			Me.Label3.Text = "Dimensions de la boite englobante"
147			'
148			'Label4
149			'
150			Me.Label4.BackColor = System.Drawing.Color.Transparent
151			Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
152			Me.Label4.Location = New System.Drawing.Point(72, 208)
153			Me.Label4.Name = "Label4"
154			Me.Label4.Size = New System.Drawing.Size(176, 32)
155			Me.Label4.TabIndex = 15
156			Me.Label4.Text = "Informations sur les points d'�chantillonnage"
157			'
158			'Label6
159			'
160			Me.Label6.BackColor = System.Drawing.Color.Transparent
161			Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
162			Me.Label6.Location = New System.Drawing.Point(72, 264)
163			Me.Label6.Name = "Label6"
164			Me.Label6.Size = New System.Drawing.Size(192, 32)
165			Me.Label6.TabIndex = 16
166			Me.Label6.Text = "Montrer les points d'�chantillonnage d'un fichier"
167			'
168			'pogtest
169			'
170			Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
171			Me.BackColor = System.Drawing.SystemColors.Menu
172			Me.ClientSize = New System.Drawing.Size(302, 383)
173			Me.Controls.Add(Me.Label6)
174			Me.Controls.Add(Me.Label4)
175			Me.Controls.Add(Me.Label3)
176			Me.Controls.Add(Me.Label2)
177			Me.Controls.Add(Me.FichEch)
178			Me.Controls.Add(Me.NbPo)
179			Me.Controls.Add(Me.Bbox)
180			Me.Controls.Add(Me.SelEnt)
181			Me.Controls.Add(Me.PtEch)
182			Me.Controls.Add(Me.Button2)
183			Me.Controls.Add(Me.Label1)
184			Me.Name = "pogtest"
185			Me.Text = "pogtest"
186			Me.ResumeLayout(False)
187
188			End Sub
189
190			#End Region
191
192			Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
193			Close()
194			End Sub
195
196			Private Sub PtEch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PtEch.Click
197			Close()
198			testPog(False, True, False, False, False)
199			End Sub
200
201			Private Sub SelEnt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelEnt.Click
202			Close()
203			testPog(True, False, False, False, False)
204			End Sub
205
206			Private Sub Bbox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bbox.Click
207			Close()
208			testPog(False, False, True, False, False)
209			End Sub
210
211			Private Sub NbPo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NbPo.Click
212			Close()
213			testPog(False, False, False, True, False)
214			End Sub
215
216			Private Sub FichEch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FichEch.Click
217			Close()
218			testPog(False, False, False, False, True)
219			End Sub
220
221
222			End Class