les methodes du bouton en vb.net
Bonjour a tous
je suis debutant en vb.net, je voulais connaitre tous les evenement liés au bouton ainsi que les methodes, quelqu'ub pourait m'aider ou encore un doc qui explique tous les composants,les evenements et methodes liés aux composants
merci:
cry:
problème avec l'une de mes procedures
bonjour a tous
j'ai un problème dans mon code ecris sous vb.net 2005
je signale que je suis un debutant
la procedure me met "statement is not valid in a spacename"
le nom de la procedure est "Transfert"
voici 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 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69
| Public Class Form5
Public Sub New()
' création initiale du formulaire
InitializeComponent()
' initialisations complémentaires
' on inhibe un certain nombre de boutons
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Add(TextBox1.Text.Trim())
TextBox1.Text = ""
Button4.Enabled = True
TextBox1.Focus()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Button1.Enabled = TextBox1.Text.Trim() <> ""
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Transfert(ListBox1, ListBox2)
' boutons Effacer
Button2.Enabled = True
Button4.Enabled = ListBox1.Items.Count <> 0
' boutons de transfert
Button2.Enabled = False
Button3.Enabled = False
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Transfert(ListBox2, ListBox1)
' boutons Effacer
Button3.Enabled = True
Button5.Enabled = ListBox1.Items.Count <> 0
' boutons de transfert
Button2.Enabled = False
Button3.Enabled = False
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
ListBox1.Items.Clear()
Button4.Enabled = False
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
ListBox2.Items.Clear()
Button2.Enabled = False
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Button2.Enabled = True
End Sub
Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
Button3.Enabled = True
End Sub
End Class
Private Sub Transfert(ByVal d1 As ListBox, ByVal d2 As ListBox)
If d1.SelectedIndex = -1 Then Return
' ajout dans l2
d2.Items.Add(d1.SelectedItem)
' suppression dans l1
d1.Items.RemoveAt(d1.SelectedIndex)
End Sub |
merci d'avance