2015-03-29 2 views
0
Dim WithEvents client As New WebClient 
Private Sub DirectX9ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DirectX9ToolStripMenuItem.Click 
    Try 
     client.DownloadFileAsync(New Uri("http://download1588.mediafire.com/y9phz64wph4g/aqlp1m71mvuwo74/Direct+X+11+Update.rar"), "C:\Documents and Settings\All Users\Documents\Direct X 11 Update.RAR") 
    Catch ex As Exception 
     MsgBox("File already exists or is corrupted!") 
    End Try 
End Sub 

Private Sub client_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles client.DownloadFileCompleted 
    MsgBox("Direct X 9 has been successfully downloaded!", MsgBoxStyle.Information) 
    Label48.Visible = False 
    Label49.Visible = False 
    ProgressBar3.Visible = False 
    Label48.Text = "0 &" 
    Label49.Text = "0/0" 
    ProgressBar3.Value = 0 
End Sub 


Private Sub client_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles client.DownloadProgressChanged 
    Label48.Visible = True 
    Label49.Visible = True 
    ProgressBar3.Visible = True 
    Label48.Text = ProgressBar3.Value & "%" 
    Label49.Text = e.BytesReceived & "/" & e.TotalBytesToReceive 
    ProgressBar3.Value = e.ProgressPercentage 

End Sub 

Private Sub GeForceExperienceV2000ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GeForceExperienceV2000ToolStripMenuItem.Click 

    Try 
     client.DownloadFileAsync(New Uri("http://download903.mediafire.com/w91mlqdf6clg/a540a35f5ddcpbn/GeForce_Experience_v2.2.2.0.exe"), "C:\Documents and Settings\All Users\Documents\GeForce_Experience_v2.2.2.0.exe") 
    Catch ex As Exception 
     MsgBox("File already exists or is corrupted!") 
    End Try 
End Sub 

Private Sub client_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles client.DownloadFileCompleted 

    MsgBox("GeForce_Experience_v2.2.2.0 has been successfully downloaded!", MsgBoxStyle.Information) 
    Label48.Visible = False 
    Label49.Visible = False 
    ProgressBar3.Visible = False 
    Label48.Text = "0 &" 
    Label49.Text = "0/0" 
    ProgressBar3.Value = 0 

End Sub 
End Class 
+0

Итак ... на ваш вопрос? – Yatrix

+1

У вас есть 2 события 'client_DownloadFileCompleted' - вы их не видите? Вы не можете этого сделать! – OneFineDay

+0

извините .. я просто изучаю VB :( –

ответ

0

Вы получили свой ответ в комментариях, но просто объясните, чтобы убедиться, что вы понимаете, что вы можете и чего не можете сделать.

При создании метода вы называете его так, чтобы, когда вы его вызываете, ваша программа знает, какой из них вы хотите вызвать. Когда вы называете 2 метода так же, как не знаете, какой из них использовать, когда он вызывается.

Единственный способ иметь 2 метода с тем же именем, если у них есть другая «подпись», что означает, что он не может быть на 100% идентичным. Различные параметры сделают подпись вашего метода отличной, даже если они называются одинаковыми.

+0

oh .. спасибо за объяснения :) –

Смежные вопросы