我有一个奇怪的问题,我创建了一个测试表单FrmTest
。添加了NotifyIcon并添加了显示的代码:
Public Class FrmTest
Private Sub FrmTest_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Sub FormTest_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Click
Call SetBalloonTip()
NotifyIcon1.Visible = True
NotifyIcon1.ShowBalloonTip(30000)
End Sub
Private Sub SetBalloonTip()
NotifyIcon1.Icon = SystemIcons.Exclamation
NotifyIcon1.BalloonTipTitle = "Balloon Tip Title"
NotifyIcon1.BalloonTipText = "Balloon Tip Text."
NotifyIcon1.BalloonTipIcon = ToolTipIcon.Error
End Sub
End Class
当我单击以显示气球时,出现以下提示:
我肯定做错了明显的事,但是我很沮丧!
答案 0 :(得分:0)
没有什么可以说你做得很好的... 这就是Windows 10上气球提示的样子。祝您好运。