Accesos directos

Hola Barbaroja

Crear un acceso directo dentro de un formulario me parece un tanto extraño,
quizá te refieres a crear desde código vb un acceso directo en el escritorio
de Windows, que apunte a tu aplicación, por lo que si es este último caso, lo
que necesitas es agregar a tu proyecto una referencia al componente COM
"Windows Script Host Object Model", que es el encargado de proporcionar
objetos de las clases IWshShell_Class y IWshShortcut, mediante las cuales
crearemos un acceso directo por código.

En primer lugar debemos importar el espacio de nombres del componente
referenciado: IWshRuntimeLibrary. A continuación, por ejemplo, en el código
de un botón, obtenemos la ruta del escritorio de Windows utilizando el objeto
My:

My.Computer.FileSystem.SpecialDirectories.Desktop

Después de crear los objetos IWshShell_Class y IWshShortcut, creamos el
acceso directo y le asignamos propiedades. Por último grabamos los valores
del acceso directo, y ya podremos verlo en nuestro escritorio.

Te adjunto a continuación un bloque de código con un ejemplo que crea un
acceso directo hacia la propia aplicación que se está ejecutando.

'///////////////////////////////////////
Imports IWshRuntimeLibrary

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim sRutaEscritorio As String
sRutaEscritorio = My.Computer.FileSystem.SpecialDirectories.Desktop

Dim oEntornoWin As IWshShell_Class
oEntornoWin = New IWshShell_Class()

Dim oAccesoDirecto As IWshShortcut
oAccesoDirecto = CType(oEntornoWin.CreateShortcut(sRutaEscritorio &
"\EntradaApp.lnk"), _
IWshShortcut)

oAccesoDirecto.TargetPath =
Reflection.Assembly.GetExecutingAssembly().Location
oAccesoDirecto.WindowStyle = 1
oAccesoDirecto.Description = "Prueba creación acceso directo"
oAccesoDirecto.WorkingDirectory = sRutaEscritorio
oAccesoDirecto.IconLocation =
Reflection.Assembly.GetExecutingAssembly().Location
oAccesoDirecto.Save()
End Sub
End Class
'///////////////////////////////////////

Espero que sea esto lo que necesitas.
Un saludo
Luis Miguel Blanco
http://www.dotnetmania.com


"Barbaroja" wrote:

Alguien sabe como en vb.net puedo crear en un formulario un icono que me haga
de acceso directo a un formulario de mi proyecto y que ese acceso directo se
guarde para siempre en mi aplicación. Gracias.