Discussion :

[Mathieu Francesch]

Bonjour,

Je suis tout nouveau sur Développez.com et j'en profite donc pour vous dire à tous un grand bonjour.

Aprés ces très brèves présentations, rentrons dans le vif du sujet :

Quelques Questions / Réponses afin d'alimenter la FAQ VB.NET

----------------------------------------------------------------
Comment utiliser la réflexion dans une classe ?
Imports System.Reflection

Nous créons une classe Contact

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
 
Public Class Contact
 
  Public Nom As String
  Public Prenom As String
  Public Adresse As String
  Public Age As Long
 
  ‘Cette fonction servira à retourner les membres
  ' appartenant à l’interface de la classe
 
  Public Function ReflectionPrint() As MemberInfo()
    Dim Instance As Type = Me.GetType
    Dim Valeurs As MemberInfo()
    Valeurs = Instance.GetMembers
    Return Valeurs
  End Function
End Class 
 
 
Private Sub Button1_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button1.Click
    ‘J’instancie un objet de type Contact
    Dim test As New Contact
    ‘Je parcours la collection MemberInfo de mon objet test
    For Each Membres As MemberInfo In test.ReflectionPrint
      MessageBox.Show(Membres.Name)
    Next
End Sub

----------------------------------------------------------------
Comment récupérer le dernier élément d’une Listbox en mode multi sélection sur lequel nous venons de cliquer ?

Code :

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

1
2
3
4
5
6
 
Private Sub ListBox1_MouseClick(ByVal sender As Object, _
   ByVal e As System.Windows.Forms.MouseEventArgs) _
   Handles ListBox1.MouseClick
      MessageBox.Show(ListBox1.IndexFromPoint(e.Location))
End Sub

‘Nous pouvons utiliser la méthode getselected pour savoir si l’élément est sélectionné ou non.

----------------------------------------------------------------
Comment rechercher toutes les occurrences d’une chaîne dans une autre en utilisant les expressions régulières ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Imports System.Text.RegularExpressions
    ‘ Nous utilisons RegexOptions.IgnoreCase
    ' pour ne pas nous soucier de la casse
    Dim MotReg As New Regex("Test", RegexOptions.IgnoreCase)
    Dim Mots As MatchCollection = MotReg.Matches(RichTextBox1.Text)
    Dim Mot As Match
 
    For Each Mot In Mots
      MessageBox.Show(Mot.Index.ToString)
   Next

----------------------------------------------------------------

J'ai bien d'autres Questions / Réponses mais j'attends de votre part que vous me disiez si ce genre de question rentre de la cadre de cette FAQ

Voilà, je vous remercie d'avance et je suis bien content de pouvoir participer quelque peu à votre communauté.

Mathieu Francesch

[Ditch]

Bonsoir à toi et bienvenu sur ce forum.

Webman, le responsable de la FAQ VB.NET, confirmera cela mais je pense que cela entre tout à fait dans le cadre de la FAQ.

En général, pour la facilité d'intégration, nous demandons de suivre un certain formalisme. Mais tout cela s'apprend vite et bien des gens pourront t'aider à cela Par ailleurs, pas mal de rédacteurs ou modérateurs savent passer d'un langage à l'autre assez facilement et ainsi permettre une intégration dans plusieurs FAQs.

Si tu as des questions, n'hésites pas à les poser.

A bientôt

[Webman]

Bonjour Mathieu,

Comme tu le sais déjà je suis le resp de la FAQ VB.Net. Et comme te l'as dis Neo c'est toujours avec plaisir que nous accueillons les bonnes volontées, donc c'est nous qui te remercions. Tes trois exemples de Q/R collent à ce que l'on cherche à intégrer dans nos FAQs, donc si tu souhaites nous en proposer encore quelques unes c'est avec plaisir. Après on discutera du formalisme que l'on ""impose"" aux rédacteurs, mais on en est pas là. Si tu as la moindre question n'hésites pas à la poser ici, ou directement par MP, je te répondrai au plus vite.

A bientôt,
Ronald.

[Mathieu Francesch]

Bonsoir,

Tout d'abord merci beaucoup pour votre accueil !
Vous n'avez pas à me remercier, cela fait toujours plaisir de pouvoir partager ses idées d'autant plus que vous faîtes réellement un bon travail sur ce site.

Un peu de VB.NET maintenant en essayant de respecter un peu votre nomenclature

Apparement les délégués sont parfois un concept un peu flou pour les développeurs alors j'ai essayé de faire un petit exemple d'utilisation simple car je suis partisan de la théorie par l'exemple ;-)

Nous utilisons les délégués la plupart du temps avec les gestionnaires d'événements mais ils peuvent parfois nous être utiles pour faire des appels de procédures de façons asynchrone.

Rappelons que généralement un appel de procédure est effectué de manière synchrone ce qui veut dire que la procédure appelante est mise en attente tant que la procédure appelée n'a pas terminé son traitement.

Question : Comment faire un appel Asynchrone en utilisant un délégué ?

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
45
 
Imports System.Threading
 
Public Class Form1
 
    'Petite fonction bien connue des étudiants en informatique
    Function Factorielle(ByVal n As Integer) As Integer
        If n = 1 Then
            Return 1
        Else
            'Petite pause afin de pouvoir constater le résultat attendu
            Thread.Sleep(500)
            Return n * Factorielle(n - 1)
        End If
    End Function
 
    'Déclaration d'un délégué
    ' dont la signature doit être la même que la fonction appelée
    Delegate Function CalculFactorielle(ByVal n As Integer) As Integer
 
    'Instanciation de notre délégué avec l'adresse de notre fonction
    Dim FactorielleAsynchrone As CalculFactorielle
    FactorielleAsynchrone = New CalculFactorielle(AddressOf Factorielle)
 
    'IAsyncResult est un objet retourné par BeginInvoke
    ' pour récupérer le résultat de la fonction invoquée
    Dim Resultat As IAsyncResult
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
        '
        Resultat = FactorielleAsynchrone.BeginInvoke(5, Nothing, Nothing)
 
        'A ce niveau, nous constatons que button1_click a repris la main.
        'Nous attendons que notre fonction termine son traitement.
        While Not Resultat.IsCompleted
            TextBox1.Text = "Traitement en cours"
            TextBox1.Refresh()
        End While
 
        'Notre Traitement terminé, nous affichons le résultat
        ' via la méthode EndInvoke
        TextBox1.Text = FactorielleAsynchrone.EndInvoke(Resultat)
    End Sub
End Class

J'espère que ce petit exemple pourra permettre à certains de mieux appréhender ce sujet.

Dans le cas où tout comme moi vous vouliez approfondir vos connaissances sur la gestion des délégués je veux bien me porter volontaire pour écrire un petit article sur l'utilisation des délégués au niveau des gestionnaires d'événements et des appels de procédures asynchrones.

[neguib]

Decidemment tu es plein de ressources et de bonne volonté. Je me permettrait une toute petite suggestion, si tu as du temps, peux-tu répondre dans les forums Dotnet pour aider nos posteurs, histoire de te faire la main, et je crois que dès que tu le sens, il serait bien de donner ta candidature aupès de néo.51 pour intégrer l'équipe de la FAQ

[Ditch]

Mathieu, j'ai juste une remarque... Pourquoi t'es pas venu plus tôt?