none
Right hand side popup Notification from RRS feed

  • Question

  • We have form which displays notification at the right hand bottom side. If another instance is invoked it should show the window the top of current one if its active. Please advice.



    Coderv9

    Wednesday, August 22, 2018 3:45 AM

Answers

  • Here is a start on a vb version using a FlowLayoutPanel and Buttons.

    Public Class Form4
        Private WithEvents Flow1 As New FlowLayoutPanel With {.Parent = Me, .Dock = DockStyle.Right,
         .BackColor = Color.Black, .ForeColor = Color.AntiqueWhite, .Width = 150, .FlowDirection = FlowDirection.BottomUp}
        Private WithEvents Button1 As New Button With {.Parent = Me, .Location = New Point(20, 20), .Text = "Add Msg"}
        Private NotesTotal As Integer
    
        Private Sub Buttons_Click(sender As Object, e As EventArgs)
            'close this message
            Dim btn As Button = DirectCast(sender, Button)
            btn.Dispose()
        End Sub
    
        Private Sub Buttons1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            'add button note to flow panel
            Dim btn As New Button
            NotesTotal += 1
    
            With btn
                .Name = "B" & NotesTotal.ToString
                .Size = New Size(Flow1.Width - 2, 60)
                .Text = "Message Type:" & vbLf & "   NOTE " & NotesTotal.ToString
                .BackColor = Color.Maroon
                .BackgroundImage = SystemIcons.Warning.ToBitmap()
                .BackgroundImageLayout = ImageLayout.None
                .ImageAlign = ContentAlignment.MiddleLeft
                AddHandler .Click, AddressOf Buttons_Click
            End With
    
            Flow1.Controls.Add(btn)
    
        End Sub
    End Class

    • Marked as answer by Coderv9 Thursday, August 30, 2018 3:34 PM
    Wednesday, August 29, 2018 8:07 PM

All replies

  • Hi,

    Can you provide more information? Or provide some code.
    By the way, what is this project?

    Best Regards,

    Alex



    MSDN Community Support Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.

    Wednesday, August 22, 2018 7:13 AM
  • Hi Alex,

    Am trying to develop a program to view incoming chat notifications.

    When an incoming chat arrives which is stored in a array. Application should provide notification in the above format.

    If there are multiple incoming chats it's should notify the user like above.


    Coderv9

    Tuesday, August 28, 2018 1:22 PM
  • The best thing I've seen unfortantely is WPF/C#. They stack and permit you to determine the life span of each toast window.

    https://github.com/rafallopatka/ToastNotifications 

    I have not seen anything like this for VB.NET.


    Please remember to mark the replies as answers if they help and unmark them if they provide no help, this will help others who are looking for solutions to the same or similar problem. Contact via my Twitter (Karen Payne) or Facebook (Karen Payne) via my MSDN profile but will not answer coding question on either.
    VB Forums - moderator
    profile for Karen Payne on Stack Exchange, a network of free, community-driven Q&A sites

    Tuesday, August 28, 2018 1:44 PM
    Moderator
  • Here is a start on a vb version using a FlowLayoutPanel and Buttons.

    Public Class Form4
        Private WithEvents Flow1 As New FlowLayoutPanel With {.Parent = Me, .Dock = DockStyle.Right,
         .BackColor = Color.Black, .ForeColor = Color.AntiqueWhite, .Width = 150, .FlowDirection = FlowDirection.BottomUp}
        Private WithEvents Button1 As New Button With {.Parent = Me, .Location = New Point(20, 20), .Text = "Add Msg"}
        Private NotesTotal As Integer
    
        Private Sub Buttons_Click(sender As Object, e As EventArgs)
            'close this message
            Dim btn As Button = DirectCast(sender, Button)
            btn.Dispose()
        End Sub
    
        Private Sub Buttons1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            'add button note to flow panel
            Dim btn As New Button
            NotesTotal += 1
    
            With btn
                .Name = "B" & NotesTotal.ToString
                .Size = New Size(Flow1.Width - 2, 60)
                .Text = "Message Type:" & vbLf & "   NOTE " & NotesTotal.ToString
                .BackColor = Color.Maroon
                .BackgroundImage = SystemIcons.Warning.ToBitmap()
                .BackgroundImageLayout = ImageLayout.None
                .ImageAlign = ContentAlignment.MiddleLeft
                AddHandler .Click, AddressOf Buttons_Click
            End With
    
            Flow1.Controls.Add(btn)
    
        End Sub
    End Class

    • Marked as answer by Coderv9 Thursday, August 30, 2018 3:34 PM
    Wednesday, August 29, 2018 8:07 PM
  • Thank you tommy. This is so close to what we are looking for.

    Coderv9

    Thursday, August 30, 2018 3:36 PM
  • Awesome UI. Thank you for the link Karen

    Coderv9

    Thursday, August 30, 2018 3:36 PM