وبلاگ اختصاصی مهندس کیائی

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

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