openfiledialog et savefiledialog qui refusent de s'ouvrir

Bonjour,

En continuant la version 2 de ReplaceTextZator (voir vos créations et vos plugin...) je me suis aperçu que quand je clique sur un bouton qui est chargé d'ouvrir un openfiledialog ou un savefiledialog. L'open file dialog ne s'ouvre pas, pourtant il existe bel est bien et est bien activé...
Si quelqu'un voit le pourquoi du comment, merci de m'aider

Bonne journée

re ,

Peut-tu poster le code VB et le code SZ stp ?

Cordialement ,
Le réparateur de PC

bonsoir

@JHPC Software: déjà essayé mais sans succès...
@Lereparateurdepc: voici le code de l'un des openfiledialog:

Code:


'Fonction kryptonButton2_Click
        Public Sub kryptonButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
            nbractuel = CInt(0)
            remplacer = Me.openFileDialog1.ShowDialog().ToString()
            If (remplacer = "Cancel") Then
                goto stopprgm
            End If
            fichiers = New System.Collections.Generic.List(Of Object)(System.Linq.Enumerable.Cast(Of Object)(System.Linq.Enumerable.AsEnumerable(Me.openFileDialog1.FileNames)))
            nbrfichier = fichiers.Count
            départ = 0
            Do While (départ < nbrfichier)
                bouttons = New System.Windows.Forms.PictureBox()
                bouttonsactuel = _computer.FileSystem.GetFileInfo("" & fichiers(nbractuel) & "").Extension
                Me.kryptonListBox1.Items.Add("" & fichiers(nbractuel) & "")
                CType(bouttons,System.Windows.Forms.PictureBox).Dock = CInt(2)
                CType(bouttons,System.Windows.Forms.PictureBox).Size = New System.Drawing.Size(33, 43)
                CType(bouttons,System.Windows.Forms.PictureBox).BackColor = System.Drawing.Color.Transparent
                If (bouttonsactuel = ".txt") Then
                    CType(bouttons,System.Windows.Forms.PictureBox).Image = My.Resources.truc
                Else
                    CType(bouttons,System.Windows.Forms.PictureBox).Image = My.Resources.rtf
                End If
                CType(bouttons,System.Windows.Forms.PictureBox).SizeMode = CInt(3)
                Me.panel1.Controls.Add(bouttons)
                contenufichier = _computer.FileSystem.ReadAllText("" & fichiers(nbractuel) & "", System.Text.Encoding.UTF8)
                nbractuel = CInt( nbractuel ) + 1
Me.toolTip2.SetToolTip(bouttons, contenufichier)
Me.toolTip2.ToolTipTitle = "Contenu actuel de ce fichier:"
                départ = (départ + 1)
            Loop
        stopprgm:
        End Sub


merci

re ,

Voilà pourquois je voulais le code .....

Il manque un morceau de code dans l'évènement Click du bouton :

Public Sub kryptonButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs)

La ligne correct est :
Public Sub kryptonButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KryptonButton2.Click

Toutes les évènements ayant ce même problème ne se déclancherons PAS .

Cause possible :
Suppression d'un contrôle, la partie en question est supprimée , donc plus d'erreur mais le SUB reste .
En tout cas , c'est ce qui se passe sous VB 2010 .

PS : question totalement à part :
Admin , pourquois dans certains post , le début est normal mais la fin est tout en GRAS ?
J'ai déjà eu ce problème et ça reviens .....

Cordialement ,
Le réparateur de PC

Bonsoir,

@lereparateurdepc : je ne constate pas ce problème =/ Ca le fait sur tous les navigateur? Avec un membre en particulier?

lereparateurdepc a écrit:re ,

Voilà pourquois je voulais le code .....

Il manque un morceau de code dans l'évènement Click du bouton :

Public Sub kryptonButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs)

La ligne correct est :
Public Sub kryptonButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KryptonButton2.Click

Toutes les évènements ayant ce même problème ne se déclancherons PAS .

Cause possible :
Suppression d'un contrôle, la partie en question est supprimée , donc plus d'erreur mais le SUB reste .
En tout cas , c'est ce qui se passe sous VB 2010 .

PS : question totalement à part :
Admin , pourquois dans certains post , le début est normal mais la fin est tout en GRAS ?
J'ai déjà eu ce problème et ça reviens .....

Cordialement ,
Le réparateur de PC

re,

merci de l'explication mais quelle est la solution stp?

re ,

Oui mais il ne peut PAS éditer les codes sous SZ .....

Regarde bien tes boutons Krypton .
Si les boutons sont bien présents ,
essay de recrée un évènement Click sur chaque .
Si un nouvel évènement se crée , alors un peut de copier/coller s'impose !

Admin m'a confirmé que c'est bien en supprimant le contrôle que cette partie de code a été supprimée affin de limiter les erreurs de génération .

Perso , je trouve ça bien , on ne perd PAS 30 min de code dans l'évènement par la suppression du contrôle associé .

Cordialement ,
Le réparateur de PC

re,

j'ai beau recréer les boutons, leurs refaire un évènement click et faire plein d'autres manipulation, rien n'y fait...
Bon ben je vais me mettre au vb.net pour de bon et je vais exporter mon projet szsl en projet visual basic (sauf si quelqu'un trouve une autre soluce...)

Merci

re ,

As-tu assayé de crée un autre projet , mis un bouton Krypton ?
Si ça fonctionne , ..... bizare

Dans ton projet actuel , met un autre bouton Krypton avec l'évènement click .
montre nous le code VB de cet évènement .

Cordialement ,
le réparateur de PC

re,

Il y a des trucs bizzard depuis que j'utilise la béta 5 de SZ: sa fait comme dans mon projet, quand je clique par exemple sur le bouton d'ouverture de solution, rien ne se passe, pareil pour enregistrer sous...

sinon voici le code d'un bouton krypton créé:

Code:


'Fonction kryptonButton6_Click
        Public Sub kryptonButton6_Click(ByVal sender As Object, ByVal e As System.EventArgs)
            System.Windows.Forms.MessageBox.Show("kryptonbutton6", "ReplaceTextZator", System.Windows.Forms.MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.None)
        End Sub


merci

Bonjour,

Concernant le code, j'avais oublié de précisé quelque chose quand j'ai répondu à lereparateurdepc en message privé : le code reliant le contrôle à une fonction n'est pas dans la déclaration de la fonction, mais tout à la fin de la fonction "InitializeComponent" de la fenêtre dans les codes. Il doit y avoir des lignes qui commencent par "AddHandler". S'il n'y en a aucune, c'est que le contrôle n'est vraiment pas lié à la fonction. Mais sinon, c'est que le problème vient d'ailleurs =/
Je n'ai pas ce problème chez moi. Idem pour les boutons d'ouverture de solution et autre, aucun problème. Est-ce que quelqu'un rencontre ces problèmes également?

bonsoir,

j'ai vérifié dans le code mais chaque composant est initialisé par "AddHandler"...
Une idée d'amélioration pour la version finale: pouvoir modifier le code source du projet et prendre en compte de ces modifications en cas de génération.
Bon ben merci pour votre aide et je vais essayer de tripatouiller des trucs pour que sa marche.

Bonne soirée

re ,

Ce n'est pas une mauvaise idée mais elle doit rester un élément de DERNIER recourt activable dans la config ;sinon SZ perd de son sens de programmateur sans coder .

Cordialement ,
Le réparateur de PC