[ابو روضة]

(12-10-17, 01:05 PM)silverlight كتب :

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)

End If 


'طبعا قبل تنفيذ الكود أعلاه يجب أن تنسخ اللينك الي Clipboard

PHP كود :

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


أيضا لتضع في اعتبارك أن جميع البرامج تستخدم Clipboard
لذلك عليك ن تتأكد أن ما ستعود به من Clipboard هو Valid link
ممكن مثلا تستخدم
If result.StartsWith("https://www.youtube

جزاك الله كل خير اخى بس انا كدة اتكعبلت معاك لآن الأكواد بتاعة حضرتك متفرقة ومش عارف احط ده فين 

والاخر فين هههه...أقصد هو كود استاذ احمد شغال تمام وبينسخ لكنى اريد انبثاق الفورم امامى عند نسخ

أى رابط يوتيوب