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
Insertar Objeto Dentro De Otro
Subject: Re: Insertar Objeto Dentro De Otro
Last edited by vuott on Friday, 04 December 2015, 17:45; edited 1 time in total
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
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
Last edited by vuott on Friday, 04 December 2015, 17:45; edited 1 time in total
Subject: Re: Insertar Objeto Dentro De Otro
Muchas gracias por tu ayuda, me falta pasar los parametros H,W para que se inicie... 
Subject: Re: Insertar Objeto Dentro De Otro
Subject: 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
Subject: 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.
Subject: Re: Insertar Objeto Dentro De Otro
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:
Es decir:
Last edited by vuott on Sunday, 06 December 2015, 18:53; edited 3 times in total
Ricardo Prieto escribió: [Ver mensaje]
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:
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
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
Last edited by vuott on Sunday, 06 December 2015, 18:53; edited 3 times in total
Page 1 of 1
You cannot post new topicsYou cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events
This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Generation Time: 0.0988s (PHP: -4% SQL: 104%)
SQL queries: 25 - Debug Off - GZIP Enabled