[احمد مهران]

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

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


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

لا يا اخي بنفذ الامر مرة واحدة
لما بسيب MsgBox(aa.Message)
الكود بيشتغل  بس بيظهر الرساله دي
Requested clipboard operation not succeed
لما بحذف MsgBox(aa.Message) الكود بيتوقف
مش بيقبل البيست اصلا
يعني بعمل كوبي واجى اعمل بيست مش بيشتغل اصلا

وده الكود كامل من الفروم

كود :

Public Class Form1





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

Public Class Form1





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


        Dim T As New Threading.Thread(Sub()
                                          While True
                                              Try
                                                  If Clipboard.GetText().Length = 34 Then
                                                      Clipboard.SetText("النص البديل")
                                                  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

الطلب الثاني يحتاج شرح حول كيفية تغيير النص.
تغير النص اقصد كل مره اعمل فيها كوبي للنص المكون من 34 يتغير فيها بكود اخر يعني مثلا لما اعمل كوبي لى If Clipboard.GetText().Length = 34 Then

فى كل مره اعمل بيست يظهر
النص البديل بس كل مره اعمل بيست النص الي هنا  Clipboard.SetText("النص البديل") يتغير
يعني مثلا يبقي
 Clipboard.SetText("1   البديل")
 Clipboard.SetText("2   البديل")
 Clipboard.SetText("3   البديل")
 Clipboard.SetText("4   البديل")
كل بيست بنص مختلف