Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Portal » Foro » Gambas » General

Fecha y hora actual: Martes, 14 May 2024, 18:12 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Manipular String[] En Propiedad Tag?


Publicar nuevo tema  Responder al tema  		Página 1 de 1
 
 
Manipular String[] En Propiedad Tag?
Autor Mensaje
Desconectado v3ctor Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: May 2013
Mensajes: 1786
Edad: 44
Ubicación: uruguay.png Uruguay
 
 
Responder citando   Descargar mensaje  
Mensaje Manipular String[] En Propiedad Tag? 
 
con esta rutina agrego un array string[2]
con dos rutas de imagenes que luego consultare.

Select Case Dificultad
    Case MuyFacil
      For Each xobjeto In PanMuyFacil.Children
        For Each XpicBox In xobjeto.Children
          
          If SalidaForsosa Then Return
          Tags = New String[]
          Tags.Add(TagOrdenado[contador])
          Tags.Add(TagDesordenado[contador])
          
          XpicBox.Tag = Tags
          
'           XpicBox.Tag = TagDesordenado[contador]
          XpicBox.Picture = Null
          XpicBox.Picture = Picture.Load(XpicBox.Tag[1])
          Inc contador
        Next
      Next


esta rutina consulta la propiedad tag, pero aqui me da error
 (no es un objeto)

  Dim XpicBox As PictureBox
  Dim xobjeto As Object
  
  Select Case Dificultad
    Case MuyFacil
      For Each xobjeto In PanMuyFacil.Children
        For Each XpicBox In xobjeto.Children
          Print "Picture.Load(XpicBox.Tag)" & XpicBox.Tag[1]  <-------- aqui da el error
          XpicBox.Picture = Picture.Load(XpicBox.Tag[1])
        Next
      Next
    Case Facil
      For Each xobjeto In PanFacil.Children
        For Each XpicBox In xobjeto.Children
          XpicBox.Picture = Picture.Load(XpicBox.Tag[1])
        Next
      Next
    Case Normal
      For Each xobjeto In PanNormal.Children
        For Each XpicBox In xobjeto.Children
          XpicBox.Picture = Picture.Load(XpicBox.Tag[1])
        Next
      Next
    Case Dificil
      For Each xobjeto In PanDificil.Children
        For Each XpicBox In xobjeto.Children
          XpicBox.Picture = Picture.Load(XpicBox.Tag[1])
        Next
      Next
  End Select


que estoy haciendo mal?
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
#1  Martes, 15 Agosto 2017, 18:06
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado v3ctor Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: May 2013
Mensajes: 1786
Edad: 44
Ubicación: uruguay.png Uruguay
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Manipular String[] En Propiedad Tag? 
 
a una cosa los for each recorre un panel principal
despues otros panel en el interior para obtener los picturbox


 foreach
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
#2  Martes, 15 Agosto 2017, 18:11
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado jsbsan Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51
Ubicación: spain.png dos hermanas, sevilla
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Manipular String[] En Propiedad Tag? 
 
V3ctor:

He hecho un pequeño código con el uso de la propiedad .tag, y funciona  bien:
Citar:
Public Sub Form_Open()

  Dim tagArray As New String[]

  tagArray.Add("hola")
  tagArray.Add("adios")

  Me.tag = tagArray

  Print Me.Tag[1]

End


Tendria que depurar tu programa, y ver linea a linea los valores que toma la variable xpicbox. (tanto cuando estas asignando valores, como cuando lo lees)
Es posible que con la linea:
Citar:
If SalidaForsosa Then Return

haya algun objeto que no le des valor a la propiedad .tag, y que cuando intenta leerla en la 2º parte del código, te da el error que comentas.

Saludos
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
#3  Martes, 15 Agosto 2017, 18:24
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado v3ctor Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: May 2013
Mensajes: 1786
Edad: 44
Ubicación: uruguay.png Uruguay
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Manipular String[] En Propiedad Tag? 
 
ahí subí el código a la granja

lo que prentendo hacer después que solucione este inconveniente

es comparar el tags[0] con el tags[1]

si son iguales la parte esta en su lugar sino suma un contador, que cuando se consulte muestre

hay 4 partes fuera de lugar, por ejemplo

saludos
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
#4  Martes, 15 Agosto 2017, 19:37
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado v3ctor Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: May 2013
Mensajes: 1786
Edad: 44
Ubicación: uruguay.png Uruguay
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Manipular String[] En Propiedad Tag? 
 
julio esto funciono

probé aparte un código y anda, lo pruebo en la rutina y aviso


Public Sub Button1_Click()

  Dim tags As New String[2]
  Dim tas As String
  Dim foto1, foto2 As Picture
  

  Tags[0] = "p_MuroLtos.jpg"
  Tags[1] = "p_RioJordan.jpg"
  
  PictureBox1.Tag = Tags
  
  For Each tas In PictureBox1.Tag
    Print tas
  Next
  
  foto1 = Picture.Load(PictureBox1.Tag[0])
  foto2 = Picture.Load(PictureBox1.Tag[1])
  
  PictureBox1.Picture = foto1
  
  Wait 5
  
 PictureBox1.Picture = foto2

End

 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
#5  Martes, 15 Agosto 2017, 20:17
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Manipular Varias Ventanas A La Vez (soluci... Erik Controles/Librerías/Componentes 4 Jueves, 23 Diciembre 2010, 04:33 Ver último mensaje
Erik
No hay nuevos mensajes DrawingArea. Propiedad Cached Shell Controles/Librerías/Componentes 2 Lunes, 02 Diciembre 2013, 10:01 Ver último mensaje
Shell
No hay nuevos mensajes Problema De Permisos Para Manipular Base D... v3ctor Bases de Datos 2 Lunes, 06 Abril 2015, 22:18 Ver último mensaje
shordi
No hay nuevos mensajes Propiedad Tracking Shell General 0 Domingo, 09 Junio 2019, 09:22 Ver último mensaje
Shell
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Portal » Foro » Gambas » General

Fecha y hora actual: Martes, 14 May 2024, 18:12 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno

 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario


  

 
cron