Mise à jour

Modification de l'UI. (travail pardépartements) Padding MAJIC pour les exports
christophev-git · Oct 30, 2023 · fa6f1a4 · fa6f1a4
1 parent 837643b
commit fa6f1a4
Show file tree

Hide file tree

Showing 7 changed files with 164 additions and 110 deletions.
diff --git a/codeurbanmajic/ApplicationEvents.vb b/codeurbanmajic/ApplicationEvents.vb
@@ -26,17 +26,7 @@ Namespace My
     Partial Friend Class MyApplication
         Private Sub MyApplication_StartUp(sender As Object, e As StartupEventArgs) Handles Me.Startup
             If My.Settings.basedep = "" Then
-                MsgBox("désignez le fichier ban du département", MsgBoxStyle.Information
-                   )
-                Dim f As New OpenFileDialog()
-                If f.ShowDialog = DialogResult.OK Then
-                    fichier_ban_dep = f.FileName
 
-                    My.Settings.basedep = fichier_ban_dep
-                Else
-                    MsgBox("impossible de travailler", MsgBoxStyle.Critical)
-
-                End If
             Else
                 fichier_ban_dep = My.Settings.basedep
             End If
@@ -50,6 +40,7 @@ Namespace My
                     fichier_traduction = f.FileName
 
                     My.Settings.traducteur = fichier_traduction
+                    W_traducteur = New traducteur(fichier_traduction)
                 Else
                     MsgBox("impossible de travailler", MsgBoxStyle.Critical)
 
@@ -68,7 +59,7 @@ Namespace My
                 Dim f As New OpenFileDialog()
                 If f.ShowDialog = DialogResult.OK Then
                     fich_fant_nat = f.FileName
-
+                    My.Settings.fantoir = f.FileName
 
                 Else
                     MsgBox("impossible de travailler", MsgBoxStyle.Critical)
@@ -81,30 +72,7 @@ Namespace My
             My.Settings.Save()
 
 
-            Dim codedep As String = InputBox("departement ?")
-            Dim sr As New System.IO.StreamReader(fich_fant_nat)
-            Dim sw As New System.IO.StreamWriter(fich_fant_nat & "_" & codedep)
-
-            Dim l As String
-
-            Do While Not sr.EndOfStream
-                l = sr.ReadLine
-                If l.Length = 88 And l.Substring(0, 2) = codedep Then
-                    sw.WriteLine(l)
 
-                End If
-            Loop
-            sr.Close()
-            sw.Close()
-            fichier_fantoir = fich_fant_nat & "_" & codedep
-            If codedep <> "" And codedep.Length = 2 Then
-
-                My.Settings.Save()
-                listeCommune = New Liste_ComList(fichier_fantoir, Form1.DataGridView1, codedep
-                                                 )
-            Else
-                Exit Sub
-            End If
 
 
         End Sub

diff --git a/codeurbanmajic/Form1.Designer.vb b/codeurbanmajic/Form1.Designer.vb
diff --git a/codeurbanmajic/Form1.resx b/codeurbanmajic/Form1.resx
@@ -129,6 +129,12 @@
   <metadata name="OpenFileDialog3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>773, 17</value>
   </metadata>
+  <metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1028, 17</value>
+  </metadata>
+  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1338, 17</value>
+  </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>71</value>
   </metadata>