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

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

Bonjour,

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

Sinon utilise un code vb en attendant

Sur ce, bon appétit

re,

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

Cordialement,
Le réparateur de PC

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 ...) donc autoriser depuis l'antivirus .

Merci

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

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 )

En vous remerciant.

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

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  .

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

re,

Voici mon editeur de fonction:


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

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

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".

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

Cordialement,
Le réparateur de PC

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
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

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

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

Cordialement,
Le réparateur de PC

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

re,

Pas de soucis

Cordialement,
Le réparateur de PC