(16-02-17, 08:53 PM)مساعدة كتب : السلام عليكم

قمت بتجربة الكود وهو يعمل جيداً، ولكن يبدو أنك لم تقم بتنفيذة مرة واحدة، ضعه في الحدث Form1_Load
ألغ سطر الرسالة.


الطلب الثاني يحتاج شرح حول كيفية تغيير النص.

(17-02-17, 12:09 AM)مساعدة كتب : بخصوص رسالة الخطأ لم تظهر لدي،

ولكن في بعض المواقع اتجهوا الى استخدام SetDataObject بدل SetText

---

جرب هذا الكود

كود :

Clipboard.SetDataObject("النص البديل", True, 1, 1)

(17-02-17, 02:51 AM)مساعدة كتب : ليس عندي مشروع، فقط استخدمت الكود الذي منك في المشاركة #3 على مشروع جديد فاضي فقط وضعت الكود كما هو واشتغل عندي بدون مشكلة،

لا أدري هل يكون السبب برنامج الحماية مثلا، لا أستطيع التأكد!

أعتذر منك استاذ احمد مهران،
اتمنى من بقية الأعضاء أن يجربوا الكود، فقد تظهر لهم الرسالة ويعرفوا سببها ويضعوا الحل.

(17-02-17, 07:21 PM)أسامة السالمي كتب : الكود يعمل بشكل جيد،
أما بالنسبة لطلبك بتغيير النص البديل عند كل مره، فهذا الكود بعد التعديل :

PHP كود :

Public Class Form1
    Dim o As Integer = 1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Dim T As New Threading.Thread(Sub()

                                          While True
                                              Try
                                                  If Clipboard.GetText().Length = 34 Then
                                                      If o = 1 Then
                                                          Clipboard.SetText("النص البديل 1")
                                                          o = 2
                                                      ElseIf o = 2 Then
                                                          Clipboard.SetText("النص البديل 2")
                                                          o = 3
                                                      ElseIf o = 3 Then
                                                          Clipboard.SetText("النص البديل 3")
                                                          o = 4
                                                      ElseIf o = 4 Then
                                                          Clipboard.SetText("النص البديل 4")
                                                          o = 5
                                                      ElseIf o = 5 Then
                                                          Clipboard.SetText("النص البديل 5")
                                                          o = 1
                                                      End If
                                                  End If
                                                  Threading.Thread.Sleep(50)
                                              Catch aa As Exception
                                                  MsgBox(aa.Message)
                                              End Try

                                          End While
                                      End Sub) With {.IsBackground = True} : T.SetApartmentState(Threading.ApartmentState.STA) : T.Start()

    End Sub
End Class