question sur Message box

Version imprimable

12/06/2007, 15h26
vincent62149

question sur Message box

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
12/06/2007, 15h34
Pilloutou

Et bien rien ne t'empêche d'utiliser un booleen qui indique si l'astuce est activée ou pas.
12/06/2007, 15h39
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
12/06/2007, 15h39
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:

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
12/06/2007, 15h49
Aspic
Citation:
Envoyé par 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:

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
12/06/2007, 16h01
Pilloutou

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

Bye
12/06/2007, 16h06
Pol63

Citation:

Envoyé par Pilloutou

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

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:

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

13/06/2007, 12h18
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 ;)