Foros del Web » Soporte técnico » Ofimática »

menú contextual en textbox

Estas en el tema de menú contextual en textbox en el foro de Ofimática en Foros del Web. Hola a todos, se me presentan dos dudas: tengo un archivo excel que controlo mediante un form donde se muestran y cambian los datos de ...
  #1 (permalink)  
Antiguo 17/11/2008, 05:01
 
Fecha de Ingreso: septiembre-2007
Ubicación: Badajoz City
Mensajes: 126
Antigüedad: 16 años, 7 meses
Puntos: 0
menú contextual en textbox

Hola a todos, se me presentan dos dudas:

tengo un archivo excel que controlo mediante un form donde se muestran y cambian los datos de la hoja mediante controles textbox's

y necesitaría 2 cosillas, espero que puedan ayudarme:

1.- que los textos que se seleccionen dentro de un textbox puedan copiarse con click derecho-> copiar (ahora mismo se pueden copiar con Ctrl+C, pero cuando le das al botón secundario no sale ningún menú

2.- en algunos de los textbox salen direcciones de correo electrónico, ¿se le ocurre a alguien cómo puedo hacer para que se abra el editor de correo para mandar un email a la dirección del textbox?

Muchas gracias por adelantado.
  #2 (permalink)  
Antiguo 17/11/2008, 09:32
Avatar de David
Moderador
 
Fecha de Ingreso: abril-2005
Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 19 años
Puntos: 839
Respuesta: menú contextual en textbox

Para la segunda pregunta: puedes usar ShellExecute:

http://www.forosdelweb.com/f69/envia...utlook-579912/
__________________
Por favor, antes de preguntar, revisa la Guía para realizar preguntas.
  #3 (permalink)  
Antiguo 18/11/2008, 01:52
 
Fecha de Ingreso: septiembre-2007
Ubicación: Badajoz City
Mensajes: 126
Antigüedad: 16 años, 7 meses
Puntos: 0
Respuesta: menú contextual en textbox

Una persona que sabe mucho me ha resuelto esta segunda pregunta.
Desde aquí le doy las gracias.

es así:
Cita:
Private Sub TextBox15_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Dim nFile As Long
Dim fil As String
nFile = FreeFile
fil = ThisWorkbook.Path
fil = fil + IIf(Right(fil, 1) <> "\", "\", "") + "temp.url"
Open fil For Output As #nFile
Print #nFile, "[InternetShortcut]"
direccion = "URL=mailto:" + TextBox15.Text
Print #nFile, direccion
Close #nFile
Shell "rundll32.exe shdocvw.dll,OpenURL " & fil, vbNormalFocus
Kill fil
On Error GoTo 0
End Sub
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 10:53.