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

وعليكم السلام ،،

يكون برنامج شغال في الخلفية وتعمل تايمر يراقب الحافظة (clipboard)
اذا فيها بيانات اظهر برنامج وضع المؤشر في التكست بوكس ومن ثم يلصق النص الموجود في الحافظة داخل التكست .

(12-10-17, 04:49 AM)حريف برمجة كتب : [ -> ]وعليكم السلام ،،

يكون برنامج شغال في الخلفية وتعمل تايمر يراقب الحافظة (clipboard)
اذا فيها بيانات اظهر برنامج وضع المؤشر في التكست بوكس ومن ثم يلصق النص الموجود في الحافظة داخل التكست .

---

(12-10-17, 05:01 AM)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
        End If
    End If
    MyBase.WndProc(m)
End Sub 


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


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

(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

عندما تقوم بنسخ اللينك مباشرة تقوم بتنفيا الأتي :

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

---

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

(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