VB.net 将form控制在右下角

    Private Sub FormProjectInfo_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        With Me
            .Text = "项目更新提示"
            .ControlBox = False
            .Location = New Point(My.Computer.Screen.WorkingArea.Width - Me.Width, My.Computer.Screen.WorkingArea.Bottom - Me.Height)
            .TopMost = True
        End With
    End Sub
VB.NET 中实现右下角消息弹窗,可以使用 NotifyIcon 控件和 ContextMenuStrip 控件。 首先,在窗体中添加一个 NotifyIcon 控件和一个 ContextMenuStrip 控件。在 ContextMenuStrip 控件中添加一个 ToolStripMenuItem,用于显示弹窗消息。 然后,在窗体的 Load 事件中添加如下代码: ``` Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load NotifyIcon1.Icon = SystemIcons.Application NotifyIcon1.Visible = True ContextMenuStrip1.Items(0).Text = "显示消息" End Sub ``` 这段代码设置了 NotifyIcon 控件的图标和可见性,并且设置了 ContextMenuStrip 控件中第一个菜单项的文本。 接下来,在 ToolStripMenuItem 的 Click 事件中添加如下代码: ``` Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click Dim notify As New NotifyIcon notify.Icon = SystemIcons.Application notify.BalloonTipIcon = ToolTipIcon.Info notify.BalloonTipTitle = "消息标题" notify.BalloonTipText = "消息内容" notify.Visible = True notify.ShowBalloonTip(3000) End Sub ``` 这段代码创建了一个新的 NotifyIcon 控件,并设置了弹窗消息的图标、标题和内容,并且显示了弹窗消息。最后,记得在窗体的 FormClosing 事件中将 NotifyIcon 控件的可见性设置为 False,以确保程序退出时 NotifyIcon 控件被正常关闭。 完整的代码如下: ``` Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load NotifyIcon1.Icon = SystemIcons.Application NotifyIcon1.Visible = True ContextMenuStrip1.Items(0).Text = "显示消息" End Sub Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click Dim notify As New NotifyIcon notify.Icon = SystemIcons.Application notify.BalloonTipIcon = ToolTipIcon.Info notify.BalloonTipTitle = "消息标题" notify.BalloonTipText = "消息内容" notify.Visible = True notify.ShowBalloonTip(3000) End Sub Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing NotifyIcon1.Visible = False End Sub End Class ```
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值