كود ل cut,copy الرجاء المساعدة

لنفرض بأنه عندك القائمة Edit إسمها menuEdit وتحتها قائمة فرعية لعملية ال Copy إسمها menuCopy وأفترض بأن عندك RichTextBox إسمه RichTextBox1، في حدث PopUp لقائمة Edit (وهو الحدث الذي ينطلق قبيل إسدال محتويات القائمة) أكتب ما يلي:

Private Sub menuEdit_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles menuEdit.Popup
        If RichTextBox1.SelectionLength <> 0 Then
            menuCopy.Enabled = True
        Else
            menuCopy.Enabled = False
        End If
    End Sub

وما ينطبق على ال Copy ينطبق على Cut، لقد قمت بعمل برنامج صغير لك جواباً على سؤال آخر قمت بطرحه وقمت بعمل هذه الأمر (وأيضاً قمت بعمل نفس الشيء لقائمة Paste) مع ملاحظة بأن المثال قمت بوضع TextBox وليس RichTextBox وتقريباً نفس المعالجة تتم للأداتين:

أنظر هنا:

/index.php?showtopic=51436