Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

no me muestra los controles dentro de un pictureBox

Estas en el tema de no me muestra los controles dentro de un pictureBox en el foro de Visual Basic clásico en Foros del Web. buenas... el tema es que yo cargo picturebox en tiempo de ejecucion con Load ... y dentro de cada picturebox cargo 1 label...tambien con Load... ...
  #1 (permalink)  
Antiguo 21/12/2008, 10:34
Avatar de aldo1982  
Fecha de Ingreso: noviembre-2004
Ubicación: Santa Fe (Argentina) Colon F.C
Mensajes: 1.362
Antigüedad: 19 años, 5 meses
Puntos: 6
Pregunta no me muestra los controles dentro de un pictureBox

buenas... el tema es que yo cargo picturebox en tiempo de ejecucion con Load ... y dentro de cada picturebox cargo 1 label...tambien con Load... me carga por ejemplo 4 picturebox, pero dentro de ellos no me carga el label.

aca dejo el codigo.


Código:
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim i As Integer


SQL = "select e_contador.id_contador, e_contador.id_esquina, e_contador.direccion, e_contador.modelo, e_contador.tipo, e_contador.fecha_alta, e_contador.titulo as titulo_contador, "
SQL = SQL & " e_contador_modulo.*, "
SQL = SQL & " w_esquina.* "
SQL = SQL & " FROM e_contador, e_contador_modulo, w_esquina "
SQL = SQL & " WHERE e_contador_modulo.id_contador = e_contador.id_contador "
SQL = SQL & " AND e_contador.id_esquina =  w_esquina.id_esquina "
SQL = SQL & " AND e_contador.id_esquina = " & id_esquina & ""
rs.Open SQL, conectar
contadores_poresquina = rs.RecordCount

i = 1

While Not rs.EOF
    
    'pic_contador(i).Visible = True
    'i = rs!id_contador & rs!id_modulo
    Load contador(i)
    contador(i).Visible = True
    contador(i).Left = rs!dist_left
    contador(i).TOP = rs!dist_top
    contador(i).Tag = rs!id_contador
    
    Load dist_left(i)
    dist_left(i).Caption = CInt(rs!dist_left)
    
    Load dist_top(i)
    dist_top(i).Caption = CInt(rs!dist_top)
    
    
    Load id_contador(i)
    id_contador(i).Visible = True
    id_contador(i).Caption = rs!id_contador
    
    Load id_modulo(i)
    id_modulo(i).Visible = True
    id_modulo(i).Caption = rs!id_modulo
    
    
    Load titulo(i)
    titulo(i).Visible = True
    titulo(i).Enabled = True
    titulo(i) = rs!titulo
    
    Load cantidad(i)
    cantidad(i).Visible = True
    cantidad(i).Caption = rs!cantidad_max
    
    i = i + 1
    
    'pic_contador.Item(i).TOP = rs!TOP
    'MsgBox "Contadores en esta esquina: " & contadores_poresquina & vbNewLine & "Contador: " & rs!id_Contador & " | " & rs!modulo
    rs.MoveNext
Wend

rs.Close
Set rs = Nothing
__________________
LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA
  #2 (permalink)  
Antiguo 23/12/2008, 07:56
Avatar de aldo1982  
Fecha de Ingreso: noviembre-2004
Ubicación: Santa Fe (Argentina) Colon F.C
Mensajes: 1.362
Antigüedad: 19 años, 5 meses
Puntos: 6
Respuesta: no me muestra los controles dentro de un pictureBox

no help me ?
__________________
LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 02:05.