Título: Ayuda con parte de codigo(solucionado) Publicado por: pedraosone en 20 Julio 2009, 03:48 am Hola amigos, nesesito alguien me resuelva una duda al respecto de una aplicacion que ando creando la cual consta de que cuando pulse un boton este cambie el fondo del escritorio por una imagen que se encuentra donde mismo esta el ejecutable en si pero resulta que el ejecutable estara en un cd ya la hora de indicar la ruta le podria decir:
D:\carpeta\imagen.bmp pero y si la unidad de cd no es la D el codigo que actualmente tengo para el boton es el siguiente: Private Sub Command1_Click() Dim FileName As String Dim X As Long 'Usa aquí el bitmap que quieres usar FileName = "c:\windows\imagen.bmp" X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, _ SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE) MsgBox "Fondo de escritorio cambiado" End Sub es un trozo de codigo que encontre buscando pero lo que nesesito es que en lugar de C me aparezca la ruta del cd donde esta el programa puesto que la imagen y el programa iran en el mismo directorio gracias por cualquier consejo. Título: Re: Ayuda con parte de codigo Publicado por: Dessa en 20 Julio 2009, 04:09 am FileName = App.Path + "\imagen.bmp"
S2 Título: Re: Ayuda con parte de codigo Publicado por: fede_cp en 20 Julio 2009, 04:10 am si lo que deseas es saber donde esta el ejecutable, osea el directorio podrias usar app.path
ej: Private Sub command1_click() text1.text = App.Path End Sub en este ejemplo te estaria dando en el text1.text el directorio donde esta guardado el ejecutable espero haberte ayudado! :D saludos Título: Re: Ayuda con parte de codigo Publicado por: fede_cp en 20 Julio 2009, 04:11 am contestamos al mismo tiempo ::) ajja
saludos Título: Re: Ayuda con parte de codigo Publicado por: Dessa en 20 Julio 2009, 04:14 am ;)
Título: Re: Ayuda con parte de codigo Publicado por: pedraosone en 20 Julio 2009, 04:15 am Muchas gracias a ambos creo que eso es lo que nesesitaba. ya con eso creo que podre dejar mi pequeña aplicacion lista nuevamente muchas gracias.
Título: Re: Ayuda con parte de codigo Publicado por: fede_cp en 20 Julio 2009, 04:19 am FileName = App.Path + "\imagen.bmp" S2 lo unico que le modificaría es el "+" por "&"quedando asi: Código
Título: Re: Ayuda con parte de codigo Publicado por: Dessa en 20 Julio 2009, 05:30 am Yo para dos strings uso el "+" porque tengo la tecla mas cerca ...
Título: Re: Ayuda con parte de codigo Publicado por: seba123neo en 20 Julio 2009, 05:32 am Yo para dos strings uso el "+" porque tengo la tecla mas cerca ... jaja ::) |