Programación General > Visual Basic 6.0 e inferiores

 Re: MAS PROBLEMAS!!

(1/2) > >>

itzipe:
hola, me gustaría saber si al tener guardada una foto en la misma carpeta del proyecto hace falta poner la ruta. ¿Estaría bien así?
frmprincipal.Picture1.Picture = FOTIBON.JPG
gracias.:oops:

observador:
Pues no... no es necesario escribir toda la ruta si la imagen esta en el mismo directorio del proyecto (a menos que se haya cambiado la ruta por codigo) pero la sintaxis correcta para cagar una imagen en tiempo de ejecucion seria utilizando la funcion LoadPicture, es decir, el codigo quedaria mas o menos así:

Set Picture1.Picture = LoadPicture("MiImagen.jpg")

Y digo mas o menos, porque el argumento que la funcion recibe "MiImagen.jpg" tendras que sustituirlo por el nombre de tu imagen que quieres cargar... y el nombre del objeto sera el que tu el que tu le hayas colocado... :comp:

Visita el foro: http://programador.foro.st

rlarrea:
Hola colega si tu imagen esta en la carpeta donde esta tu aplicacion utilizas el app.path que indica la ruta de tu aplicacion por ejemplo si tu aplicacion esta en c:Ejemplo01 entonces app.path toma esa ruta .

ejemplo:
Set Picture1.Picture = LoadPicture(App.Path & "MiImagen.jpg")

si imagen esta en c:Ejemplo01imagenesMiImagen.jpg entonces y tu aplicacion esta en c:Ejemplo01 entonces seria :

Set Picture1.Picture = LoadPicture(App.Path & "imagenesMiImagen.jpg")

espero te ayude colega bye :good:

observador:
Pues esta bien eso de implementar el App.Path, ya que si el directorio por defaul se cambia a traves de codigo o en tiemp de ejecucion, ya no jalaría bien, pero para poder utilizar el App.Path hay que averiguar si este es el directorio raiz de alguna unidad cualquiera, y en caso de no serlo agregarle un "" entre la ruta y el nombre del archivo...

Lo cual quedaria asi:

    If Len(App.Path) <= 3 Then 'La ruta es el directorio raiz de alguna undidad a:, b:, c:, d:... etc
        Set Picture1.Picture = LoadPicture(App.Path & "MiImagen.jpg")
    Else
        'este en un subdiretorio del directorio raiz, ejemplo c:MiCarpeta
        'por lo tanto se le tiene que agregar el "" antes del archivo en cuestion
        'ya que de no ser asi se trataria de buscar el archivo "c:MiCarpetaMiImagen.jpg"
        'y no el archivo "c:MiCarpetaMiImagen.jpg" que es el que en realidad se desea abrir
        Set Picture1.Picture = LoadPicture(App.Path & "MiImagen.jpg")
    End If

Visiten el foro: http://programador.foro.st

Hasta pronto...

itzipe:
muchas gracias a los dos, ya sale prefectamente. un beso:kiss:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente