منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

مرحبا اخى

تفضل التعديل
الرقم صفر هو رقم العمود الاول وغيره اذا مكان الربط في عمود مخلتف
مثلا العمود التاني رقم 1 وهكذا لان الاعمده تبدا من رقم صفر

(17-08-17, 02:10 PM)أبو نوره كتب : [ -> ]مرحبا اخى

تفضل التعديل
الرقم صفر هو رقم العمود الاول وغيره اذا مكان الربط في عمود مخلتف
مثلا العمود التاني رقم 1 وهكذا لان الاعمده تبدا من رقم صفر

PHP كود :

WindowsMediaPlayer1.URL = DataGridView1.CurrentRow.Cells(0).Value.ToString 


(17-08-17, 02:40 PM)سعود كتب : [ -> ]أخي الكريم ابو روضة
مافيه داعي تضيف الروابط ممكن تضعها ضمن قائمة نصية

كود :

Dim links As New List(Of String)

شوف شرح بسيط

كود :

Public Class Form1
   Dim links As New List(Of String)
   Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
       MsgBox(links(e.RowIndex))
   End Sub
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.DataGridView1.Rows.Add("فيجوال بيسك لكل العرب")
       links.Add("https://vb4arb.com")
       Me.DataGridView1.Rows.Add("فيجوال بيسك لغير العرب")
       links.Add("http://vb4nonarb.com")
   End Sub
End Class

طبعا مش معقول انك تكتب كل الروابط يدويا!!
ممكن تستخدم اكواد مثل Regex    او  HtmlAgilityPack.dll

---

شوف هذا مثال سويته على السريع عند نقر اي عنوان يتم اظهار رسالة مكتوب بها الرابط

والتالي كل الكلاس

كود :

Imports System.Net
Imports System.Text
Imports System.Text.RegularExpressions

Public Class Form1
    Dim links As New List(Of String)
    Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        MsgBox(links(e.RowIndex))
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim html As String = ""
        Dim url As String = "https://vb4arb.com/vb/forumdisplay.php?fid=183"
        Dim wc As New WebClient
        wc.Encoding = Encoding.UTF8
        html = wc.DownloadString(url)
        html = WebUtility.HtmlDecode(html) '<a href="showthread.php?tid=21415">تشغيل مادة صوتية من خلال DataGridView</a>
        Dim doc As New HtmlAgilityPack.HtmlDocument
        doc.LoadHtml(html)
        For Each h As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//a[@href]")
            If h.Attributes("href").Value.ToString.ToLower.Contains("showthread.php?tid=") = True And h.Attributes("href").Value.ToString.ToLower.Contains("last") = False Then
                If h.InnerText.Trim.Replace(" ", "") <> "" Then
                    If links.Contains(h.Attributes("href").Value.ToString) = False Then
                        If Val(h.InnerText) = 0 Then
                            links.Add(h.Attributes("href").Value)
                            Me.DataGridView1.Rows.Add(h.InnerText.Trim)
                        End If

                    End If

                End If

            End If

        Next

    End Sub
End Class

---

المثال مرفق
  الحل البسيط لمشاكل اختلاف الاصدار للمشاريع البسيطة     

ربنا يزيدك من علمه