Discussion :

[vincent62149]

Bonjour a tous,

Voici mon probleme;

Dans mon programme, je voudrais que lorsque l'utilisateur clic sur un bouton, un message box s'ouvre et lui donne une astuce qui lui faciliterait la tache.
Sachant que chaque être humain a un minimum de mémoire, mon astuce va vite etre inégrée et donc l'utilisateur n'en aura plus besoin.

Ma question est donc : Est ce possible qu'au bout d'un moment l'utilisateur décide de ne plus afficher le message box au clic du bouton soit par une case a cocher soit par un bouton dans le message box ?

Au passage, si ca peut aider, j'utilise une bdd access pour mon programme ...

J'attends vos réponses merci d'avance

[Pilloutou]

Et bien rien ne t'empêche d'utiliser un booleen qui indique si l'astuce est activée ou pas.

[Pol63]

le messagebox de windows n'est pas modifiable
il te faut recréer un messagebox perso dans lequel tu peux mettre une case à cocher

ou alors tu utilises oui/non de messagebox
pour qu'il ait l'aide puis
voulez laisser ce message actif
oui ............... non

[vincent62149]

C'est une bonne idée je pense;

exemple je mets une case a cocher dans le message box, cette case si elle n'est pas cochée envoie "false" dans la bdd et si l'utilisateur l'active, ca envoie "true"
et je fais ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
if vAstuce=false then
      MsgBox("mon astuce")
else
end if

tu penses que c'est ok?

edit: je pense que ca serait un oui/non

[Aspic]

C'est une bonne idée je pense;

exemple je mets une case a cocher dans le message box, cette case si elle n'est pas cochée envoie "false" dans la bdd et si l'utilisateur l'active, ca envoie "true"
et je fais ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
if vAstuce=false then
      MsgBox("mon astuce")
else
end if

tu penses que c'est ok?

edit: je pense que ca serait un oui/non

Oui c'est bon

[Pilloutou]

Ah oui effectivement, ma réponse était un peu légère. J'avais pas tout compris.
Heureusement que vous êtes là.

Bye

[Pol63]

Ah oui effectivement, ma réponse était un peu légère. J'avais pas tout compris.
Heureusement que vous êtes là.

Bye

c'est compliqué quand c'est trop simple

[vincent62149]

Oula ne vous emballer pas sur ce probleme, c'est plus difficile que prévu du moins pour moi :p

bon je vous montre mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
     Dim vReponse As DialogResult
        Dim vTexte, vTitre As String
        Dim vAffichage As Boolean
 
        vTexte = "Voulez vous laisser ce message actif lors de la prochaine utilisation?"
        vTitre = "Attention"
 
 
        MsgBox("Veuillez svp vérifier votre modification; il est impossible de modifier un ajout et un retrait en meme temps pour le meme produit !" & Chr(13) & "exemple : si on modifie l'ajout de café, le retrait de café doit etre a 0 ou vide", MsgBoxStyle.OkOnly, "Attention ...")
 
        vReponse = MessageBox.Show(vTexte, vTitre, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
 
        If vReponse = Windows.Forms.DialogResult.No Then
'si on ne veut plus voir l'astuce :
 
'on se connecte ...
            cnnConnexion = New OleDbConnection
            cnnConnexion.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data source=" & Environment.CurrentDirectory & "\stock.mdb"
            cnnConnexion.Open()
 
            vAffichage = False ' on ne veut plus afficher
 
            dtr = dts.Tables("Astuce").NewRow ' on ajoute une ligne dans la table astuce
 
            dtr("Reponse") = vAffichage 'la valeur prend false
 
            'ajout de la ligne dans le DataSet
            dts.Tables("Astuce").Rows.Add(dtr)
 
            'création et exécution du commandbuilder
            'pour mettre à jour le DataAdapter
            cmdb = New OleDbCommandBuilder(dta)
 
            'mise à jour des données du DataAdapter
            'à partir du commandbuilder
            dta.Update(dts, "Astuce")
 
            'on vide le dataset pour le recréer avec 
            'les nouvelles données 
            dts.Clear()
            dta.Fill(dts, "Astuce")
            dtt = dts.Tables("Astuce")
        End If

J'en suis donc arrivé là, mais plusieurs probleme se posent :

- la table ne se rempli pas ( erreur : " la réference objet n'est pas definie à une instance d'un objet ")
- et je ne vois pas comment faire pour ne plus afficher ni l'astuce ni mon autre messagebox

merci de vos réponses ...

[pofet]

Hum,
Ce genre d'info, qui concerne la configuration du logiciel et propre à chaque utilisateur de l'outil, a plus sa place dans une fichier de configuration que dans une base de données je pense.

Pour l'erreur que tu as, je ne sais pas trop.

Pour ne plus afficher le message, il suffit au moment où tu affiches le message de vérifier la valeur du booléen (vReponse) enregistré en Base de données ou dans un fichier. En fonction de sa valeur, tu affiches ou pas l'info et le messagebox associé.

Tu as l'air de débuter... Bon courage