Eliminar opciones del menú popup

[ci2000]

Hola, quiero que el usuario al presionar el botón derecho del ratón dentro de un TextBox tenga únicamente habilitada la opción Copiar. No sé cómo anular las otras opciones.

Desde ya muchas gracias por las respuestas.
Saludos

[f_visualbasic]

Hola:
Ya probé con un textbox, y no se puede, alomejor, buscando más lo encontrás (usando un API, o algo así).
Yo te propongo que en vez de usar un textbox, uses un richtextbox (Proyecto>Componentes>Microsoft Rich TextBox Control 6.0), con un height de 300, para que quede casi igual que un textbox común.
Luego en el código debes poner:

Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
PopupMenu mnuCopiar
End If
End Sub

P.D: para que esto funcione, debes hacer un menú con el nombre mnuCopiar y que sea invisible, y ahí agregas los items que quieras

[antonio2005pe]

Iniciado por f_visualbasic

Hola:
Ya probé con un textbox, y no se puede, alomejor, buscando más lo encontrás (usando un API, o algo así).
Yo te propongo que en vez de usar un textbox, uses un richtextbox (Proyecto>Componentes>Microsoft Rich TextBox Control 6.0), con un height de 300, para que quede casi igual que un textbox común.
Luego en el código debes poner:

Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
PopupMenu mnuCopiar
End If
End Sub

P.D: para que esto funcione, debes hacer un menú con el nombre mnuCopiar y que sea invisible, y ahí agregas los items que quieras

No Kedaria Mejor En El Evento Mouseup?

[ci2000]

Gracias f visualbasic por la respuesta. Encontré cómo hacerlo con un TextBox

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Button = 2 Then
Text1.Enabled = False
PopupMenu MiMenu
Text1.Enabled = True
Text1.SetFocus
End If
End Sub

Saludos