Discussion :

[Philippe86220]

Bonjour à tous,

Je poste ici car personne ne répond sur le forum Sharpdevelop.
Sous Sharpdevelop 4.4.1 en VB NET, je ne sais pas comment initialiser un événement Keypress ou Keydown pour un contrôle TextBox.
Par défaut l’événement TextChanged est initialisé par le code : "AddHandler Me.textBox24.TextChanged, AddressOf Me.TextBox24TextChanged" dans Private Sub InitializeComponent().
Impossible pour moi de faire de même pour Keypress ou Keydown.

Merci par avance pour votre aide

Philippe.

[rv26t]

Bonjour,

Il aurait été intéressant de voir la définition de la méthode Sub TextBox24TextChanged ....
Avec VB sous VS (sans utiliser le designer), on procède de cette façon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
' dans le load du form avec un textbox nommé : txtEvent
        AddHandler txtEvent.KeyPress, AddressOf txtEvent_KeyPress
        AddHandler txtEvent.KeyDown, AddressOf txtEvent_KeyDown
    End Sub
 
    Private Sub txtEvent_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs)
 
    End Sub
 
    Private Sub txtEvent_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs)
 
    End Sub

[Philippe86220]

Bonjour rv26t, merci de t'intéresser à mon problème.

Sous Sharpdevelop 4.4.1

1/ Dans le load du form de MainForm.vb si je mets :

Code :

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

1
2
3
Sub MainFormLoad(sender As Object, e As EventArgs)
	AddHandler TextBox24.KeyPress, AddressOf TextBox24_KeyPress	
End Sub

j'ai cette erreur : "TextBox24_KeyPress' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection."

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

2/ Dans Private Sub InitializeComponent() de MainForm.Designer.vb

Code :

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

1
2
3
4
5
6
7
8
9
10
'textBox24
		'
		Me.textBox24.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
		Me.textBox24.Location = New System.Drawing.Point(551, 64)
		Me.textBox24.Name = "textBox24"
		Me.textBox24.Size = New System.Drawing.Size(121, 31)
		Me.textBox24.TabIndex = 46
		Me.textBox24.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
		AddHandler Me.textBox24.TextChanged, AddressOf Me.TextBox24TextChanged
                AddHandler Me.textBox24.KeyPress, AddressOf Me.TextBox24KeyPress

j'ai cette erreur : "Erreur BC30456: 'TextBox24KeyPress' n'est pas un membre de 'Succession_Tonton_Lucien.MainForm"
Alors que tout va bien pour : AddHandler Me.textBox24.TextChanged, AddressOf Me.TextBox24TextChanged

[wallace1]

Bonsoir Philippe86220 ,

Il y a des choses communes aux EDI (Visual Studio et SharpDevelop), ca ne sert à rien de bricoler lorsque l'EDI permet de générer le code. Pour avoir pratiquer SharpDevelop, je peux dire qu'il est moins tolérant que VS en terme de modifs à la volée !

Donc pour générer les gestionnaires d’événements associés à un contrôle c'est ici que ça se passe (On double-clique dans la liste déroulante à droite du gestionnaire désiré "KeyPress" et ça génère le code) :



Et voilà ce que ca donne du côté du designer :

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
 
	Private Sub InitializeComponent()
		Me.textBox1 = New System.Windows.Forms.TextBox()
		Me.SuspendLayout
		'
		'textBox1
		'
		Me.textBox1.Location = New System.Drawing.Point(90, 70)
		Me.textBox1.Name = "textBox1"
		Me.textBox1.Size = New System.Drawing.Size(100, 20)
		Me.textBox1.TabIndex = 0
		AddHandler Me.textBox1.KeyPress, AddressOf Me.TextBox1KeyPress
		'
		'MainForm
		'
		Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
		Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
		Me.ClientSize = New System.Drawing.Size(284, 261)
		Me.Controls.Add(Me.textBox1)
		Me.Name = "MainForm"
		Me.Text = "TEST"
		Me.ResumeLayout(false)
		Me.PerformLayout
	End Sub
	Private textBox1 As System.Windows.Forms.TextBox

Et du côté "Source" du MainForm :

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
 
Public Partial Class MainForm
	Public Sub New()
		' The Me.InitializeComponent call is required for Windows Forms designer support.
		Me.InitializeComponent()
 
		'
		' TODO : Add constructor code after InitializeComponents
		'
	End Sub
 
	Sub TextBox1KeyPress(sender As Object, e As KeyPressEventArgs)
 
	End Sub
End Class

PS : Dans Visual Studio il existe la même chose.

A+

[Philippe86220]

Bonsoir wallace1,

Merci beaucoup, voilà 3 jours que je perds mon temps sur ce problème.
Enfin j'ai tous les éléments pour créer mes programmes. Oupsssssssssss

Merci encore wallace.
Philippe.

[wallace1]

Bonsoir wallace1,

Merci beaucoup, voilà 3 jours que je perds mon temps sur ce problème.
Enfin j'ai tous les éléments pour créer mes programmes. Oupsssssssssss

Merci encore wallace.
Philippe.

Pas de quoi, c'est dommage tout de même d'avoir perdu 3 jours pour ça ....