اخي الكود كلو معتمد علي الويب لانه يجلب الصوره ممكن تعدل عليه وتخليه محضر صور الياهو مثلا كده WebBrowser1.Navigate("http://img.msg.yahoo.com/avatar.php?yids=" & TextBox1.Text ) بدلا من WebBrowser1.Navigate("http://avatar.nimbuzz.com/getAvatar?jid=" & TextBox1.Text & "@nimbuzz.com")
اول حاجه هنرتب الادوات الي هيا اداة الويب و البكتشر اللي هيا الصوره وتكست بوكس اللي هتكتب فيها اسم المستخدم و 2 زر حلو بعد كده نضيف اداد الحفظ اللي هيا دي SaveFileDialog بعد كده هتحط الكود دا في زر احضار الصوره تمام
بعد كده نضغط علي مربع الويب الي ف المشروع تمام راح ندخل ف الكود بتاعو اللي هيظهر الصوره في البيكتشر بوكس وده الكود بتاعها
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Dim g As String = "" For Each ele As HtmlElement In WebBrowser1.Document.All If ele.GetAttribute("src").ToLower.Contains("") Then Dim imgsrc As String = ele.GetAttribute("src") g = imgsrc End If Next PictureBox1.ImageLocation = g End Sub
بعد كده اخر كود اللي هوا حفظ الصوره تمام نضغط علي زر حفظ الصوره ونكتب الكود دا
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim saveDlg As New SaveFileDialog saveDlg.Filter = "Image Files (*.bmp, *.jpg)|*.bmp;*.jpg" If saveDlg.ShowDialog = DialogResult.OK Then PictureBox1.Image.Save(saveDlg.FileName) End If End Sub
وكده تمام ظبط شكل البرنامج واحفظو لو وقفت في حاجه قولي وانا منتظر تعليقاتكم
اخي تابعني انت سايفة البرنامج صح تمام القفل الفيجوال وروح علي فيلدر My Documents بعد كدخ ادخل علي Visual Studio وادخل علي Projects هتلقا كل المشاريع تمام مثلا اسم الماشروع كده سارق صور هتلقا فلدر بأسمو ادخل عليه بعد كده ادخل علي bin وادخل Debug هتلقا البرنامج افتحو وكده تمام هيشتغل معاك
حلو والله مبدع بس أخي كيف نعدل هل أكواد ومن وين نحصلها أصلاً
ReplyDeleteاخي الكود كلو معتمد علي الويب لانه يجلب الصوره ممكن تعدل عليه وتخليه محضر صور الياهو
Deleteمثلا كده
WebBrowser1.Navigate("http://img.msg.yahoo.com/avatar.php?yids=" & TextBox1.Text )
بدلا من
WebBrowser1.Navigate("http://avatar.nimbuzz.com/getAvatar?jid=" & TextBox1.Text & "@nimbuzz.com")
الفرق في الرابط بس
مشكور على الجهد بس ممكن توضيح الأكواد
ReplyDeleteتسلبمو حبايبي
ReplyDeleteحاضر هوضح الاكواد حبة تركيز بقا
ReplyDeleteاول حاجه هنرتب الادوات الي هيا اداة الويب و البكتشر اللي هيا الصوره وتكست بوكس اللي هتكتب فيها اسم المستخدم و 2 زر حلو بعد كده نضيف اداد الحفظ اللي هيا دي
ReplyDeleteSaveFileDialog
بعد كده هتحط الكود دا في زر احضار الصوره تمام
WebBrowser1.Navigate("http://avatar.nimbuzz.com/getAvatar?jid=" & TextBox1.Text & "@nimbuzz.com")
بعد كده نضغط علي مربع الويب الي ف المشروع تمام راح ندخل ف الكود بتاعو اللي هيظهر الصوره في البيكتشر بوكس وده الكود بتاعها
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim g As String = ""
For Each ele As HtmlElement In WebBrowser1.Document.All
If ele.GetAttribute("src").ToLower.Contains("") Then
Dim imgsrc As String = ele.GetAttribute("src")
g = imgsrc
End If
Next
PictureBox1.ImageLocation = g
End Sub
بعد كده اخر كود اللي هوا حفظ الصوره تمام نضغط علي زر حفظ الصوره ونكتب الكود دا
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim saveDlg As New SaveFileDialog
saveDlg.Filter = "Image Files (*.bmp, *.jpg)|*.bmp;*.jpg"
If saveDlg.ShowDialog = DialogResult.OK Then
PictureBox1.Image.Save(saveDlg.FileName)
End If
End Sub
وكده تمام ظبط شكل البرنامج واحفظو
لو وقفت في حاجه قولي وانا منتظر تعليقاتكم
تحياتي لكم عادل الاسناوي :):)
أخي الله اخليك تمكنت من صنع هالبرنامج بس كيف أحفظو ؟ بالسايف ما تسجل !!! ساعدني وبارك الله فيك
ReplyDeleteاخي تابعني انت سايفة البرنامج صح تمام القفل الفيجوال وروح علي فيلدر My Documents
ReplyDeleteبعد كدخ ادخل علي Visual Studio
وادخل علي Projects
هتلقا كل المشاريع تمام
مثلا اسم الماشروع كده سارق صور هتلقا فلدر بأسمو ادخل عليه
بعد كده ادخل علي bin
وادخل Debug
هتلقا البرنامج افتحو وكده تمام
هيشتغل معاك
واضح أخي وكيف أنزل على نت يعنى لقيت 4 ملفات مع الملف الشغال !!!! بارك الله فيك على جهدك والله تعبتك معايا
ReplyDeleteتسلم اخي ولا تعب ولا حاجه
ReplyDelete