Visual Basic - Logotipo

Life is soft - evento anual de software empresarial
 
Vista:

Logotipo

Publicado por sandra (86 intervenciones) el 08/11/2007 02:18:45
Hola:
Me gustaria saber como se puede hacer para cambiar el logotipo de mi programa en tiempo de ejecucion. Q control puedo utilizar.
Mi idea es que me permita habrir una carpeta donde tengo una variedad de imagenes y q el usuario pueda elegir cualquielesquiera, y dode pueda tener un boton aceptar y q le apliq al formulario la imagen elegida.

Hice asi, pero este es solo para una imagen especifica y no se puede cambiar, osea elegir otra cualquiera con el programa ejecutado.

frmPrincipal.Picture = LoadPicture(D & "\imagenes\mi_imagen.jpg")

NO SE SI ME EXPLICO. Y SI ME PUEDEN AYUDAR.

DESDE YA GRACIAS.....
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Logotipo

Publicado por El conejo (124 intervenciones) el 09/11/2007 00:53:03
Hola.

Componente :
Microsoft Commondialog

controles:
commondialog
commandbutton
picture

CommonDialog1.Filter = "*.jpg;*.gif;*.bmp"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End If

Lo otro de dejar una carpeta predefinida y utilizarlos con un FileListBox y un Timer que vaya cambiando la imagen segun un determinado periodo de tiempo,
1000 = 1 segundo.

Espero te sirva.
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Logotipo

Publicado por sandra (86 intervenciones) el 10/11/2007 03:21:32
Hola:
Funciona...si.
pero como se puede hacer q cuando salgo del ejecutable, quede la imagen q cargue.

saludos..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Logotipo

Publicado por El conejo (124 intervenciones) el 10/11/2007 17:25:33
Hola.

Creando un archivo de texto cada vez que la imagen se cambie.

ej.
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
On Error Resume Next
Kill (App.Path & "\cfgimage.mur") ' <--- eliminas el anterior
Open App.Path & "\cfgimage.mur" For Output As #1
Print #1, CommonDialog1.FileName ' ruta completa
Close #1
End If

En el Form_load del formulario va esto:

on error goto noarchivo
Open App.Path & "\cfgimage.mur" For Input As #1
Line Input #1, em1 ' ruta completa
Close #1
Picture1.Picture = LoadPicture(em1)
noarchivo:

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar