Autor
|
Tema: Ayuda con parte de codigo(solucionado) (Leído 2,499 veces)
|
pedraosone
Desconectado
Mensajes: 90
|
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.
|
|
« Última modificación: 21 Julio 2009, 14:19 pm por pedraosone »
|
En línea
|
|
|
|
Dessa
Desconectado
Mensajes: 624
|
FileName = App.Path + "\imagen.bmp"
S2
|
|
|
En línea
|
Adrian Desanti
|
|
|
fede_cp
Desconectado
Mensajes: 527
"porque pensar nunca fue entender"
|
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!  saludos
|
|
|
En línea
|
somos lo que hacemos para cambiar lo que somos
http://elhackerblog.blogspot.com el blog de elhacker.net!!
|
|
|
fede_cp
Desconectado
Mensajes: 527
"porque pensar nunca fue entender"
|
contestamos al mismo tiempo  ajja saludos
|
|
|
En línea
|
somos lo que hacemos para cambiar lo que somos
http://elhackerblog.blogspot.com el blog de elhacker.net!!
|
|
|
Dessa
Desconectado
Mensajes: 624
|
|
|
|
En línea
|
Adrian Desanti
|
|
|
pedraosone
Desconectado
Mensajes: 90
|
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.
|
|
|
En línea
|
|
|
|
fede_cp
Desconectado
Mensajes: 527
"porque pensar nunca fue entender"
|
FileName = App.Path + "\imagen.bmp"
S2
lo unico que le modificaría es el "+" por "&"quedando asi: FileName = App.Path & "\imagen.bmp"
|
|
|
En línea
|
somos lo que hacemos para cambiar lo que somos
http://elhackerblog.blogspot.com el blog de elhacker.net!!
|
|
|
Dessa
Desconectado
Mensajes: 624
|
Yo para dos strings uso el "+" porque tengo la tecla mas cerca ...
|
|
|
En línea
|
Adrian Desanti
|
|
|
seba123neo
|
Yo para dos strings uso el "+" porque tengo la tecla mas cerca ...
jaja 
|
|
|
En línea
|
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.
Neil deGrasse Tyson
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
(SOLUCIONADO SRC)Ayuda pasar codigo a VB.Net: Seriales Pen-Drives vb6
.NET (C#, VB.NET, ASP)
|
Maurice_Lupin
|
3
|
3,403
|
17 Noviembre 2011, 16:45 pm
por Maurice_Lupin
|
|
|
Roban parte del código de productos de Norton
Noticias
|
wolfbcn
|
0
|
1,103
|
7 Enero 2012, 02:11 am
por wolfbcn
|
|
|
Ayuda por un error en una parte de código en un Cliente - Servidor
Programación Visual Basic
|
luis carlos0510
|
0
|
1,443
|
30 Octubre 2013, 04:48 am
por luis carlos0510
|
|
|
Ayuda no entiendo esta parte del codigo, soy principiante
Programación C/C++
|
spiderboot
|
3
|
2,471
|
30 Enero 2014, 18:14 pm
por spiderboot
|
|
|
[Súper solucionado] Separar parte decimal y parte fraccionaria en lenguaje C.
« 1 2 »
Programación C/C++
|
NOB2014
|
14
|
26,599
|
5 Enero 2016, 18:10 pm
por NOB2014
|
|