duda sobre boton derecho!(del mouse)

[Fhaker]

como hago para q cuando sbre cualkier archivo *.txt se oprima el boton derecho, en la barra de opciones se muestre "editar con mi programa" por ejemplo¿?¿?...es posible desde VB¿?

y estoy hablando de fuera del programa...es decir si en el escritorio un archivo "archivo.txt" le hago clik derecho y me aparece eso...como le hago¿? :-p

[Cheatmaster]

m.. el codigo fuente no lose xD ya que no soi un experto PERo te digo algo..

pones el Form1.hide O me.hide,

El presskey (Mousebotton=right) CREO QUE ERA..

tambien M.. el tipico MSG ( mensajebox ) con el sonido de error " vbCritical "

Y weno lo demas los expertos xDD yo sinceramente creo que solo YO no podria hacerlo.. xDD

[tragantras]

en la propiedad mouse_down del form

if button = 2 then
lo k kieras k haga
end if

creo k es

[zXxOsirisxXz]

Ehhh, creo k el no se refiere a eso..

El se refiere a agregar un programa k el cree a por ejemplo:


[Open                     ]
[Print                      ]
[Edit                       ]
[______________]
[NOD Antivirus       ]
[______________]
[Open With..         ]
[Add To Archve..    ]
[Add to "My Programa"]

en cuanto se le de a right click con el mouse..

Salu2

O.. y no tengo idea

[Fhaker]

extacto!

[crypto136]

Agrega 1 control Webbrowser y 1 command sin cambiarles el nombre y reemplazas este code:

Código:

'***************************************************************************
'*  Controles :     Agregar un control WebBrowser y un Command1
'***************************************************************************

Private Sub Command1_Click()

'variable de tipo object para leer y crear claves _
 en el registro medianet windows scripting Host

Dim obj As Object

'Para la ruta de nuestra aplicacion
Dim ruta As String

'seteamos la variable y creamos el objeto
Set obj = CreateObject("WScript.Shell")

'Leemos el valor predeterminado de la clave .html
Resultado = obj.RegRead("HKEY_CLASSES_ROOT\.html\")

'Resultado ahora contiene el valor htmlFile
'Sabiendo ese valor nos posicionamos en dicha clave y creamos
'una nueva shell, dentro de Shell otra llamada por ejemplo miPrograma
'y agregamos como valor predeterminado el texto que va a aparecer cuando
'le demos click derecho sobre un archivo con extencion .html o .htm
obj.RegWrite "HKEY_CLASSES_ROOT\" & Resultado & "\Shell\MiNavegador\", _
             "Abrir con MiNavegador"

'Ruta de nuestro exe
ruta = App.Path & "\" & App.EXEName & ".exe"

'Ahora dentro de la clave que creamos que quedó de esta manera:
'"HKEY_CLASSES_ROOT\htmlfile\shell\MiNavegador\command" y agregamos la ruta mas el %1
obj.RegWrite "HKEY_CLASSES_ROOT\" & Resultado & "\Shell\MiNavegador\command\", _
             """" & ruta & """" & " " & "%1"

'Eliminamos la variable de objeto
Set obj = Nothing
'Nota: si queremos que nuestra aplicacion sea la predeterminada _
 hay que establecer la ruta de nuestro exe en esta clave: _
 --->> HKEY_CLASSES_ROOT\htmlfile\shell\open\command
 
 MsgBox "Ahora hacer click derecho sobre un archivo htm para abrirlo", vbInformation
 
End Sub

Private Sub Form_Load()

'Cuando se inicia el form cargará la página pasada desde la linea de comandos

WebBrowser1.Navigate Command$

Command1.Caption = " Asociar Extensión Htm "

End Sub

Fuente:
Para ver este enlace Registrate o Inicia Sesion

www.recursosvi sualbasic.com. ar