Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Insertar Objeto Dentro De Otro

Insertar Objeto Dentro De Otro
Artículo
Responder citando    Descargar mensaje  
Mensaje Insertar Objeto Dentro De Otro 
 
Hola me podrian ayudarme necesito insetar un objeto tableview dentro de un tabstrip y que cada vez que cree una nueva pesatña inserte este mismo tableview. Desde ya muchas gracias..

Public Sub ClonarTabla()

  TabStripVentas.Count = TabStripVentas.Count + 1

  NvTablaVenta = New TableView(TablaVenta)

  NvTablaVenta = New TableView(TabStripVentas.Current)

  

End

Aqui les de dejo un fragmento de codigo. Me da un error en la clase vistual



 
Ricardo Prieto - Ver perfil del usuario Enviar mensaje privado  
Ricardo Prieto [ Viernes, 04 Diciembre 2015, 16:12 ]
 


Insertar Objeto Dentro De Otro
Comentarios
Responder citando    Descargar mensaje  
Mensaje Re: Insertar Objeto Dentro De Otro 
 
Citar:


  NvTablaVenta = New TableView(TablaVenta)


No sé qué hace esta línea.



 
shordi - Ver perfil del usuario Enviar mensaje privado  
shordi [ Viernes, 04 Diciembre 2015, 16:47 ]
Responder citando    Descargar mensaje  
Mensaje Re: Insertar Objeto Dentro De Otro 
 
Exemplum ad solvendum:

Public Sub Form_Open()

 Dim j As Byte

  TabStripVentas.Count = 3

  For j = 0 To 2
    TabStripVentas[j].Text = CStr(j)
  Next

End


Public Sub ClonarTabla()

  Dim NvTablaVenta As TableView
  
    TabStripVentas.Count = TabStripVentas.Count + 1

    TabStripVentas.Index = TabStripVentas.Count - 1

    TabStripVentas[TabStripVentas.Count - 1].Text = CStr(TabStripVentas.Count - 1)

   With NvTablaVenta = New TableView(TabStripVentas)
     .X = 40
     .Y = 100
     .W = 200
     .H = 200
     .Rows.Count = 3
     .Columns.Count = 3
   End With
  
End


Public Sub Button1_Click()

  ClonarTabla()

End




 
última edición por vuott el Viernes, 04 Diciembre 2015, 17:45; editado 1 vez 
vuott - Ver perfil del usuario Enviar mensaje privado  
vuott [ Viernes, 04 Diciembre 2015, 17:41 ]
Responder citando    Descargar mensaje  
Mensaje Re: Insertar Objeto Dentro De Otro 
 
Muchas gracias por tu ayuda, me falta pasar los parametros H,W para que se inicie...



 
Ricardo Prieto - Ver perfil del usuario Enviar mensaje privado  
Ricardo Prieto [ Viernes, 04 Diciembre 2015, 21:05 ]
Responder citando    Descargar mensaje  
Mensaje Re: Insertar Objeto Dentro De Otro 
 
Lo que es importante en el tu caso, es:

TabStripVentas.INDEX = .....




 
vuott - Ver perfil del usuario Enviar mensaje privado  
vuott [ Viernes, 04 Diciembre 2015, 23:08 ]
Responder citando    Descargar mensaje  
Mensaje Re: Insertar Objeto Dentro De Otro 
 
Les consulto como hago para acceder al objeto tableview creado..? Por que a medida que los voy creando no encuentro la forma de acceder



 
Ricardo Prieto - Ver perfil del usuario Enviar mensaje privado  
Ricardo Prieto [ Domingo, 06 Diciembre 2015, 17:18 ]
Responder citando    Descargar mensaje  
Mensaje Re: Insertar Objeto Dentro De Otro 
 
Sube el proyecto con lo que has hecho, o al menos el código que usas. Si no, imposible ayudarte.



 
shordi - Ver perfil del usuario Enviar mensaje privado  
shordi [ Domingo, 06 Diciembre 2015, 17:56 ]
Responder citando    Descargar mensaje  
Mensaje Re: Insertar Objeto Dentro De Otro 
 
Ricardo Prieto escribió: [Ver mensaje]
... acceder al objeto tableview creado..? Por que a medida que los voy creando no encuentro la forma de acceder


Si tu por "acceder", te refieres a utilizar las recursos del objecto TableView creado:

1) elimina la declaración local de la variable NvTablaVenta, y pone una variable global:
Private NvTablaVenta As TableView


Public Sub Form_Open()

etc..etc...


Asì tu pudes utilizar propiedades y metodos en las routine.


2) para usar los eventos del objecto, tienes que asignar las TableView creadas a un mismo "Grupo" de evbentos.
Asì, cambia esta linea:
With NvTablaVenta = New TableView(TabStripVentas)

como sigue:
With NvTablaVenta = New TableView(TabStripVentas) As "NvTablaVenta"


Podemos usar por ejemplo:
Public Sub NvTablaVenta_Click()

  NvTablaVenta[NvTablaVenta.Row, NvTablaVenta.Column].Text = CStr(NvTablaVenta.Row & "  " & NvTablaVenta.Column)
  
End




Es decir:
Private NvTablaVenta As TableView


Public Sub Form_Open()

 Dim j As Byte

  TabStripVentas.Count = 3

  For j = 0 To 2
    TabStripVentas[j].Text = CStr(j)
  Next

End


Public Sub ClonarTabla()
  
    TabStripVentas.Count = TabStripVentas.Count + 1

    TabStripVentas.Index = TabStripVentas.Count - 1

    TabStripVentas[TabStripVentas.Count - 1].Text = CStr(TabStripVentas.Count - 1)

   With NvTablaVenta = New TableView(TabStripVentas) As "NvTablaVenta"
     .X = 40
     .Y = 100
     .W = 200
     .H = 200
     .Rows.Count = 3
     .Columns.Count = 3
     .Name = "NvTablaVenta " & CStr(TabStripVentas.Count - 1)
   End With
  
End


Public Sub Button1_Click()

  ClonarTabla()

End


Public Sub NvTablaVenta_Click()

  Print Last.Name

  NvTablaVenta[NvTablaVenta.Row, NvTablaVenta.Column].Text = CStr(NvTablaVenta.Row & "  " & NvTablaVenta.Column)
  
End




 
última edición por vuott el Domingo, 06 Diciembre 2015, 18:53; editado 3 veces 
vuott - Ver perfil del usuario Enviar mensaje privado  
vuott [ Domingo, 06 Diciembre 2015, 18:08 ]
Mostrar mensajes anteriores:    
 
Publicar nuevo tema  Responder al tema  Página 1 de 1
 
 

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


 



 

cron