Visual Basic - Error '424' en tiempo de ejecución. Se requiere un objeto

Life is soft - evento anual de software empresarial
   
Vista:

Error '424' en tiempo de ejecución. Se requiere un objeto

Publicado por Luis (3 intervenciones) el 01/03/2013 13:12:57
Hola!

Estoy intentando hacer un programita en VB 6.0.

Mi intención es colocar en el 'picture' de un picture el de otro que se llama igual que el 'caption' de un command.

Explico: Tengo un Command1 con una matriz de10 elementos (Command1(0) a Command1(9)) que se hacen visibles o no dependiendo del valor de un Combo1. Este también va cambiando el nombre de los Command1(x), nombre que coincide con el de varias Pictures que tengo. Quiero que al pulsar el Command1(x) me aparezca en un Picture2 la imagen del picture que corresponde con el nombre del Command.

Bueno, se que me expreso muy mal y es un poco lioso. El error me da en:

Picture2.Picture=Nombre

Error '424' en tiempo de ejecución. Se requiere un objeto

No lo entiendo ya que el objeto lo tengo.

Lo siguiente es la parte del programa implicada:

Private Sub Combo1_Click()
...
...

a = Combo1.ListIndex
Picture1.Visible = True
Picture1.Picture = PicFlor(a).Picture
Text3.Text = Combo3.List(a)
Text1.Text = Combo4.List(a)

Select Case a
Case Is = 0
Command1(0).Visible = True
Command1(0).Caption = "15V"
Command1(1).Visible = True
Command1(1).Caption = "17Ig"
Case Is = 1
Command1(0).Visible = True
Command1(0).Caption = "10P"
Command1(1).Visible = True
Command1(1).Caption = "1Id"
Command1(2).Visible = True
Command1(2).Caption = "19E"
Case Is = 2
Command1(0).Visible = True
Command1(0).Caption = "13V"...
...



Private Sub Command1_Click(Index As Integer)
...
...
Nombre = Command1(Index).Caption & ".Picture"
Picture2.Picture = Nombre
End Sub



Antes de nada quiero daros las gracias por haberme leído, y aún mas agradecido estaré si me podéis decir dónde estoy metiendo la pata.

Repito: Muchas gracias

Luis
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

Error

Publicado por Pedro Luis (57 intervenciones) el 01/03/2013 13:58:25
Creo que lo que falta es la extension, o se la pones al caption o se la añades despues.
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

Error

Publicado por Luis (3 intervenciones) el 02/03/2013 09:48:23
Gracias por contestar Pedro Luis.
No, la extensión sería para un fichero que quisiera cargar desde disco con LoadPicture. No es este caso, quiero pasar el contenido de una picture a otra.
Un saludo
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

Error

Publicado por apacheco (63 intervenciones) el 11/03/2013 13:04:54
Lo que haces es cargar un texto como imagen ..... y no traga. Ademas no llevas el path , por lo tanto no encontrará la imagen

Utiliza

Picture2.Picture = Load_Picture("C:\Directorio" & \Nombre & ".Jpg")

No me acuerdo si es Load_Picture con guion bajo o LoadPicture sin guin
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

Error

Publicado por Oso1959 (3 intervenciones) el 11/03/2013 13:17:32
Hola Apacheco. Gracias por contestar.
El LoadPicture es para cargar en un el picture de un Picture un fichero de dibujo que tengas en el ordenador, en el disco duro o en un dispositivo de almacenamiento.
En mi caso es cargar un picture de un Picture oculto que tengo en pantalla en otro visible; es pasar un picture de un Picture a otro picture de otro Picture.
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