منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] التعديل علي كود عرض الصور وفتح الروابط الخاصه بالصور - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] التعديل علي كود عرض الصور وفتح الروابط الخاصه بالصور (/showthread.php?tid=37222)

الصفحات: 1 2 3


RE: التعديل علي كود عرض الصور وفتح الروابط الخاصه بالصور - has123 - 20-12-20

(19-12-20, 09:40 PM)ميدو الفنان كتب :
(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 ObjectAs EventArgsHandles 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
.ClickAddressOf pb_Click
                End 
If
 
           Next
        End Using
    End Sub

    Private Sub pb_Click
(sender As ObjectAs EventArgs)
 
       Process.Start(sender.ImageLocation)
 
   End Sub

End 
Class 
شكرا لك اخي الكريم ولكن الكود يعطيني خطا عند الضغط علي button ماهو هذا الخطا

رجعت نسخت الكود وشغلته ولم يحدث خطا مع حذف الجزء Handles Button1.Click ومحصلش خطا

الا ادا كان اللي عندك كود مختلف دا شي تاني!


RE: التعديل علي كود عرض الصور وفتح الروابط الخاصه بالصور - ابو روضة - 20-12-20

(20-12-20, 03:38 AM)has123 كتب : رجعت نسخت الكود وشغلته ولم يحدث خطا مع حذف الجزء Handles Button1.Click ومحصلش خطا

الا ادا كان اللي عندك كود مختلف دا شي تاني!

وشغال عندى تمام



RE: التعديل علي كود عرض الصور وفتح الروابط الخاصه بالصور - ميدو الفنان - 20-12-20

(20-12-20, 03:38 AM)has123 كتب :
(19-12-20, 09:40 PM)ميدو الفنان كتب :
(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 ObjectAs EventArgsHandles 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
.ClickAddressOf pb_Click
                End 
If
 
           Next
        End Using
    End Sub

    Private Sub pb_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Process
.Start(sender.ImageLocation)
 
   End Sub

End 
Class 
شكرا لك اخي الكريم ولكن الكود يعطيني خطا عند الضغط علي button ماهو هذا الخطا

رجعت نسخت الكود وشغلته ولم يحدث خطا مع حذف الجزء Handles Button1.Click ومحصلش خطا

الا ادا كان اللي عندك كود مختلف دا شي تاني!
هذه صورة الخطا اخي 

لما بضغط علي button بيجبلي الخطا ده


RE: التعديل علي كود عرض الصور وفتح الروابط الخاصه بالصور - asemshahen5 - 21-12-20

PHP كود :
   Private Sub pb_Click(sender As ObjectAs EventArgs)
 
       Dim img As PictureBox CType(senderPictureBox)
 
       Process.Start(img.ImageLocation)
 
   End Sub 



RE: التعديل علي كود عرض الصور وفتح الروابط الخاصه بالصور - ابو روضة - 21-12-20

(20-12-20, 09:46 PM)ميدو الفنان كتب : لما بضغط علي button بيجبلي الخطا ده


كانت تفعل معى هذا الخطأ أخى واستخدمت معها جملة try
وإنحلت المشكلة وأختفى الخطأ...



RE: التعديل علي كود عرض الصور وفتح الروابط الخاصه بالصور - has123 - 21-12-20

استاذي ابو روضه

يكفي حذف Handles Button1.Click كما فعل استاذي عاصم
فقد نسيته وهذا الخطا مني من البدايه


RE: التعديل علي كود عرض الصور وفتح الروابط الخاصه بالصور - ميدو الفنان - 21-12-20

(21-12-20, 01:03 AM)asemshahen5 كتب :
PHP كود :
   Private Sub pb_Click(sender As ObjectAs EventArgs)
 
       Dim img As PictureBox CType(senderPictureBox)
 
       Process.Start(img.ImageLocation)
 
   End Sub 

فعلا انحلت شكرا لك اخي الكريم
لكن سؤال بسيط هل يمكن تغير هذا الرابط يعني مش عاوزه مثلا يفتح رابط الصورة عاوزه يفتح رابط معين انا احدده هل ينفع ذلك


RE: التعديل علي كود عرض الصور وفتح الروابط الخاصه بالصور - asemshahen5 - 22-12-20

اضف خاصية جديدة للصورة و لتكن UrlWeb و عبئها بالعنوان الذي تريده .


RE: التعديل علي كود عرض الصور وفتح الروابط الخاصه بالصور - ميدو الفنان - 22-12-20

(22-12-20, 08:07 PM)asemshahen5 كتب : اضف خاصية جديدة للصورة و لتكن UrlWeb و عبئها بالعنوان الذي تريده .

كيف ذلك للاسف لم افهم شئ


RE: التعديل علي كود عرض الصور وفتح الروابط الخاصه بالصور - asemshahen5 - 23-12-20

PHP كود :
Public Class PictureBoxXT
    Inherits System
.Windows.Forms.PictureBox 
    Private UrlWebXT 
As String
    Public Property UrlWeb
() As String
        Get
            Return UrlWebXT
        End Get
        Set
(ByVal value As String)
 
           UrlWebXT value
        End Set
    End Property
End 
Class 

أضف كلاس جديدة للمشروع و سمها PictureBoxXT و اكتب فيها الكود اعلاه و اعمل ريبلد للمشروع و ستجد الاداة الجديدة في صندوق الادوات و فيها خاصية جديدة من نوع سترنغ باسم UrlWeb و الله الموفق .

و جرب هذا على مثالك أو على مشروع جديد لا تضع في النافذة سوى فلو بانل و اكتب الاكواد التالية :

PHP كود :
   Dim vu As String
    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles 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
            Dim x 
As String ""
 
           Dim i As Integer 0
            For Each ma In mc
                i 
+= 1
                x 
" الصورة رقم " i
                If ma
.Success Then
                    Dim pb 
As New PictureBoxXT
                    pb
.SizeMode PictureBoxSizeMode.Zoom
                    pb
.Width 250
                    pb
.Height 50
                    pb
.ImageLocation ma.Value
                    pb
.UrlWeb x
                    pb
.Parent Me.FlowLayoutPanel1
                    AddHandler pb
.ClickAddressOf pb_Click
                End 
If
 
           Next
        End Using
    End Sub
    Private Sub pb_Click
(sender As ObjectAs EventArgs)
 
       Dim img As PictureBoxXT CType(senderPictureBoxXT)
 
       'Process.Start(img.ImageLocation)
        MsgBox(img.UrlWeb & " - " & img.ImageLocation)
    End Sub