Discussion :

[mipou]

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:

[Pol63]

il faut installer l'aide msdn qui contient tout ca

sinon l'intellisense permet de tout voir aussi

du marque
dim b as new button
b.

et après le point ca te propose toutes les sub, function, property et variables publiques, ainsi que ce qu'elle font (en moins détaillé que dans l'aide msdn mais suffisant en général)

pour les évènements, tu marques
addhandler b.

et derrière le point sa te propose tous les évènements ainsi que ce à quoi ils servent




sinon pour les débutants, y a ca qu'est utile : http://plasserre.developpez.com/vsommair.htm

[mipou]

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 :

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
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

[Philippe Vialatte]

Code :

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

1
2
3
4
5
6
7
8
9
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

tu as mis Transfert en dehors de ta classe... toutes tes fonctions et procedures doivent etre dans une classe, un module ou une structure...


PS : pense au tag "code", ca fait mal le vb pas indente

[mipou]

bjr a tous
je voudrais faire un chronomètre avec du vb.net
voici mon code

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
Public Class Form10
Public Class Timer1
 
Inherits System.Windows.Forms.Form
Private WithEvents timer1 As System.Windows.Forms.Timer
Private WithEvents Buttonarretmarche As System.Windows.Forms.Button
Private components As System.ComponentModel.IContainer
Private WithEvents textbox1 As System.Windows.Forms.TextBox
Private WithEvents label1 As System.Windows.Forms.Label
Private début As DateTime
 
 
Private Sub Buttonarretmarche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonarretmarche.Click
If Buttonarretmarche.Text = "Marche" Then
debut = DateTime.Now
textbox1.Text = "00.00.00"
timer1.Enabled = True
Return
 
End If
If Buttonarretmarche.Text = "Arrêt" Then
Dim debut As DateTime = DateAndTime.Now
textbox1.Text = "Marche"
Return
End If
End Sub
 
Public Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim maintenant As DateTime = DateTime.Now
Dim durée As TimeSpan = DateTime.op_Subtraction(maintenant, debut)
textbox1.Text = "" + durée.Hours.ToString("d2") + ":" + durée.Minutes.ToString("d2") + ":" + durée.Seconds.ToString("d2")
End Sub
End Class
End Class

le vb.net 2005 me sinale cette erreur
Error 1 'Timer1' is already declared as 'Friend Dim WithEvents Timer1 As System.Windows.Forms.Timer' in this class.
je signale que je suis un debutant
merci de m'aider

[harz62]

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Class Form10
Public Class Timer1
 
Inherits System.Windows.Forms.Form
Private WithEvents timer1 As System.Windows.Forms.Timer
Private WithEvents Buttonarretmarche As System.Windows.Forms.Button
Private components As System.ComponentModel.IContainer
Private WithEvents textbox1 As System.Windows.Forms.TextBox
Private WithEvents label1 As System.Windows.Forms.Label
Private début As DateTime

Ici tu as une classe Form10 qui contient une classe Timer1 qui représente un formulaire car elle hérite de la classe Form qui elle même contient un timer et des contrôles. Le problème ici c'est que le nom de ta Form et celui du timer sont identiques car le langage n'est pas sensible à la casse.
Supprimer les lignes

Code :

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

Public Class Timer1

Code :

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

End Class