... 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