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

واضح آرشیو وب فارسی:سایت ریسک: View Full Version : چت بااستفاده ASP.Net lopez07-07-2007, 11:27 PMسلام دوستان كد يه چت روم ساده رو با استفاده از ASP.Net ميخواهم اگه كسي لطف كنه بزاره ممنون ميشم. فقط زود!!!!:19: mamadfelfel198820-07-2007, 02:43 AMazizam ye khordeh inkar gheyreh momkeneh midoni chera kheili darde sar dare bor ba java in kararo bokon hamidreza_buddy22-07-2007, 11:04 AMba ASP.NET ke nemishe. bayad ba JavaScript in karo bekoni. ya ba componenthaye AJAX marboot be ASP.NET golden11118-08-2007, 09:08 PMبا asp.net میشه چت روم ساخت .شما به چند textbox و button که می تونی همه را داخل table قرار بدهی و کدهای مربوطه را در کلاس بنویسی golden11118-08-2007, 09:09 PMکد های برنامه چت 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 += " [" + myMessage.Sender + "]:" + myMessage.body + " @" + myMessage.SendDate.TimeOfDay.ToString + "" 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 mamadfelfel198818-08-2007, 09:43 PMاین شد چت looooooooooooool سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 832]