Etienne BAUDOUX

Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Etienne BAUDOUX

Forum sur les projets de Etienne BAUDOUX

Le Deal du moment :
TCL C74 Series 55C743 – TV 55” 4K QLED 144 ...
Voir le deal
499 €

4 participants

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

    lereparateurdepc
    lereparateurdepc



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

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

    Message par lereparateurdepc 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
    polien
    polien



    Masculin Nombre de messages : 3002
    Age : 27
    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

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

    Message par polien 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
    lereparateurdepc
    lereparateurdepc



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

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

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

    re,

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

    Cordialement,
    Le réparateur de PC
    Reherc
    Reherc
    Nouveau
    Nouveau


    Masculin Nombre de messages : 39
    Age : 22
    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

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

    Message par Reherc 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
    lereparateurdepc
    lereparateurdepc



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

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

    Message par lereparateurdepc 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
    tito
    tito
    Nouveau
    Nouveau


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

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

    Message par tito 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.
    lereparateurdepc
    lereparateurdepc



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

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

    Message par lereparateurdepc 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
    tito
    tito
    Nouveau
    Nouveau


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

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

    Message par tito 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 .
    lereparateurdepc
    lereparateurdepc



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

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

    Message par lereparateurdepc 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

    tito
    tito
    Nouveau
    Nouveau


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

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

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

    re,

    Voici mon editeur de fonction:
    fichier - Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer" Bouton10

    Et lors du clic sur mon bouton j'ai ce message d'erreur:
    fichier - Bug action "Ouvrir une Boîte de sélection de fichier à enregistrer" Messag10
    lereparateurdepc
    lereparateurdepc



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

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

    Message par lereparateurdepc 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
    tito
    tito
    Nouveau
    Nouveau


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

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

    Message par tito 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".
    lereparateurdepc
    lereparateurdepc



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

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

    Message par lereparateurdepc 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
    tito
    tito
    Nouveau
    Nouveau


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

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

    Message par tito 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
    lereparateurdepc
    lereparateurdepc



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

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

    Message par lereparateurdepc 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
    tito
    tito
    Nouveau
    Nouveau


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

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

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

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



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

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

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

    re,

    Pas de soucis Smile

    Cordialement,
    Le réparateur de PC

    Contenu sponsorisé


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

    Message par Contenu sponsorisé


      La date/heure actuelle est Jeu 28 Mar 2024 - 23:43