应用程序更新时如何显示进度条?
Private Sub Button1_Click(sender As Object, e As EventArgs) 处理 Button1.Click
尝试
将 AD 调暗为 ApplicationDeployment = ApplicationDeployment.CurrentDeployment
'如何在本节中显示进度条
AD.Update()
MessageBox.Show("The application has been upgraded, and will now restart.")
Application.Restart()
Catch dde As DeploymentDownloadException
MessageBox.Show("Cannot install the latest version of the application. " & ControlChars.Lf & ControlChars.Lf & "Please check your network connection, or try again later.")
Return
End Try
End Sub