[ابو روضة]

(12-10-17, 01:52 PM)silverlight كتب : عندما تقوم بنسخ اللينك مباشرة تقوم بتنفيا الأتي :

PHP كود :

Dim link As String = "Your Link"
Clipboard.SetDataObject(link) 


ثم الأتي :

PHP كود :

Dim result As String = String.Empty
Dim iData As IDataObject = Clipboard.GetDataObject()
If iData.GetDataPresent(DataFormats.Text) Then
result += CType(iData.GetData(DataFormats.Text), String) 


ثم تتأكد أن Result او ٍString الناتج ليس Nothing و أيضا يبدأ بالكلمة "https://www.youtube"
فإن كان Ture تقوم بتمرير Result الي التكست بوكس

---

علي فكرة انت لا تحتاج أن تستخدم clipboard
lمثلا بعد نسخ اللينك مباشرة تقوم بحفظها في ملف مؤقت علي فهرس المشروع
ثم تستدعيها من الملف حين تحتاجها

ايوه صح اخى هذا ما كنت ابحث عنه وتم الحمدلله

جزاك الله كل خير

---

(12-10-17, 02:11 PM)a.ahmed كتب :

PHP كود :

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    SetClipboardViewer(Me.Handle)
End Sub

<Runtime.InteropServices.DllImport("User32.dll")> _
Public Shared Function SetClipboardViewer(ByVal hWndNewViewer As IntPtr) As IntPtr
End Function
Protected Overrides Sub WndProc(ByRef m As Message)
    If m.Msg = &H308 Then
        Me.TextBox1.Clear()
        If Clipboard.GetText.Trim.StartsWith("https://www.youtube.com/watch?v=") Then
            Me.TextBox1.Text = Clipboard.GetText
            Me.WindowState = FormWindowState.Normal
            Me.Activate()
        End If
    End If
    MyBase.WndProc(m)
End Sub 


بارك الله فيك اخى الكريم احمد وجزاك كل الخيرات