تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود لعمل Notification Form
#1
السلام عليكم احبيتي ...

اما بعد ...

احببت ان اشاركم كود كتبته بيدي وهو كود بسيط لكيفية عمل Notification Form تظهر بجانب الساعه وتختفي بعد 5 ثواني


1- افتح مشروع جديد ..
2- ادرج اداتا Timer اثنتان وسمي الاولى Timer والثانية Timer1 

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

كود :
Public Class Notfrm


    Dim screenWidth As Integer = Screen.PrimaryScreen.Bounds.Width
    Dim screenHeight As Integer = Screen.PrimaryScreen.Bounds.Height

    Private Sub Notfrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Location = New Point(screenWidth - Me.Size.Width, screenHeight)
    End Sub

    Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick
        Application.DoEvents()

        If Me.Location = New Point(Me.Location.X, screenHeight - Me.Size.Height) Then

            Timer.Enabled = False
            Threading.Thread.Sleep(5000)
            Timer1.Enabled = True
        Else

            Me.Location = New Point(Me.Location.X, Me.Location.Y - 1)
        End If
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Main.Show()
        Main.Focus()
        Me.Close()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.Location = New Point(Me.Location.X, screenHeight + Me.Size.Height) Then
            Me.Close()
        Else

            Me.Location = New Point(Me.Location.X, Me.Location.Y + 1)

        End If

    End Sub
End Class

افتح البرنامج ...

ستجد ان الفورم تتحرك بجانب الساعة الى الاعلى وبعدها تقف لمدة 5 ثواني ومن ثم تنزل وتختفي


اتمنى انه قد اعجبكم الكود 


اخوكم في الله يزن العتوم 


السلام عليكم 
الرد }}}}
تم الشكر بواسطة: أبوبكر سويدان


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [VB.NET] اريد كود عندما اضغط علي butten يظهر لي textbox جديده علي ال form faraj jaddwalaa 7 694 05-08-16, 07:47 PM
آخر رد: jassim316
  [VB.NET] فنكشن لعمل تاثيرات على الصور hitman48 2 890 06-02-15, 09:19 PM
آخر رد: hitman48

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم