تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] طلب التعديل على كود If Clipboard.GetText
#1
السلام عليكم ورحمة الله وبركاتة

كيف الحال شباب
ان شاء الله بخير
زي ما فى العنوان
انا عندي  كود
وهوا

كود :
       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()


الكود يقوم بتعديل اى عمليه نسخ مكونة من 34 حرف الى نص بديل
المشكله
لما بعمل نسخ يظهر رساله مكتوب فيها
Requested clipboard operation not succeed

انا لا اريد ظهور الرساله دي
جربت اشيل 
MsgBox(aa.Message)

الكود مش بيشتغل

دي اول مشكله

الطلب الثاني عاوز اضيف اكثر من نص
  Clipboard.SetText("النص البديل")

فى كل مره اعمل بيست يتغير النص

اتمنا الاقي حل
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

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


الطلب الثاني يحتاج شرح حول كيفية تغيير النص.
الرد }}}
تم الشكر بواسطة: احمد مهران , أسامة السالمي
#3
(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   البديل")
كل بيست بنص مختلف
الرد }}}
تم الشكر بواسطة: أسامة السالمي
#4
بخصوص رسالة الخطأ لم تظهر لدي،

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

جرب هذا الكود
كود :
Clipboard.SetDataObject("النص البديل", True, 1, 1)
الرد }}}
تم الشكر بواسطة: أسامة السالمي
#5
(17-02-17, 12:09 AM)مساعدة كتب : بخصوص رسالة الخطأ لم تظهر لدي،

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

جرب هذا الكود
كود :
Clipboard.SetDataObject("النص البديل", True, 1, 1)

للاسف عند تغير الكود تظهر الرساله ولا يعمل الكود
طيب ممكن ترفق لي المشروع
الرد }}}
تم الشكر بواسطة:
#6
ليس عندي مشروع، فقط استخدمت الكود الذي منك في المشاركة #3 على مشروع جديد فاضي فقط وضعت الكود كما هو واشتغل عندي بدون مشكلة،

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

أعتذر منك استاذ احمد مهران،
اتمنى من بقية الأعضاء أن يجربوا الكود، فقد تظهر لهم الرسالة ويعرفوا سببها ويضعوا الحل.
الرد }}}
تم الشكر بواسطة: أسامة السالمي
#7
الكود يعمل بشكل جيد،
أما بالنسبة لطلبك بتغيير النص البديل عند كل مره، فهذا الكود بعد التعديل :

PHP كود :
Public Class Form1
    Dim o 
As Integer 1

    Private Sub Form1_Load
(sender As System.ObjectAs System.EventArgsHandles 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 SubWith {.IsBackground True} : T.SetApartmentState(Threading.ApartmentState.STA) : T.Start()

 
   End Sub
End 
Class 
الرد }}}
تم الشكر بواسطة:
#8
[attachment=13189]
(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.ObjectAs System.EventArgsHandles 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 SubWith {.IsBackground True} : T.SetApartmentState(Threading.ApartmentState.STA) : T.Start()

 
   End Sub
End 
Class 
اشكرك اخى على المساعده
لاكن عند التطبيق وعمل كوبي يظهر الرساله التاليه
ودي صوره الكود كامل




الملفات المرفقة صورة/صور
       
الرد }}}
تم الشكر بواسطة:
#9
جرب :

1- إغلاق جوجل كروم (اذا نجح الأمر فإن إعادة تشغيل جوجل كروم ستعيد المشكلة)
2- فتح إدارة المهام، والبحث عن (rdpclip.exe) تحت (Processes) وإيقافه. ثم، فتح مهمة جديدة وتشغيله مرة أخرى.



* الحلول من الانترنت ولا أعلم ان كانت قد تتسبب ببعض المشاكل
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 262 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] كود التعديل Abdellatif 6 391 21-12-23, 02:01 PM
آخر رد: Abdellatif
  كود التعديل لم ينجح معي melad2002 4 290 16-12-23, 12:22 AM
آخر رد: anes
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer
  اريد التعديل على كود اذا كان القيمة المدخلة مكررة بDataGridView يتم فقط زيادة العدد moh61 6 809 26-07-23, 10:41 AM
آخر رد: تركي الحلواني
  يرجي التعديل على المثال - تعبءة الكمبوبوكس داخل الجريد بانواع الوحدات new_programer 3 793 14-04-23, 05:31 PM
آخر رد: new_programer
  التعديل على مشروع ارتجال مشروع امتحانات مصمم هاوي 2 554 12-03-23, 06:48 PM
آخر رد: سعود
  التعديل على كود الحفظ مصمم هاوي 4 707 06-03-23, 12:12 AM
آخر رد: مصمم هاوي
  التعديل على كود زر RadioButton مصمم هاوي 2 576 21-11-22, 01:33 AM
آخر رد: مصمم هاوي
  خطاء في كود السورس اريد التعديل عليه wolf1120 1 536 10-11-22, 05:20 PM
آخر رد: عبدالله الدوسري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم