Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX


Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Partagez
avatar
lereparateurdepc


Masculin Nombre de messages : 5517
Age : 24
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par lereparateurdepc le Lun 25 Aoû 2014 - 10:47

Bonjour,

En voulant tester un truc pour un autre sujet, je me suis rendu compte que l'action :
"Ouvrir une Boîte de sélection de fichier à enregistrer"
ne trouve PAS mon SaveFileDialog1 (et le 2 non plus).

Après essais, j'ai remarqué qu'il ne vois que les OpenFileDialog.......

Petit problème lors du copier/coller du code de l'un pour faire l'autre ?

Bonne continuation.

Cordialement,
Le réparateur de PC



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


avatar
polien


Masculin Nombre de messages : 2871
Age : 21
Localisation : Bouches du Rhones
Emploi/loisirs : velo, informatique, électronique, robotique, modélisme feroviaire
Humeur : Je commence tout mais ne finit rien :P
Date d'inscription : 19/05/2011

Re: Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par polien le Lun 25 Aoû 2014 - 11:00

Bonjour,

Oui, lol j'ai l'impression que Admin a fait l'action un peu vite sur ce coup là amusé

Sinon utilise un code vb en attendant Wink

Sur ce, bon appétit Wink



Cordialement,
Polien.

You want to have an english help for Software Zator ? Let's try to read the first tutorial in english Wink : CLIC HERE
BESOINS D'UN TUTO? CONSULTER LE SOMMAIRE !

Débutez avec SZ avec les tutos en pdf !
avatar
lereparateurdepc


Masculin Nombre de messages : 5517
Age : 24
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Re: Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par lereparateurdepc le Lun 25 Aoû 2014 - 11:04

re,

C'était pour TexteNote .... pour vérifier quelque chose Smile

Cordialement,
Le réparateur de PC



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


avatar
Malarix
Nouveau
Nouveau

Masculin Nombre de messages : 39
Age : 15
Localisation : La ou je suis :)
Emploi/loisirs : Programmer des applications en changeant le style des fenêtres !
Humeur : Content (quand un de mes programmes marche , c'est-à-dire pas souvent en fait !)
Date d'inscription : 14/06/2014

Re: Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par Malarix le Lun 25 Aoû 2014 - 19:48

Bonjour

Personnellement , j'ai aussi eu le bug et il se trouve que mon antivirus "Bitdefender 2014" (au cas ou il n'y aurait que lui qui aurait ce problème , pour savoir ...) bloquerait l'appliquation en cas de "open,save,browse" - dialog ou de manipulation de fichiers et de dossier : (creer,déplacer,supprimer,ecrire(ecrire qui n'apparait plus sous 2014 Neutral ...) donc autoriser depuis l'antivirus .

Merci



Si vous souhaitez un composant (.DLL) :
http://creativeinformatic.blogspot.fr/p/demande-de-creation-de-composants.html
[je verifie la page au moin 1 fois par semaine]

