Bonjour.
Je suis actuellement en train de crée un Tchat. J'aimerai que quand un item s'ajoute dans la listbox, il joue un son (je sais comment faire pour le son).
Quel événement prendre?
Merci d'avance.
Cordialement,
Léo Endor.
Bonjour.
Je suis actuellement en train de crée un Tchat. J'aimerai que quand un item s'ajoute dans la listbox, il joue un son (je sais comment faire pour le son).
Quel événement prendre?
Merci d'avance.
Cordialement,
Léo Endor.
Léo BEUTEL
Salut,
en client lourd (event handler ListBox) ou en client léger (event javascript) ?
Plus je connais de langages, plus j'aime le C.
euh... pas en javascript en tout cas
Léo BEUTEL
Disons que si tu faisais un chat web (client léger, donc) tu aurais dû faire ça en JS.
Pour le client lourd je suppose que tu contrôles l'ajout des items, alors pourquoi ne pas jouer ton son à ce moment là, plutôt que d'attendre qu'un event se pointe ?
Plus je connais de langages, plus j'aime le C.
Ca marche merci! Mais le problème, c'est que il joue le son AUSSi quand j'envoie un message...
Léo BEUTEL
Il doit bien y avoir moyen de différencier l'ajout d'un item de l'utilisateur de l'ajout d'un item provenant du réseau.
Fais voir ton code qu'on se fasse une idée ?
edit : ah, oui ! deux remarques :
- il n'existe pas d'event tout fait pour ce que tu cherches,
- même si t'avais un tel event, il te faudrait bien différencier les items suivant leur provenance.
Plus je connais de langages, plus j'aime le C.
Ok!
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
70 Imports System.Net.Sockets Imports System.IO Public Class Chat Private stream As NetworkStream Private streamw As StreamWriter Private streamr As StreamReader Private client As New TcpClient Private t As New Threading.Thread(AddressOf Listen) Private Delegate Sub DAddItem(ByVal s As String) Dim son = New System.Media.SoundPlayer("C:\Users\Leo\Desktop\Appli VB\MyTChater\1-up.wav") Private Sub AddItem(ByVal s As String) ListBox1.Items.Add(s) End Sub Private Sub Listen() While client.Connected Try Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine) Catch MessageBox.Show("Le serveur n'est pas lancé!") Application.Exit() End Try End While End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then MessageBox.Show("Message non valide") End If streamw.WriteLine(TextBox1.Text) streamw.Flush() TextBox1.Clear() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = My.Settings.IP & " - Tchat" Try client.Connect(My.Settings.IP, 8000) If client.Connected Then stream = client.GetStream streamw = New StreamWriter(stream) streamr = New StreamReader(stream) streamw.WriteLine(My.Settings.User) streamw.Flush() t.Start() Else MessageBox.Show("Le serveur n'est pas lancé!") Me.Close() End If Catch ex As Exception MessageBox.Show("Le serveur n'est pas lancé!") Me.Close() End Try End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim message As DialogResult message = MessageBox.Show("Se déconecté?", "Confirmation", MessageBoxButtons.YesNo) If message = DialogResult.Yes Then streamw.WriteLine(My.Settings.User & "s'est déconecter") Me.Close() End If End Sub End Class
Léo BEUTEL
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager