المشاركات : 224
المواضيع 47
الإنتساب : Aug 2014
السمعة :
14
الشكر: 183
تم شكره 261 مرات في 126 مشاركات
السلام عليكم ورحمة الله وبركاته
من فترة عملت موضوع عن ازاي اضيف عدد معين من الصور والحمد لله تمت الحل وهذا هو الموضوع
http://vb4arb.com/vb/showthread.php?tid=36838
وافادوني الاخوة وساعدوني جدا وانا ممتن جدا لهم طلبي دلوقتي غريب شوية
الخاص بكود اخي ابو روضه حفظه الله وهذا هو الكود
كود :
Imports System.Text
Imports System.Text.RegularExpressions
Public Class Form1
Dim vu As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim url As String = "https://pastebin.com/raw/6au4aJGx"
Using wc As New Net.WebClient
wc.Encoding = Encoding.UTF8
Dim html As String = wc.DownloadString(url)
Dim str As String = "https.*?\.png"
Dim reg As New Regex(str)
Dim mc As MatchCollection = reg.Matches(html)
Dim ma As Match
For Each ma In mc
If ma.Success Then
Dim pb As New PictureBox
pb.SizeMode = PictureBoxSizeMode.Zoom
pb.Width = 250
pb.Height = 50
pb.ImageLocation = ma.Value
pb.Parent = Me.FlowLayoutPanel1
End If
Next
End Using
End Sub
End Class
فايدة هذا الكود انك لو ضفت كذا صورة تظهر في البرنامج بدون picturebox وعدم وضع حد للصور
طلبي بقا هو ازاي اخلي لكل صورة بضيفها رابط معين عند الضغط علي الصورة تنتقل لهذا الرابط لقد حاولت كثيرا ولكن دون جدوي للاسف وانا محتاج الكود ده جدا
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3386
تم شكره 2456 مرات في 1124 مشاركات
هذا الموضوع به طلبك أخى بأمر الله...
شاهده وحاول معاه وبأمر الله ستظبط معك...
المشاركات : 224
المواضيع 47
الإنتساب : Aug 2014
السمعة :
14
الشكر: 183
تم شكره 261 مرات في 126 مشاركات
(18-12-20, 08:14 PM)ابو روضة كتب : هذا الموضوع به طلبك أخى بأمر الله...
شاهده وحاول معاه وبأمر الله ستظبط معك...
شكرا لك اخي الكريم ابو روضة
المشاركات : 16
المواضيع 0
الإنتساب : Dec 2020
السمعة :
4
الشكر: 10
تم شكره 26 مرات في 12 مشاركات
19-12-20, 04:18 AM
(آخر تعديل لهذه المشاركة : 21-12-20, 07:17 AM {2} بواسطة has123.)
(18-12-20, 06:14 PM)ميدو الفنان كتب : السلام عليكم ورحمة الله وبركاته
من فترة عملت موضوع عن ازاي اضيف عدد معين من الصور والحمد لله تمت الحل وهذا هو الموضوع
http://vb4arb.com/vb/showthread.php?tid=36838
وافادوني الاخوة وساعدوني جدا وانا ممتن جدا لهم طلبي دلوقتي غريب شوية
الخاص بكود اخي ابو روضه حفظه الله وهذا هو الكود
كود :
Imports System.Text
Imports System.Text.RegularExpressions
Public Class Form1
Dim vu As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim url As String = "https://pastebin.com/raw/6au4aJGx"
Using wc As New Net.WebClient
wc.Encoding = Encoding.UTF8
Dim html As String = wc.DownloadString(url)
Dim str As String = "https.*?\.png"
Dim reg As New Regex(str)
Dim mc As MatchCollection = reg.Matches(html)
Dim ma As Match
For Each ma In mc
If ma.Success Then
Dim pb As New PictureBox
pb.SizeMode = PictureBoxSizeMode.Zoom
pb.Width = 250
pb.Height = 50
pb.ImageLocation = ma.Value
pb.Parent = Me.FlowLayoutPanel1
End If
Next
End Using
End Sub
End Class
فايدة هذا الكود انك لو ضفت كذا صورة تظهر في البرنامج بدون picturebox وعدم وضع حد للصور
طلبي بقا هو ازاي اخلي لكل صورة بضيفها رابط معين عند الضغط علي الصورة تنتقل لهذا الرابط لقد حاولت كثيرا ولكن دون جدوي للاسف وانا محتاج الكود ده جدا
انت بتقول بدون picturebox وعدم وضع حد للصور
ممكن توضح اين تريد وضع الصوره وبتقصد ايه ب حد للصور
حكايت ازاي اخلي لكل صورة بضيفها رابط معين عند الضغط علي الصورة تنتقل لهذا الرابط
هادى بسيطه بس نعرف الصور بتتحط فين زي مقلت (بدون picturebox) وهل الرابط هو رباط الصوره؟
PHP كود :
Imports System.Text Imports System.Text.RegularExpressions Public Class Form1 Dim vu As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim url As String = "https://pastebin.com/raw/6au4aJGx" Using wc As New Net.WebClient wc.Encoding = Encoding.UTF8 Dim html As String = wc.DownloadString(url) Dim str As String = "https.*?\.png" Dim reg As New Regex(str) Dim mc As MatchCollection = reg.Matches(html) Dim ma As Match For Each ma In mc If ma.Success Then Dim pb As New PictureBox pb.SizeMode = PictureBoxSizeMode.Zoom pb.Width = 250 pb.Height = 50 pb.ImageLocation = ma.Value pb.Parent = Me.FlowLayoutPanel1 AddHandler pb.Click, AddressOf pb_Click End If Next End Using End Sub
Private Sub pb_Click(sender As Object, e As EventArgs) Process.Start(sender.ImageLocation) End Sub
End Class
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3386
تم شكره 2456 مرات في 1124 مشاركات
19-12-20, 08:17 AM
(آخر تعديل لهذه المشاركة : 19-12-20, 08:19 AM {2} بواسطة ابو روضة.)
(19-12-20, 04:18 AM)has123 كتب : انت بتقول بدون picturebox وعدم وضع حد للصور
ممكن توضح اين تريد وضع الصوره وبتقصد ايه ب حد للصور
حكايت ازاي اخلي لكل صورة بضيفها رابط معين عند الضغط علي الصورة تنتقل لهذا الرابط
هادى بسيطه بس نعرف الصور بتتحط فين زي مقلت (بدون picturebox) وهل الرابط هو رباط الصوره؟
PHP كود :
Imports System.Text Imports System.Text.RegularExpressions Public Class Form1 Dim vu As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim url As String = "https://pastebin.com/raw/6au4aJGx" Using wc As New Net.WebClient wc.Encoding = Encoding.UTF8 Dim html As String = wc.DownloadString(url) Dim str As String = "https.*?\.png" Dim reg As New Regex(str) Dim mc As MatchCollection = reg.Matches(html) Dim ma As Match For Each ma In mc If ma.Success Then Dim pb As New PictureBox pb.SizeMode = PictureBoxSizeMode.Zoom pb.Width = 250 pb.Height = 50 pb.ImageLocation = ma.Value pb.Parent = Me.FlowLayoutPanel1 AddHandler pb.Click, AddressOf pb_Click End If Next End Using End Sub
Private Sub pb_Click(sender As Object, e As EventArgs) Handles Button1.Click Process.Start(sender.ImageLocation) End Sub
End Class
جزاك الله كل الخير أخى الكريم ماشاء الله فنان....
سؤال لو سمحت لماذا الصور بعيدة عن بعضهما حينما بقوم بجلبها ؟
هل يجوز وضعهم جانب بعض بحيث ازالة الفراغات ؟
هكذا
وهل استطيع تحريك عجلة الماوس داخل الفورم لآنها لا تتحرك ؟
وجزاك الله خيرا
المشاركات : 16
المواضيع 0
الإنتساب : Dec 2020
السمعة :
4
الشكر: 10
تم شكره 26 مرات في 12 مشاركات
19-12-20, 08:53 AM
(آخر تعديل لهذه المشاركة : 21-12-20, 07:17 AM {2} بواسطة has123.)
(19-12-20, 08:17 AM)ابو روضة كتب : (19-12-20, 04:18 AM)has123 كتب : انت بتقول بدون picturebox وعدم وضع حد للصور
ممكن توضح اين تريد وضع الصوره وبتقصد ايه ب حد للصور
حكايت ازاي اخلي لكل صورة بضيفها رابط معين عند الضغط علي الصورة تنتقل لهذا الرابط
هادى بسيطه بس نعرف الصور بتتحط فين زي مقلت (بدون picturebox) وهل الرابط هو رباط الصوره؟
PHP كود :
Imports System.Text Imports System.Text.RegularExpressions Public Class Form1 Dim vu As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim url As String = "https://pastebin.com/raw/6au4aJGx" Using wc As New Net.WebClient wc.Encoding = Encoding.UTF8 Dim html As String = wc.DownloadString(url) Dim str As String = "https.*?\.png" Dim reg As New Regex(str) Dim mc As MatchCollection = reg.Matches(html) Dim ma As Match For Each ma In mc If ma.Success Then Dim pb As New PictureBox pb.SizeMode = PictureBoxSizeMode.Zoom pb.Width = 250 pb.Height = 50 pb.ImageLocation = ma.Value pb.Parent = Me.FlowLayoutPanel1 AddHandler pb.Click, AddressOf pb_Click End If Next End Using End Sub
Private Sub pb_Click(sender As Object, e As EventArgs) Process.Start(sender.ImageLocation) End Sub
End Class
جزاك الله كل الخير أخى الكريم ماشاء الله فنان....
سؤال لو سمحت لماذا الصور بعيدة عن بعضهما حينما بقوم بجلبها ؟
هل يجوز وضعهم جانب بعض بحيث ازالة الفراغات ؟
هكذا
وهل استطيع تحريك عجلة الماوس داخل الفورم لآنها لا تتحرك ؟
وجزاك الله خيرا
في الاداه flowlayoutpanel عطل الخاصيه wrapcontents وخلي الخاصيه flowdirection على topdoawn
ولو وضعت الكود اللي عندك حفيدك اكتر
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3386
تم شكره 2456 مرات في 1124 مشاركات
(19-12-20, 08:53 AM)has123 كتب : (19-12-20, 08:17 AM)وهل استطيع تحريك عجلة الماوس داخل الفورم لآنها لا تتحرك ؟ كتب : وجزاك الله خيرا
في الاداه flowlayoutpanel عطل الخاصيه wrapcontents وخلي الخاصيه flowdirection على topdoawn
ولو وضعت الكود اللي عندك حفيدك اكتر
منا فعلا عامل كدة أخى لكن النتيجة لم تتغير , انظر للفراغات التى باللون الاحمر
وبالنسبة للكود فهو هو اللى حضرتك كتبته هنا
المشاركات : 16
المواضيع 0
الإنتساب : Dec 2020
السمعة :
4
الشكر: 10
تم شكره 26 مرات في 12 مشاركات
(19-12-20, 03:53 PM)ابو روضة كتب : (19-12-20, 08:53 AM)has123 كتب : (19-12-20, 08:17 AM)وهل استطيع تحريك عجلة الماوس داخل الفورم لآنها لا تتحرك ؟ كتب : وجزاك الله خيرا
في الاداه flowlayoutpanel عطل الخاصيه wrapcontents وخلي الخاصيه flowdirection على topdoawn
ولو وضعت الكود اللي عندك حفيدك اكتر
منا فعلا عامل كدة أخى لكن النتيجة لم تتغير , انظر للفراغات التى باللون الاحمر
وبالنسبة للكود فهو هو اللى حضرتك كتبته هنا
طب جرب تغير zoom الى strechimage في السطر
pb.SizeMode = PictureBoxSizeMode.StretchImage
اذا الفراغات مرحتش
يبقى فيه شوائب في البيانات اللي عندك بتحجز مكان غير ظاهر
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3386
تم شكره 2456 مرات في 1124 مشاركات
(19-12-20, 03:59 PM)has123 كتب : طب جرب تغير zoom الى strechimage في السطر
pb.SizeMode = PictureBoxSizeMode.StretchImage
اذا الفراغات مرحتش
يبقى فيه شوائب في البيانات اللي عندك بتحجز مكان غير ظاهر
لا كدة تمام أخى فعلا ضبطت , بارك الله فيك
المشاركات : 224
المواضيع 47
الإنتساب : Aug 2014
السمعة :
14
الشكر: 183
تم شكره 261 مرات في 126 مشاركات
(19-12-20, 04:18 AM)has123 كتب : (18-12-20, 06:14 PM)ميدو الفنان كتب : السلام عليكم ورحمة الله وبركاته
من فترة عملت موضوع عن ازاي اضيف عدد معين من الصور والحمد لله تمت الحل وهذا هو الموضوع
http://vb4arb.com/vb/showthread.php?tid=36838
وافادوني الاخوة وساعدوني جدا وانا ممتن جدا لهم طلبي دلوقتي غريب شوية
الخاص بكود اخي ابو روضه حفظه الله وهذا هو الكود
كود :
Imports System.Text
Imports System.Text.RegularExpressions
Public Class Form1
Dim vu As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim url As String = "https://pastebin.com/raw/6au4aJGx"
Using wc As New Net.WebClient
wc.Encoding = Encoding.UTF8
Dim html As String = wc.DownloadString(url)
Dim str As String = "https.*?\.png"
Dim reg As New Regex(str)
Dim mc As MatchCollection = reg.Matches(html)
Dim ma As Match
For Each ma In mc
If ma.Success Then
Dim pb As New PictureBox
pb.SizeMode = PictureBoxSizeMode.Zoom
pb.Width = 250
pb.Height = 50
pb.ImageLocation = ma.Value
pb.Parent = Me.FlowLayoutPanel1
End If
Next
End Using
End Sub
End Class
فايدة هذا الكود انك لو ضفت كذا صورة تظهر في البرنامج بدون picturebox وعدم وضع حد للصور
طلبي بقا هو ازاي اخلي لكل صورة بضيفها رابط معين عند الضغط علي الصورة تنتقل لهذا الرابط لقد حاولت كثيرا ولكن دون جدوي للاسف وانا محتاج الكود ده جدا
انت بتقول بدون picturebox وعدم وضع حد للصور
ممكن توضح اين تريد وضع الصوره وبتقصد ايه ب حد للصور
حكايت ازاي اخلي لكل صورة بضيفها رابط معين عند الضغط علي الصورة تنتقل لهذا الرابط
هادى بسيطه بس نعرف الصور بتتحط فين زي مقلت (بدون picturebox) وهل الرابط هو رباط الصوره؟
PHP كود :
Imports System.Text Imports System.Text.RegularExpressions Public Class Form1 Dim vu As String
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim url As String = "https://pastebin.com/raw/6au4aJGx" Using wc As New Net.WebClient wc.Encoding = Encoding.UTF8 Dim html As String = wc.DownloadString(url) Dim str As String = "https.*?\.png" Dim reg As New Regex(str) Dim mc As MatchCollection = reg.Matches(html) Dim ma As Match For Each ma In mc If ma.Success Then Dim pb As New PictureBox pb.SizeMode = PictureBoxSizeMode.Zoom pb.Width = 250 pb.Height = 50 pb.ImageLocation = ma.Value pb.Parent = Me.FlowLayoutPanel1 AddHandler pb.Click, AddressOf pb_Click End If Next End Using End Sub
Private Sub pb_Click(sender As Object, e As EventArgs) Handles Button1.Click Process.Start(sender.ImageLocation) End Sub
End Class
شكرا لك اخي الكريم ولكن الكود يعطيني خطا عند الضغط علي button ماهو هذا الخطا
|