Mon blog (création de composants .dll gratuitement Nan , j'ai arrêté depuis que j'y vais plus
Le désert en question : http://creativeinformatic.blogspot.fr/
avatar
lereparateurdepc


Masculin Nombre de messages : 5517
Age : 24
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Re: Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par lereparateurdepc le Mar 26 Aoû 2014 - 6:25

re,

Non là ce n'est pas l'application qui bloque.
C'est SZ qui ne vois pas son propre contrôle SaveFileDialog dans son action dédiée.

Cordialement,
Le réparateur de PC



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


avatar
tito
Nouveau
Nouveau

Masculin Nombre de messages : 6
Date d'inscription : 22/12/2014

Re: Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par tito le Ven 26 Déc 2014 - 2:43

Bonjour,
Je serai intéressé par une alternative pour l'enregistrement de fichier ou si c'est possible un plugin qui remplacerai celui manquant dans SZ.(Je sais pas si c'est possible, je suis débutant de base Very Happy )

En vous remerciant.
avatar
lereparateurdepc


Masculin Nombre de messages : 5517
Age : 24
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Re: Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par lereparateurdepc le Ven 26 Déc 2014 - 8:16

re,

Le plugin prend pas mal de temps que je n'ai pas en ce moment.
Je n'ai pas énormément de vacances donc j'ai un peut de boulot en retard.......

Alors, le code VB de l'action est :
Code:
VarResult = Me.saveFileDialog1.ShowDialog().ToString()
VarResult est une variable de résultat de l'action de l'utilisateur, elle est facultative.


Cordialement,
Le réparateur de PC



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


avatar
tito
Nouveau
Nouveau

Masculin Nombre de messages : 6
Date d'inscription : 22/12/2014

Re: Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par tito le Ven 26 Déc 2014 - 10:30

re
Merci pour ta réponse rapide.
Je comprend pas trop. Au lieu de faire "Ouvrir une Boîte de sélection de fichier à enregistrer", je crée une commande VB pour ouvrir mon "saveFileDialog"? Parce que j'ai essayé mais sans résultat Sad .
avatar
lereparateurdepc


Masculin Nombre de messages : 5517
Age : 24
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Re: Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par lereparateurdepc le Ven 26 Déc 2014 - 10:53

re,

Alors, tu ajoute le contrôle SaveFileDialog dans ton projet.
Tu regarde son nom, par défaut saveFileDialog1.

Ensuite, au lieu d'utiliser l'action toute faite, tu utilise mon code mais 2 cas :
- Tu souhaite récupérer "la valeur de sortie" et là, tu doit déclarer une variable
VarResult dans mon code et ainsi utiliser mon code tel quel soit :
Code:
VarResult = Me.saveFileDialog1.ShowDialog().ToString()

- Tu souhaite simplement afficher la boîte de dialogue sans te préoccuper des retours;
dans ce cas, pas besoin de variable, le code sera :
Code:
Me.saveFileDialog1.ShowDialog()

Si ça ne fonctionne pas, peux-tu mettre des captures d'écran ?
Merci

Cordialement,
Le réparateur de PC




Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


avatar
tito
Nouveau
Nouveau

Masculin Nombre de messages : 6
Date d'inscription : 22/12/2014

Re: Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par tito le Ven 26 Déc 2014 - 11:24

re,

Voici mon editeur de fonction:


Et lors du clic sur mon bouton j'ai ce message d'erreur:
avatar
lereparateurdepc


Masculin Nombre de messages : 5517
Age : 24
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Re: Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par lereparateurdepc le Ven 26 Déc 2014 - 11:28

re,

Pour faire plus simple, le code VB de l'action si ça ne te dérange pas.
Là, je n'ai pas tout les détails mais je ne pense pas que ce soir lié à mon code VB.

Cordialement,
Le réparateur de PC



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


avatar
tito
Nouveau
Nouveau

Masculin Nombre de messages : 6
Date d'inscription : 22/12/2014

Re: Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par tito le Ven 26 Déc 2014 - 11:32

Tu vas trouver ça bête mais c'est quoi "le code VB de l'action"? le seul code VB que j'ai fais c'est de copier le tiens dans une "commande visual basic.net".
avatar
lereparateurdepc


Masculin Nombre de messages : 5517
Age : 24
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Re: Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par lereparateurdepc le Ven 26 Déc 2014 - 11:35

re,

Avant tout, j'ai oublié l'essentiel :
C'est pour quoi faire ? Si je comprend bien, te veux enregistrer le contenu du RTB dans un fichier ?
Si c'est ça, le code VB se place avant la création du fichier.
Le SaveFileDialog, une fait renseigné, retourne le chemin d'accès du futur fichier.

Tu visualise le bouton générer ? et bien décale de 2 bouton sur la droite et PAF Smile

Cordialement,
Le réparateur de PC



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


avatar
tito
Nouveau
Nouveau

Masculin Nombre de messages : 6
Date d'inscription : 22/12/2014

Re: Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par tito le Ven 26 Déc 2014 - 12:04

Ce que j'aimerai c'est que lorsque quelqu'un ecrit dans la rtb et quitte le programme, qu'au redémarrage du programme il y ai toujours le text ou qu'au pire j'ai un fichier text avec ce qu'il y avait écrit.

En plus c'est pas comme si j'y avait jamais cliqué dessus Razz
voici le code:
Code:

'------------------------------------------------------------------------------
' <auto-generated>
'     Ce code a été généré par un outil.
'     Version du runtime :4.0.30319.18444
'
'     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 Off
Option Explicit On

Imports Microsoft.VisualBasic
Imports System
Imports System.Drawing
Imports System.Windows.Forms
<Assembly: System.Reflection.AssemblyTitleAttribute("Fenêtre_vierge1"),  _
Assembly: System.Reflection.AssemblyVersionAttribute("1.0.0.0"),  _
Assembly: System.Reflection.AssemblyCopyrightAttribute("Copyright ©  2014"),  _
Assembly: System.Reflection.AssemblyDescriptionAttribute(""),  _
Assembly: System.Reflection.AssemblyFileVersionAttribute("1.0.0.0"),  _
Assembly: System.Runtime.InteropServices.GuidAttribute("c23568ae-55ed-4bbd-8f9c-7eff22b039b3"),  _
Assembly: System.Reflection.AssemblyTrademarkAttribute("Fenêtre_vierge1™"),  _
Assembly: System.Reflection.AssemblyProductAttribute("Fenêtre_vierge1"),  _
Assembly: System.Reflection.AssemblyCompanyAttribute(""),  _
Assembly: System.Runtime.InteropServices.ComVisibleAttribute(false)>

'----------------------------------------------------------------------
'This code was generated by SoftwareZator 2014 (4.0.0.0)
'The vendredi 26 décembre 2014 at 12:58:32
'----------------------------------------------------------------------
Namespace Fenêtre_vierge1
  
   <Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>  _
   Partial Public Class Fenêtre1
       Inherits System.Windows.Forms.Form
      
       Public richTextBox1 As System.Windows.Forms.RichTextBox
      
       Public button1 As System.Windows.Forms.Button
      
       Public saveFileDialog1 As System.Windows.Forms.SaveFileDialog
      
       Public Sub New()
           MyBase.New
           Me.InitializeComponent
       End Sub
      
       Public Sub InitializeComponent()
           Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Fenêtre1))
           Me.richTextBox1 = New System.Windows.Forms.RichTextBox()
           Me.button1 = New System.Windows.Forms.Button()
           Me.saveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
           Me.SuspendLayout
           '
           'richTextBox1
           '
           Me.richTextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
           Me.richTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
           Me.richTextBox1.ImeMode = System.Windows.Forms.ImeMode.NoControl
           Me.richTextBox1.Location = New System.Drawing.Point(12, 62)
           Me.richTextBox1.Name = "richTextBox1"
           Me.richTextBox1.Size = New System.Drawing.Size(529, 214)
           Me.richTextBox1.TabIndex = 0
           Me.richTextBox1.Text = ""
           '
           'button1
           '
           Me.button1.Cursor = System.Windows.Forms.Cursors.Default
           Me.button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
           Me.button1.ImeMode = System.Windows.Forms.ImeMode.Disable
           Me.button1.Location = New System.Drawing.Point(229, 290)
           Me.button1.Name = "button1"
           Me.button1.Size = New System.Drawing.Size(75, 23)
           Me.button1.TabIndex = 1
           Me.button1.Text = "enregistrer"
           Me.button1.UseVisualStyleBackColor = true
           '
           'Fenêtre1
           '
           Me.AutoValidate = System.Windows.Forms.AutoValidate.EnableAllowFocusChange
           Me.ClientSize = New System.Drawing.Size(566, 325)
           Me.Controls.Add(Me.button1)
           Me.Controls.Add(Me.richTextBox1)
           Me.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
           Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
           Me.Name = "Fenêtre1"
           Me.Text = "Fenêtre1"
           Me.ResumeLayout(false)
           AddHandler Me.Load, AddressOf Me.Form_Load
           AddHandler button1.Click, AddressOf Me.button1_Click
       End Sub
      
       <System.STAThreadAttribute()>  _
       Public Shared Sub Main()
           _manager.Run(System.Environment.GetCommandLineArgs())
       End Sub
   End Class
  
   Public Class Fenêtre1
      
       'Fonction Form_Load
       Public Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs)
           'Cette fonction se déclenche à l'ouverture de la fenêtre.
           '
           'This function is launched during opening.
       End Sub
      
       'Fonction button1_Click
       Public Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
           text_bloc_note = Me.richTextBox1.Text
           _computer.FileSystem.WriteAllText("" & text_enregistrer & "", "" & text_bloc_note & "", True, System.Text.Encoding.UTF8)
