Discussion :

[xVINCEx]

Salut, je fais un msgbox de la façon suivante:

Code :

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

MsgBox("ERR-902. Le numéro de téléphone ou télécopieur spécifié est invalide.", MsgBoxStyle.MsgBoxHelp, "Erreur.")

J'aimerais intercepter si l'utilisateur appui sur le bouton 'AIDE' (ou Help) hors Visual Studio ne me donne pas le bouton aide dans les MsgBoxResult possibles, quelqu'un sait comment intercepter le bouton 'AIDE'?

Merci!

[neguib]

Si la boîte de dialogue contient un bouton Aide, cela signifie qu'une aide contextuelle relative à la boîte de dialogue est disponible. Toutefois, aucune valeur n'est retournée tant que l'utilisateur n'a pas cliqué sur l'un des autres boutons.

[neguib]

si tu ne t'en sors pas il te reste une solution .Net qui est d'implementer ta propre HelpMessageBox
Exemple (il manque ci-dessous le InitializeComponent et le Dispose)

Code VB.NET :

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
45
46
47
48
49
50
51
52
53
54
55
Option Explicit On 
Option Strict On
 
Imports Microsoft.VisualBasic
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Resources
Imports System.Windows.Forms
 
Public Class HelpMessageBox
 Inherits Form
 
 Private hlpResult As Result
 
 Private components As IContainer
 Friend WithEvents LMessage As Label
 Friend WithEvents Bok As Button
 Friend WithEvents Baide As Button
 
 Public Enum Result
  OK = 1
  Aide = 8
 End Enum
 
 Public Sub New()
   MyBase.New()
   Me.InitializeComponent()
 End Sub
 Public Sub New(ByVal titre As String, ByVal message As String)
   Me.New()
   Me.Text = titre
   Me.LMessage.Text = message
 End Sub
 Public ReadOnly Property HelpResult() As Result
   Get
      Return Me.hlpResult
   End Get
 End Property
 Public Function Dialog() As Result
   Me.ShowDialog()
   Return Me.hlpResult
 End Function
 
 Private Sub Baide_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Baide.Click
   Me.hlpResult = Result.Aide
   Me.Close()
 End Sub
 Private Sub Bok_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Bok.Click
   Me.hlpResult = Result.OK
   Me.Close()
 End Sub
 
End Class

A utiliser ainsi dans la Form appelante

Code VB.NET :

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

1
2
3
4
5
6
7
Dim HelpMsg As New HelpMessageBox("UnTitre", "UnMessage")
Dim reponse As HelpMessageBox.Result = HelpMsg.Dialog()
If reponse = HelpMessageBox.Result.Aide Then
  'traiter si appui sur Aide
Else
  'traiter si appui sur Ok
End If

[xVINCEx]

Merci beaucoup pour cette information!

[xVINCEx]

Hum j'ai essayer la classe et tout mais il me balance une erreur null

System.NullReferenceException

Object reference not set to an instance of an object.

Je ne fais que pourtant me créer un objet

Code :

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

1
2
Dim objAideMsgBox As New HelpMessageBox("titre","message")
objAideMsgBox.Dialog()

[neguib]

Ben j'ai bien compris l'exception mais elle n'a certainement rien à voir avec les lignes de code que tu me mets, çà doit venir de ton code de la classe que tu as certainement copier/coller
Fais un debug pas à pas à partir d'un point d'arrêt sur

Code :

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

Dim objAideMsgBox As New HelpMessageBox("titre","message")

Ainsi on pourra peut être savoir quelle est la ligne exacte qui lève cette NullException

Exemple (il manque ci-dessous le InitializeComponent et le Dispose)

[xVINCEx]

L'erreur se fait sur bout de code suivant, dans le constructeur paramétré.

Code :

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

Me.LMessage.Text = message

[neguib]

L'erreur se fait sur bout de code suivant, dans le constructeur paramétré.

Code :

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

Me.LMessage.Text = message

Euh tu le fais exprès ou quoi ? je répète

Exemple (il manque ci-dessous le InitializeComponent ...

Tu as quand même vu dans le code qu'il y a un appel Me.InitializeComponent(), je peux voir comment tu as coder cette méthode qui sert habituellement à instancier et paramétrer et ajouter les contrôles à la Form
à tous les coup tu n'as pas fait de New Label etc...
Essayes de lire attentivement si je t'ai mis cet avertissement ce n'était pas pour des prunes

[xVINCEx]

D'accord, je vais trouver de la référence sur InitializeComponent car j'au aucune idée comment cela fonctionne et encore moins comment ajouter les controles au form donc j'ai quedalle idée quoi mettre comme code dans la méthode.

[neguib]

Pour faire simple fais ta Form en mode design et cela se fera automatiquement

[xVINCEx]

Oh voila, merci beaucoup pour ton aide neguib.

[xVINCEx]

Le tout est fonctionnel, je n'ai pourtant pas de Dispose. Est-ce que tu pourrais me dire l'objectif du dispose et son utilité dans mon cas? Merci

[neguib]

Ben si tu avais clicker droit sur ton projet et ajouter une nouvelle WindowsForm il t'aurait mis automatiquement ton dispose juste après le Sub New() (verifies s'il n'a pas été généré automatiquement)
Sinon c'est de ce type

Code VB.NET :

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

1
2
3
4
5
6
7
8
9
10
11
'Requis par le Concepteur Windows Form
'La méthode substituée Dispose du formulaire pour nettoyer la liste des composants.
 
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
   If disposing Then
      If Not (components Is Nothing) Then
        components.Dispose()
      End If
   End If
   MyBase.Dispose(disposing)
End Sub

[xVINCEx]

Merci pour ton temps et ton aide neguib.

[Steff29400]

Désolé, je déterre (16 ans après! ) mais parce que j'ai eu besoin de cette fonctionnalité et que je n'ai rien trouvé sur internet (à part en VBA...), je vous mets ce que j'ai trouvé :

En cliquant sur le bouton [Aide] du msgbox, apparemment ça ne fait rien mais en réalité, cela génère un évènement HelpRequest sur le formulaire principal qui a appelé la msgbox.
Par contre, HelpRequest ne gère pas la reconnaissance du msgbox qui demande l'aide (le sender reste sur le formulaire principal)

Du coup, à chaque fois que j’appelle un msgbox avec de l'aide, je modifie une variable avant qui représente l'identifiant du msgbox appelant l'aide :

Quelque part dans le programme :

Code :

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

1
2
3
 
Aide_msgbox=1
msgbox(un message)... # avec un bouton Aide ( ..., MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo Or MsgBoxStyle.MsgBoxHelp,... )

Code :

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

1
2
3
 
Aide_msgbox=2
msgbox(un autre message)... # avec un bouton Aide ( ..., MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo Or MsgBoxStyle.MsgBoxHelp,... )

Dans le HelpRequest :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Select Case Aide_msgbox
Case 1
# Aide sur msgbox1
Help.ShowHelp(Nothing, NomDuFichierDaide, HelpNavigator.TopicId, "45")
Case 2
# Aide sur msgbox2
Help.ShowHelp(Nothing, NomDuFichierDaide, HelpNavigator.TopicId, "46")
Case else
# Aide générale
Help.ShowHelp(Nothing, NomDuFichierDaide, HelpNavigator.TopicId, "0")
End Select

Voilà, j'espère que cela pourra servir à quelqu'un...