Question

自从我升级到Windows 10后，我的程序拒绝显示更新发布时的通知图标，当我使用Windows 7时，它运行正常。

这是代码：

Imports System.Net

Public Class Updates
    Public Sub CheckForUpdates()
        Try
            Dim request As System.Net.HttpWebRequest = CType(System.Net.HttpWebRequest.Create("http://versionfile.txt"), HttpWebRequest)
            Dim response As System.Net.HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)

            Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

            Dim newestversion As String = sr.ReadToEnd()
            Dim currentversion As String = Application.ProductVersion
            If newestversion > currentversion Then
                CardMaker.NotifyIcon1.ShowBalloonTip(3000, "Update Available!", "Click Here to download it", ToolTipIcon.Info)
            End If
        Catch ex As Exception
            MsgBox("An error occured while trying to check for updates:" + vbNewLine + ex.Message + vbNewLine + vbNewLine + ex.ToString, Title:="Error 006")
            My.Computer.Clipboard.SetText(ex.ToString)
        End Try
    End Sub
End Class

现在这段代码很有意义，它在理论上有效，但实际上并不适用于Windows 10。问题是，程序在那里，如果他们使用的是Windows 10，人们可能实际上并没有收到通知。

这是一个已知问题吗？如果是这样，有没有解决这个问题？

Answer 1

Neve rmind，修好了。您必须在可视化设计器中选择通知图标才能显示气球提示，尽管它已在代码中定义。

ShowBalloonTip在以前版本的WIndows中使用时无法在Windows 1中运行

1 个答案: