Question

我正在开发自定义GUI，我的最后一步是自动更改按钮，检查启动时文件是否存在。下面的方法是我的下载/打开按钮。任何帮助表示赞赏！

Private Sub Button7_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button7.Click
    If Dir("DownloadedFile.zip") <> "" Then
        Process.Start("DownloadedFile.zip")
    Else
        WC.DownloadFileAsync(New Uri("http://download852.mediafire.com/3a688rz1a6ig/dk71cs34ihs3v6x/Devil+went+down+to+georgia.rar"), "DownloadedFile.zip")
        MsgBox("Starting Download")
    End If
End Sub

Answer 1

子例程是一种不返回值的单独方法。我会从你的click事件处理程序中取出If语句，并按照我的说法将它放在自己的方法中。

Private Sub CheckForFile()
    If Dir("DownloadedFile.zip") <> "" Then
        Process.Start("DownloadedFile.zip")
    Else
        WC.DownloadFileAsync(New Uri("http://download852.mediafire.com/3a688rz1a6ig/dk71cs34ihs3v6x/Devil+went+down+to+georgia.rar"), "DownloadedFile.zip")
        MsgBox("Starting Download")
    End If
End Sub

像这样从你的按钮中调用它。

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    CheckForFile()
End Sub

然后处理显示的事件并从那里调用它。它将在显示初始表单后立即运行

Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
    CheckForFile()
End Sub

回复您的评论您需要使用WebClient DownloadFileCompleted事件和WebClient DownloadProgressChanged事件

如果文件存在，更改按钮名称？

1 个答案: