Tasarım:
2 Adet Textbox
2 Adet Label
3 Adet Buton
1 Adet SaveFileDialog
Button1: İndirmeyi Başlat
Button2:İndirmeyi Durdur
Button3: Dosyanın İndirelecegi Yer
KODLAR
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Computer.Network.DownloadFile(TextBox1.Text, TextBox2.Text, "", "", True, "15", False)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SaveFileDialog1.ShowDialog()
TextBox2.Text = SaveFileDialog1.FileName
End Sub
Projeyi Geliştirmek ve Görsel Tasarıyı Hazırlamak Size Kalmış...

|