Autor |
Mensaje |
Ricardo Prieto
Ricardo Prieto
Programador
Registrado: Septiembre 2015
Mensajes: 109
Edad: 47 Ubicación: ARGENTINA
|
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
|
#1 Viernes, 04 Diciembre 2015, 16:12 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
Re: Insertar Objeto Dentro De Otro
Citar:
NvTablaVenta = New TableView(TablaVenta)
No sé qué hace esta línea.
=================== No podemos regresar
|
#2 Viernes, 04 Diciembre 2015, 16:47 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
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
|
#3 Viernes, 04 Diciembre 2015, 17:41 |
|
|
Ricardo Prieto
Ricardo Prieto
Programador
Registrado: Septiembre 2015
Mensajes: 109
Edad: 47 Ubicación: ARGENTINA
|
Re: Insertar Objeto Dentro De Otro
Muchas gracias por tu ayuda, me falta pasar los parametros H,W para que se inicie...
|
#4 Viernes, 04 Diciembre 2015, 21:05 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: Insertar Objeto Dentro De Otro
Lo que es importante en el tu caso, es:
TabStripVentas.INDEX = .....
|
#5 Viernes, 04 Diciembre 2015, 23:08 |
|
|
Ricardo Prieto
Ricardo Prieto
Programador
Registrado: Septiembre 2015
Mensajes: 109
Edad: 47 Ubicación: ARGENTINA
|
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
|
#6 Domingo, 06 Diciembre 2015, 17:18 |
|
|
shordi
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4982
Edad: 64 Ubicación: Albacete
|
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.
=================== No podemos regresar
|
#7 Domingo, 06 Diciembre 2015, 17:56 |
|
|
vuott
Analista Programador
Registrado: Agosto 2013
Mensajes: 2086
Edad: 60 Ubicación:
|
Re: Insertar Objeto Dentro De Otro
... 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:
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:
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
|
#8 Domingo, 06 Diciembre 2015, 18:08 |
|
|
|