عمل شاشة تنبية مثل الموجودة في الماسنجر

انسخ هذا الكود وإلصقه في ملف من نوع vb. واذا واجهتك مشاكل لا تتردد بالرد

Public Class frmMessage
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents timerShowMessage As System.Windows.Forms.Timer
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents btnCloseMessage As System.Windows.Forms.Button
    Friend WithEvents lblTitle As System.Windows.Forms.Label
    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    Friend WithEvents lblMessage As System.Windows.Forms.Label
    Friend WithEvents TimerHideMessag As System.Windows.Forms.Timer
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMessage))
        Me.timerShowMessage = New System.Windows.Forms.Timer(Me.components)
        Me.Panel1 = New System.Windows.Forms.Panel
        Me.lblTitle = New System.Windows.Forms.Label
        Me.btnCloseMessage = New System.Windows.Forms.Button
        Me.PictureBox1 = New System.Windows.Forms.PictureBox
        Me.lblMessage = New System.Windows.Forms.Label
        Me.TimerHideMessag = New System.Windows.Forms.Timer(Me.components)
        Me.Panel1.SuspendLayout()
        Me.SuspendLayout()
        '
        'timerShowMessage
        '
        Me.timerShowMessage.Interval = 65
        '
        'Panel1
        '
        Me.Panel1.BackColor = System.Drawing.Color.White
        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Panel1.Controls.Add(Me.lblMessage)
        Me.Panel1.Controls.Add(Me.PictureBox1)
        Me.Panel1.Controls.Add(Me.btnCloseMessage)
        Me.Panel1.Controls.Add(Me.lblTitle)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel1.Location = New System.Drawing.Point(0, 0)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.RightToLeft = System.Windows.Forms.RightToLeft.Yes
        Me.Panel1.Size = New System.Drawing.Size(320, 109)
        Me.Panel1.TabIndex = 0
        '
        'lblTitle
        '
        Me.lblTitle.BackColor = System.Drawing.Color.Gainsboro
        Me.lblTitle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.lblTitle.Dock = System.Windows.Forms.DockStyle.Top
        Me.lblTitle.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.lblTitle.ForeColor = System.Drawing.Color.Blue
        Me.lblTitle.Location = New System.Drawing.Point(0, 0)
        Me.lblTitle.Name = "lblTitle"
        Me.lblTitle.Size = New System.Drawing.Size(318, 24)
        Me.lblTitle.TabIndex = 3
        Me.lblTitle.Text = "Arab Team 2000"
        Me.lblTitle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'btnCloseMessage
        '
        Me.btnCloseMessage.BackColor = System.Drawing.SystemColors.Control
        Me.btnCloseMessage.FlatStyle = System.Windows.Forms.FlatStyle.System
        Me.btnCloseMessage.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.btnCloseMessage.ForeColor = System.Drawing.Color.White
        Me.btnCloseMessage.Location = New System.Drawing.Point(0, 1)
        Me.btnCloseMessage.Name = "btnCloseMessage"
        Me.btnCloseMessage.Size = New System.Drawing.Size(24, 21)
        Me.btnCloseMessage.TabIndex = 2
        Me.btnCloseMessage.Text = "X"
        '
        'PictureBox1
        '
        Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Right
        Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
        Me.PictureBox1.Location = New System.Drawing.Point(267, 24)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(51, 83)
        Me.PictureBox1.TabIndex = 4
        Me.PictureBox1.TabStop = False
        '
        'lblMessage
        '
        Me.lblMessage.Dock = System.Windows.Forms.DockStyle.Fill
        Me.lblMessage.Location = New System.Drawing.Point(0, 24)
        Me.lblMessage.Name = "lblMessage"
        Me.lblMessage.Size = New System.Drawing.Size(267, 83)
        Me.lblMessage.TabIndex = 5
        Me.lblMessage.Text = "Label1"
        '
        'TimerHideMessag
        '
        '
        'frmMessage
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14)
        Me.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(192, Byte), CType(192, Byte))
        Me.ClientSize = New System.Drawing.Size(320, 109)
        Me.Controls.Add(Me.Panel1)
        Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(178, Byte))
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.Name = "frmMessage"
        Me.ShowInTaskbar = False
        Me.Text = "frmMessage"
        Me.Panel1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim screenWorkingArea As Rectangle
    Private Sub frmMessage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        screenWorkingArea = System.Windows.Forms.Screen.GetWorkingArea(New Point(0, 0))

        Me.Location = New Point(screenWorkingArea.Width - Me.Width, screenWorkingArea.Height)
        timerShowMessage.Enabled = True

    End Sub

    Public Title As String
    Public Message As String

    Public Shadows Sub Show(ByVal Message As String, ByVal Title As String, ByVal TimeOut As Integer)
        Me.Title = Title
        lblTitle.Text = Title
        lblMessage.Text = Message
        Me.Message = Message
        TimerHideMessag.Interval = TimeOut * 1000
        MyBase.Show()
        TimerHideMessag.Start()
    End Sub

    Private Sub timerShowMessage_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timerShowMessage.Tick
        If Me.Location.Y <= (screenWorkingArea.Height - Me.Height) Then
            timerShowMessage.Enabled = False
            Exit Sub
        End If
        Me.Location = New Point(Me.Location.X, Me.Location.Y - 10)
    End Sub
    Private CloseNow As Boolean = False
    Private Sub btnCloseMessage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCloseMessage.Click
        Me.Close()
    End Sub

    Private Sub TimerHideMessag_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerHideMessag.Tick
        If CloseNow = False Then
            CloseNow = True
        Else
            Me.Close()
        End If

    End Sub
    Private Shadows Sub Close()
        For i As Integer = Me.Height To 0
            Me.Location = New Point(Me.Location.X, Me.Location.Y + 10)
            Threading.Thread.Sleep(1000)
        Next
        MyBase.Close()
    End Sub
End Class

اي والله ربنا يبارك فيك حليتلي اهم مشكلة

لو سمحت بعد مااضيف الكود ده عندى اعمل ايه عشان يشتغل ضرورى جداااااااااااااااااااااااااااااااا

بارك الله فيك كود ممتاز جدا

ممكن تضع لنا المثال كامل هنا

يعني المشروع نفسه مش الكود

لأنه عن وضع هذا الكود مش بيشتغل وبيطلع اخطاء قبل التحميل

آخر رد بتاريخ Jan 27 2007 ,,,