Visual Basic - Algo mas sencillo

Life is soft - evento anual de software empresarial
   
Vista:

Algo mas sencillo

Publicado por Juanito (20 intervenciones) el 03/10/2007 20:06:15
Algo mas facil que mi pregunta anterior.

Guardo en el text2 la ruta de una imagen (la ruta se guarda en una base de datos) y al cargar el formulario se muestra en ese text2.

Necesito que al cargar el form, se muestre en el picture1 la imagen de ese archivo.

He probado esto:

Private Sub Form_Load()

Dim a As String
Picture1.Picture = LoadPicture(a)
a = Text2.Text ' Dentro de este text esta grabada la ruta del archivo.jpg

End Sub

No me da ningu error, pero no me funciona, no carga la imagen.

¿Solución?

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
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Piano Midi
- Procesos
- Procesos con Treeview

Corrige el orden de tus instrucciones ...

Publicado por Semper (25 intervenciones) el 03/10/2007 21:12:35
Tienes alreves las instrucciones. Primero carga la variable "a" y despues carga el Picture ...

Igual podrias solo usar esto ->> Picture1.Picture = LoadPicture(Text2.Text)

'''''''''

Private Sub Form_Load()

Dim a As String

a = Text2.Text ' Dentro de este text esta grabada la ruta del archivo.jpg
Picture1.Picture = LoadPicture(a)

End Sub
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:Corrige el orden de tus instrucciones ...

Publicado por Juanito (20 intervenciones) el 03/10/2007 21:32:36
Me dice que no ha encontrado el archivo text2.text

sigo igual
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

ayuda por favor

Publicado por Juanito (20 intervenciones) el 03/10/2007 21:49:25
si cargo el formulario sin la sentencia anterior y luego incluyo un boton que al pulsarle, lo haga:

Dim a As String
a = Text2.Text
Picture1.Picture = LoadPicture(a)

Funcionaaaaaaaaaaaaaaaaa.

Pero claro, a mi me interesa que funcione éste código al arrancar el formulario. Si le incluyo ésta sentencia me dice que no encuentra el archivo.

¿sería la clave incluir en el form_load () que se ejecute el boton command1?

No lo se, ¿como se haría? me refiero ejecutar el boton desde el form_load sin necesidad de pulsarlo.
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:ayuda por favor

Publicado por Yo (38 intervenciones) el 04/10/2007 15:50:59
Ya viste que este código es correcto, entonces tienes dos opciones:
1.- Si lo haces en el Load asegúrate de que tu control Picture tenga la propiedad AutoRedraw como verdadero (porque te puedo apostar que no lo tienes así).
o
2.- Hazlo en el Activate, en vez del Load
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:ayuda por favor

Publicado por pepin (7 intervenciones) el 04/10/2007 15:53:24
NOOOOOOOOOOOOOOOO

Tus instrucciones estan mal!, seguro no estas asignando la ruta a tu textbox.

Por Ejm:

'... tus conexiones y todo de la bd
me.text2.text = rs(2) ' imaginemos que aqui asignas la ruta de la imagen al textbox

Dim a As String
a = Text2.Text
Picture1.Picture = LoadPicture(a)

Y nada mas, esto debe funcionar, claro si tus instrucciones siguen un ORDEN LOGICO....

EN todo caso, si tienes problemas, con esto provocas el evento de un control

Private Sub Command1_Click()
MsgBox "PROGRAMA CON ORDEN LOGICO!"
End Sub

Private Sub Form_Load()
Command1_Click
End Sub
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