Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » Error "424" en tiempo de ejecución. Se requiere un objeto

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

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
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:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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
sin imagen de perfil
Val: 2
Ha aumentado su posición en 122 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error

Publicado por apacheco (65 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

1
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

Error

Publicado por Tomas (1 intervención) el 14/03/2017 16:08:18
Hola podrias ayudarme
quiero ejecutar el formulario predeterminado de excel que selecciona un rango de columnas
mire que solo debo anexar este codigo
pero el programador me arroja un error

1
2
3
Sub Button7_Click()
ActiveSheet.ShowDataForm
End Sub

espero puedas ayudarme para verificar si debo anexar mas informacion
gracias
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 Alex (2 intervenciones) el 04/09/2017 05:11:21
Alguien me ayuda :c
1
2
3
4
5
6
7
8
9
10
11
12
Sub Ordenar()
Dim rangoDato As Range
Dim campoOrden As Range
Dim ultimaFila As Long
 
ultimaFila = Sheets("INVENTARIO").Range("T" & Rows.Count).End(xlUp).Row
Set rangoDato = (Range("B15:T" & ultimaFila))
Set campoOrden = Range("F15")
 
rangoDato.Sort Key1:=campoOrden, order1:=xlAscending, Header:=xlYes
 
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

ayuda

Publicado por Yuri (1 intervención) el 20/05/2020 21:42:44
Hola , estoy empenzando a programar , me podrian ayudar diciendome como hacer para que un cuando de clik en un boton me abra google. todo esto en microsof visual basic. Gracias de antemano.
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