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
Objetivo: Re: Insertar Objeto Dentro De Otro
última edición por vuott el Viernes, 04 Diciembre 2015, 17:45; editado 1 vez
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
última edición por vuott el Viernes, 04 Diciembre 2015, 17:45; editado 1 vez
Objetivo: Re: Insertar Objeto Dentro De Otro
Muchas gracias por tu ayuda, me falta pasar los parametros H,W para que se inicie...
Objetivo: Re: Insertar Objeto Dentro De Otro
Objetivo: 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
Objetivo: 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.
Objetivo: 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:
última edición por vuott el Domingo, 06 Diciembre 2015, 18:53; editado 3 veces
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
última edición por vuott el Domingo, 06 Diciembre 2015, 18:53; editado 3 veces
Página 1 de 1
No puede crear mensajesNo 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
Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.
Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo
Página generada en:: 0.1576s (PHP: -8% SQL: 108%)
Consultas SQL: 25 - Debug off - GZIP Activado