18-12-20, 06:14 PM
السلام عليكم ورحمة الله وبركاته
من فترة عملت موضوع عن ازاي اضيف عدد معين من الصور والحمد لله تمت الحل وهذا هو الموضوع
http://vb4arb.com/vb/showthread.php?tid=36838
وافادوني الاخوة وساعدوني جدا وانا ممتن جدا لهم طلبي دلوقتي غريب شوية
الخاص بكود اخي ابو روضه حفظه الله وهذا هو الكود
فايدة هذا الكود انك لو ضفت كذا صورة تظهر في البرنامج بدون picturebox وعدم وضع حد للصور
طلبي بقا هو ازاي اخلي لكل صورة بضيفها رابط معين عند الضغط علي الصورة تنتقل لهذا الرابط لقد حاولت كثيرا ولكن دون جدوي للاسف وانا محتاج الكود ده جدا
من فترة عملت موضوع عن ازاي اضيف عدد معين من الصور والحمد لله تمت الحل وهذا هو الموضوع
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طلبي بقا هو ازاي اخلي لكل صورة بضيفها رابط معين عند الضغط علي الصورة تنتقل لهذا الرابط لقد حاولت كثيرا ولكن دون جدوي للاسف وانا محتاج الكود ده جدا
