چت بااستفاده ASP.Net

[lopez]

سلام دوستان
كد يه چت روم ساده رو با استفاده از ASP.Net ميخواهم اگه كسي لطف كنه بزاره ممنون ميشم.
فقط زود!!!!:19:

[mamadfelfel1988]

azizam ye khordeh inkar gheyreh momkeneh midoni chera kheili darde sar dare bor ba java in kararo bokon

[hamidreza_buddy]

ba ASP.NET ke nemishe.
bayad ba JavaScript in karo bekoni.
ya ba componenthaye AJAX marboot be ASP.NET

[golden111]

با asp.net میشه چت روم ساخت .شما به چند textbox و button که می تونی همه را داخل table قرار بدهی و کدهای مربوطه را در کلاس بنویسی

[golden111]

کد های برنامه چت

Partial Class _Default

Inherits System.Web.UI.Page



Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Session("UserName") = Me.TextBox1.Text

Me.TextBox1.Enabled = False

Me.Button1.Enabled = False

Me.Button2.Enabled = True

End Sub



Public Property Messages() As ArrayList

Get

Return Application("Messages")

End Get

Set(ByVal value As ArrayList)

Application("Messages") = value

End Set

End Property



Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click



Dim mymessage As New Message(Session("UserName"), Me.TextBox2.Text, DateTime.Now)

Me.Messages.Add(mymessage)

Me.ShowMessages()



End Sub



Public Sub ShowMessages()

Me.Label1.Text = ""



If Me.Messages Is Nothing Or Me.Messages.Count = 0 Then

Else

For Each myMessage As Message In Me.Messages



Me.Label1.Text += "<br><font color=Red>[" + myMessage.Sender + "]:</font>" + myMessage.body + " @<Font size=1>" + myMessage.SendDate.TimeOfDay.ToString + "</font>"



Next

End If

End Sub



Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load



End Sub

End Class

کد های کلاس Message.vb

Imports Microsoft.VisualBasic



Public Class Message

Public Sender As String

Public body As String

Public SendDate As DateTime

Public Sub New(ByVal t As String, ByVal b As String, ByVal d As DateTime)

Me.Sender = t

Me.body = b

Me.SendDate = d

End Sub

Public Sub New()

End Sub

End Class

[mamadfelfel1988]

این شد چت looooooooooooool