VarResult = Me.saveFileDialog1.ShowDialog().ToString()
       End Sub
   End Class
End Namespace

Namespace Fenêtre_vierge1.My
  
   Partial Friend Class MyApplication
       Inherits Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase
      
       <System.Diagnostics.DebuggerStepThroughAttribute()>  _
       Public Sub New()
           MyBase.New(Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
           Me.IsSingleInstance = false
           Me.EnableVisualStyles = true
           Me.SaveMySettingsOnExit = true
           Me.ShutdownStyle = Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
       End Sub
      
       <System.Diagnostics.DebuggerStepThroughAttribute()>  _
       Protected Overrides Sub OnCreateMainForm()
           Me.MainForm = Variables.Fenêtre1
       End Sub
   End Class
End Namespace



Namespace Fenêtre_vierge1
 Module Variables
     Public _manager As My.MyApplication = New My.MyApplication
     Public _computer As Microsoft.VisualBasic.Devices.Computer = New Microsoft.VisualBasic.Devices.Computer
     Public text_bloc_note As New System.Object '
     Public text_enregistrer As New System.Object '
     Public VarResult As New System.Object '
     Private _Fenêtre1 As New Global.Fenêtre_vierge1.Fenêtre1()
     Public Property Fenêtre1 As Global.Fenêtre_vierge1.Fenêtre1 ' Window Fenêtre1
          Get
              If _Fenêtre1.IsDisposed Then _Fenêtre1 = New Global.Fenêtre_vierge1.Fenêtre1()
              Return _Fenêtre1
          End Get
          Set(ByVal value As Global.Fenêtre_vierge1.Fenêtre1)
              _Fenêtre1 = value
          End Set
     End Property
 End Module
End NameSpace
édité par LRDPC : balises code
avatar
lereparateurdepc


Masculin Nombre de messages : 5517
Age : 24
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Re: Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par lereparateurdepc le Ven 26 Déc 2014 - 12:16

re,

Je me suis permis d'éditer ton message pour ajouter les balises code.

Alors, comme dis plus haut, tu crée un fichier avant de lui donner l'endroit où s'enregistrer....

1)Je récupère le texte
2)je détermine où enregistrer (SaveFileDialog, le code VB)
3)Une fois fait, je lis la propriété FileName du SFD; qui retourne le chemin d'accès "virtuel" au futur fichier
4) je crée le fichier en utilisant tout ce que j'ai récupéré avant.

Dans ton code, text_enregistrer est renseigné quand ? jamais donc il n'a rien d'où erreur Sad

Donc il te manque l'étape 3. Tu récupère la propriété FileName de ton SFD que tu enregistre dans text_enregistrer.

Je te conseil, pour le moment, de ne pas utiliser VarResult mais , par la suite Smile

Cordialement,
Le réparateur de PC



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA


avatar
tito
Nouveau
Nouveau

Masculin Nombre de messages : 6
Date d'inscription : 22/12/2014

Re: Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par tito le Ven 26 Déc 2014 - 12:29

Merci beaucoup.
ça marche impeccable. Pour moi qui débute c'est énorme Wink
avatar
lereparateurdepc


Masculin Nombre de messages : 5517
Age : 24
Localisation : Calvados
Emploi/loisirs : Electrotechnicien / électricité, HAUTE TENSION, électronique, informatique, automatisme , Arduino, bref le BRICOLAGE , ...
Humeur : toujours cool
Date d'inscription : 31/01/2010

Re: Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par lereparateurdepc le Ven 26 Déc 2014 - 12:33

re,

Pas de soucis Smile

Cordialement,
Le réparateur de PC



Modérateur & Administrateur du forum
Merci de contacter les membres par MP ou mail que pour "urgences". Le forum est fait pour ça. Merci

@ Contact : franleboss@gmail.com  Smile
Arrow  Visitez mon site : désolé l'hébergeur à fermé Sad

Ma chaine tutube : https://www.youtube.com/channel/UC7iU59NNAHz-tW5wqcgONHA



Contenu sponsorisé

Re: Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer"

Message par Contenu sponsorisé


    La date/heure actuelle est Mar 17 Oct 2017 - 2:05