⚡Süper Güçlerim Var⚡
Süper Üye
Visual Basic İle İlgili Denemeler Yapıyorum Belki İşinize Yarar
Görseller :
İnşallah İşinize Yarar
Belki Denemek İsteyenler Olur
Kodlar :
Görseller :
İnşallah İşinize Yarar
Belki Denemek İsteyenler Olur
Kodlar :
Kod:
Public Class AnaSayfa
Private Sub HuraButton1_Click(sender As Object, e As EventArgs) Handles HuraButton1.Click
Try
My.Computer.Network.DownloadFile(HuraTextBox1.Text, HuraTextBox2.Text, "", "", True, "20", False)
Catch ex As Exception
MessageBox.Show("Dosya Adresi Yanlış.
Doğru Bir Dosya Adresi Giriniz !")
MessageBox.Show("Basit İndirme Programı
XÇaylakX")
End Try
End Sub
Private Sub HuraForm1_Click(sender As Object, e As EventArgs) Handles HuraForm1.Click
End Sub
Private Sub AnaSayfa_Load(sender As Object, e As EventArgs)
End Sub
Private Sub AnaSayfa_Load_1(sender As Object, e As EventArgs)
End Sub
Private Sub HuraButton2_Click(sender As Object, e As EventArgs) Handles HuraButton2.Click
Try
Dim isim As String
isim = InputBox("Kaydedilcek Dosyanın Adını Yazın.")
FolderBrowserDialog1.ShowDialog()
HuraTextBox2.Text = FolderBrowserDialog1.SelectedPath + ("\" & isim & (".exe"))
Catch ex As Exception
MessageBox.Show("Hata Meydana Geldi.")
Finally
HuraTextBox1.Text = ""
End Try
End Sub
Private Sub HuraTextBox1_TextChanged(sender As Object, e As EventArgs)
End Sub
End Class
Son düzenleme: