أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





انشاء تكست بوكس يدعم الضغط كليك يمين

السلام عليكم ورحمة الله وبركاتة هل من الممكن تصميم تكست بوكس في يوزر فورم vba اكسيل يقبل الضغط بزر الفأرة الايمن بحيث ..



22-04-2020 12:34 صباحا
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 

السلام عليكم ورحمة الله وبركاتة 
هل من الممكن تصميم تكست بوكس في يوزر فورم vba اكسيل يقبل الضغط بزر الفأرة الايمن 
بحيث استطيع نسخ النص من علية او قص و لصق النص بدلا من الكيبورد 

22-04-2020 10:40 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif انشاء تكست بوكس يدعم الضغط كليك يمين
وعليكم السلام أخي الكريم فتحي
نعم يمكن عمل ذلك لكن الموضوع متقدم وسيحتاج إلى Class Module والأمر معقد كثيراً بالنسبة للمطلوب .. لكن سأضع الإجابة رغم أنني غير مقتنع بالحاجة لمثل تلك الأمور

قم بإنشاء Class Module وليس موديول عادي ..
قم بتمسية الكلاس clsBar
وضع الكود التالي
Private cmdBar As CommandBar
Private WithEvents cmdCopyButton As CommandBarButton
Private WithEvents cmdPasteButton As CommandBarButton

Private fmUserform As Object
Private colControls As Collection
Private WithEvents tbControl As MSForms.TextBox

Sub Initialize(ByVal UF As Object)
    Dim ctl As MSForms.Control, cBar As clsBar
    For Each ctl In UF.Controls
        If TypeName(ctl) = "TextBox" Then
            If colControls Is Nothing Then
                Set colControls = New Collection
                Set fmUserform = UF
                CreateBar
            End If
          
            Set cBar = New clsBar
            cBar.AssignControl ctl, cmdBar
            colControls.Add cBar
        End If
    Next ctl
End Sub
  
Private Sub Class_Terminate()
    On Error Resume Next
        cmdBar.Delete
    On Error GoTo 0
End Sub
 
Private Sub cmdCopyButton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
    fmUserform.ActiveControl.Copy
    CancelDefault = True
End Sub
 
Private Sub cmdPasteButton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
    fmUserform.ActiveControl.Paste
    CancelDefault = True
End Sub
 
Private Sub tbControl_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Button = 2 And Shift = 0 Then cmdBar.ShowPopup
End Sub
 
Private Sub CreateBar()
    Set cmdBar = Application.CommandBars.Add(, msoBarPopup, False, True)
    Set cmdCopyButton = cmdBar.Controls.Add(ID:=19)
    Set cmdPasteButton = cmdBar.Controls.Add(ID:=22)
End Sub
 
Sub AssignControl(TB As MSForms.TextBox, Bar As CommandBar)
    Set tbControl = TB
    Set cmdBar = Bar
End Sub


ثم في موديول الفورم ضع الكود التالي
'In UserForm Module
'------------------
Dim cBar As clsBar

Private Sub UserForm_Initialize()
    Set cBar = New clsBar
    cBar.Initialize Me
End Sub

22-04-2020 09:16 مساء
مشاهدة مشاركة منفردة [2]
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 
look/images/icons/i1.gif انشاء تكست بوكس يدعم الضغط كليك يمين
اشكرك جدا يا استاذ ياسر انا عارف لية مش مقتنع بيها عشان في تحكم من الكيبورد و عشان خطوتها كتيرة من رغم المطلوب بسيط بس تنفيذة معقد فعلا بس الفكرة كلها عشان نتعامل بالماوس بدلا من الكيبورد
انا دورت في كل حتة مواقع اجنبية و عربية ومش لاقي الفكرة دي خالص بس حضرتك تسلم ايدك وربما يزيدك علم 
تسلم بجد الكود شغال تمام جدا وممتاز جدا 

22-04-2020 10:18 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif انشاء تكست بوكس يدعم الضغط كليك يمين
الحمد لله تمام بس الفكرة ليست لي والفكرة نتيجة بحث عن الموضوع .. دور عليه تلقاه دور عليه دور smile

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

23-04-2020 03:31 مساء
مشاهدة مشاركة منفردة [4]
ashraf_hertlion
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 262
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 14
يتابعونه : 1
قوة السمعة : 329
 offline 
look/images/icons/i1.gif انشاء تكست بوكس يدعم الضغط كليك يمين
الله عليك وتسلم ايديدك الكبير كبير يا استاذ / ياسر خليل
كود ولا اروع من كدة
وكل عام وجميع اساتذتنا واحبابنا فى هذا الصرح الكبير بخير وتقبل من صيام شهر رمضان الكريم 142

23-04-2020 05:27 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif انشاء تكست بوكس يدعم الضغط كليك يمين
الأروع هو مرورك العطر أخي الكريم أشرف وكل عام وأنت بخير




الكلمات الدلالية
انشاء ، تكست ، بوكس ، يدعم ، الغط ، كليك ، يمين ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:43 مساء