[VB.net] Donner le focus a un Form

Version imprimable

Voir 40 message(s) de cette discussion en une page

Petit coup de main à Nostradamus qui a déjà bien mâché le boulot

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
 
REM :FORM ConsulIECS1
Public Delegate Sub FermetureFenetreEvent(ByVal sender As Object, ByVal e As System.EventArgs)
 
Public Class ConsulIECS1
  Inherits System.Windows.Forms.Form
  Public Event FermetureFenetre As FermetureFenetreEvent
  Public Sub New()
    MyBase.New()
    '''etc...
  End Sub
  REM :Sur fermeture de ConsulIECS1 (par exemple)
  Private Sub ConsulIECS1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
     If Not IsNothing(FermetureFenetre) Then RaiseEvent FermetureFenetre(Me,System.EventArgs.Empty);
  End sub
  '''etc...
End Class
 
REM :FORM ConsulIE1
Public Class ConsulIE1
  Inherits System.Windows.Forms.Form
  Private WithEvents eventConsulIECS1 As ConsulIECS1
  Public Sub New()
    MyBase.New()
    '''etc...
  End Sub
 
  REM :Ouverture form ConsulIECS1
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
     Me.Enabled = False
     Dim f As New ConsulIECS1
     AddHandler f.FermetureFenetre, AddressOf fermerfenetre
     f.MdiParent = Me.ParentForm
     f.Show()
  End Sub
 
  REM :appel de l'évenement
  Private Sub fermerfenetre(ByVal sender,ByVal e As System.EventArgs) 
    Me.Focus()
    Me.Enabled = True
    Me.TextBox1.Focus()
  End Sub
'''etc...
End Class

Bonjour,
merci beaucoup à Nostradamus et neguib!
Je comprends le principe mais, j'ai encore quelques difficultées...

Je n'ai sans doute pas été clair au début mais en fait consulIE1 est une instance de la Class ConsulIE et consulIECS1 est une instance de la Class ConsulIECS. Ci-dessous, je reprends le code de Nostradamus et neguib en tenant compte de cela et je renseigne mes "problèmes"...

Form ConsulIECS :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Public Delegate Sub FermetureFenetreEvent(ByVal sender As Object, ByVal e As System.EventArgs) Public Class ConsulIECS Inherits System.Windows.Forms.Form Public Event FermetureFenetre As FermetureFenetreEvent Public Sub New() MyBase.New() '''etc... End Sub REM :Sur fermeture de ConsulIECS (par exemple) Private Sub ConsulIECS_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed If Not IsNothing(FermetureFenetre) Then RaiseEvent FermetureFenetre(Me,System.EventArgs.Empty) End If End sub '''etc... End Class
===> Not IsNothing(FermetureFenetre) entraine un message d'erreur de génération : 'Public Event FermetureFenetre(sender As Object, e As System.EventArgs)' est un événement. Il ne peut donc pas être appelé directement. Utilisez une instruction 'RaiseEvent' pour déclencher un événement.
Je ne comprends pas non plus à quoi sert cette partie de code...

Form ConsulIECS :
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 Public Class ConsulIE Inherits System.Windows.Forms.Form Private WithEvents eventConsulIECS1 As ConsulIECS Public Sub New() MyBase.New() '''etc... End Sub REM :Ouverture form ConsulIECS1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Enabled = False Dim ConsulIECS1 As New ConsulIECS AddHandler ConsulIECS1.FermetureFenetre, AddressOf fermerfenetre ConsulIECS1.MdiParent = Me.ParentForm ConsulIECS1.Show() End Sub REM :appel de l'évenement Private Sub fermerfenetre(ByVal sender,ByVal e As System.EventArgs) Me.Focus() Me.Enabled = True Me.TextBox1.Focus() End Sub '''etc... End Class
===>
Je ne comprends pas l'instruction :

Code:

Private WithEvents eventConsulIECS1 As ConsulIECS

A quoi sert l'instance eventConsulIECS1?... Où s'en sert-on par la suite?...

concernant :

Code:

Private Sub fermerfenetre(ByVal sender,ByVal e As System.EventArgs)

Le paramètre e entraine l'erreur de génération : Si l'un des paramètres est explicitement typé, tous doivent l'être.

Encore un "petit" coup de main, me ferait le plus grand bien. Merci. :)

Suggestions

Form ConsulIECS :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Delegate Sub FermetureFenetreEvent(ByVal sender As Object) 
 
Public Class ConsulIECS 
  Inherits System.Windows.Forms.Form 
  Public Event FermetureFenetre As FermetureFenetreEvent 
  Public Sub New() 
    MyBase.New() 
    '''etc... 
  End Sub 
  REM :Sur fermeture de ConsulIECS (par exemple) 
  Private Sub ConsulIECS_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed 
     RaiseEvent FermetureFenetre(Me)
  End sub 
  '''etc... 
End Class

Form ConsulIECS :

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
Public Class ConsulIE 
  Inherits System.Windows.Forms.Form 
 
  Public Sub New() 
    MyBase.New() 
    '''etc... 
  End Sub 
 
  REM :Ouverture form ConsulIECS1 
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     Me.Enabled = False 
     Dim ConsulIECS1 As New ConsulIECS 
     AddHandler ConsulIECS1.FermetureFenetre, AddressOf fermerfenetre 
    ConsulIECS1.MdiParent = Me.ParentForm 
     ConsulIECS1.Show() 
  End Sub 
 
  REM :appel de l'évenement 
  Private Sub fermerfenetre(ByVal sender) 
    Me.Focus() 
    Me.Enabled = True 
    Me.TextBox1.Focus() 
  End Sub 
'''etc... 
End Class

01/08/2005, 02h59
Manix

Cela fonctionne parfaitement!

Merci beaucoup a tous! :chin:

Voir 40 message(s) de cette discussion en une page