vb6,richTextBox右键弹出菜单问题

自己做一个就好了  

  //右键弹出菜单；  

  private   void   contextMenu1_Popup(object   sender,   System.EventArgs   e)  

  {  

  if(Clipboard.GetDataObject().GetDataPresent(DataFormats.Text)   ==   true)  

  {  

  this.menuItem3.Enabled=true;  

  }  

  else  

  {  

  this.menuItem3.Enabled=false;  

  }  

   

  if(this.richTextBox2.SelectedText.Length>0)  

  {  

  this.menuItem1.Enabled=true;  

  this.menuItem2.Enabled=true;  

  }  

  else  

  {  

  this.menuItem1.Enabled=false;  

  this.menuItem2.Enabled=false;  

  }  

   

  if(this.richTextBox2.CanUndo   ==   true)  

  {  

  this.menuItem4.Enabled=true;  

  }  

  else  

  {  

  this.menuItem4.Enabled=false;  

  }  

  }  

                  //复制；  

  private   void   menuItem1_Click(object   sender,   System.EventArgs   e)  

  {  

  this.richTextBox2.Copy();  

  }  

  //剪切；  

  private   void   menuItem2_Click(object   sender,   System.EventArgs   e)  

  {  

  this.richTextBox2.Cut();  

  }  

  //粘贴；  

  private   void   menuItem3_Click(object   sender,   System.EventArgs   e)  

  {  

  this.richTextBox2.Paste();  

  }  

  //撤消；  

  private   void   menuItem4_Click(object   sender,   System.EventArgs   e)  

  {  

  this.richTextBox2.Undo();  

  this.richTextBox2.ClearUndo();  

  }  

  //全选；  

  private   void   menuItem7_Click(object   sender,   System.EventArgs   e)  

  {  

  this.richTextBox2.SelectAll();        

  }