12-07-20, 09:58 AM
12-07-20, 11:16 AM
الكود كامل لتحميل صورة داخل المكان الذى تريده ولو أحببت
وضع أى ملف أخر فغير الرابط الموجود بالكود مع تغير الصيغة .png لآى صيغة تريدها
كود :
Imports System.Net
Public Class Form1
Public WithEvents Download As New WebClient
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Download = New WebClient
Download.DownloadFileAsync(New Uri("http://vb4arb.com/vb/images/default_avatar.png"), My.Computer.FileSystem.SpecialDirectories.MyDocuments + "/" + ("اليوم السابع") + ".png")
End Sub
End Class12-07-20, 07:23 PM
(12-07-20, 11:16 AM)ابو روضة كتب : [ -> ]شكرا اخي ابو روضه علي المساعده ولكن الكود لغبطني استأذنك تشرحهالكود كامل لتحميل صورة داخل المكان الذى تريده ولو أحببتوضع أى ملف أخر فغير الرابط الموجود بالكود مع تغير الصيغة .png لآى صيغة تريدها
كود :
Imports System.Net
Public Class Form1
Public WithEvents Download As New WebClient
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Download = New WebClient
Download.DownloadFileAsync(New Uri("http://vb4arb.com/vb/images/default_avatar.png"), My.Computer.FileSystem.SpecialDirectories.MyDocuments + "/" + ("اليوم السابع") + ".png")
End Sub
End Class
انا اريد احفظ ما بداخل التيكست بوكس داخل فولدر الMyDocuments
(12-07-20, 11:16 AM)ابو روضة كتب : [ -> ]تم الحل شكرا لك يا كبيرالكود كامل لتحميل صورة داخل المكان الذى تريده ولو أحببتوضع أى ملف أخر فغير الرابط الموجود بالكود مع تغير الصيغة .png لآى صيغة تريدها
كود :
Imports System.Net
Public Class Form1
Public WithEvents Download As New WebClient
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Download = New WebClient
Download.DownloadFileAsync(New Uri("http://vb4arb.com/vb/images/default_avatar.png"), My.Computer.FileSystem.SpecialDirectories.MyDocuments + "/" + ("اليوم السابع") + ".png")
End Sub
End Class
كود :
Sub savinsta()
Dim dec As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments
Dim SFD As New SaveFileDialog
With SFD
IO.File.WriteAllText("" + dec + "\Acctocinsta.json", TextBox2.Text)
End With
End Sub