Usuário com melhor resposta
TabControl Microsoft Visual Studio Espress 2013

Pergunta
-
Como eu posso fazer para a TabControl carregar um modelo especifico.
Por exemplo: Eu tenho um arquivo txt com os dados: idade=10,experiencia=15, nome = joao, carro = Uno e etc...E eu gostaria de fazer algo assim, se eu escolhar o nome de joao ele (a TabControl) cria uma guia carregando nesse guia um estilo , com um label dizendo o nome dele , outro a idade, isso como um padrao para todas as guia so mudando a informaçao do usuario .Isso é possivel ser feito? Se sim como?
Respostas
-
Foram Criados 3 Menus e em cada Click de menu tem um código referente a Tab a ser criada, percebe que cada um tem seu Indice que começa do 001 e vai até nesse caso 003 podendo ser de quando quiser OK!
Private Sub JoãoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles JoãoToolStripMenuItem.Click If (TabControlDinamico.TabPages.ContainsKey("001") = False) Then TabControlDinamico.TabPages.Add("001", "João") Dim lblNome = New Label() lblNome.Text = "Nome: João" lblNome.Location = New Point(10, 10) lblNome.AutoSize = True Dim lblExperiencia = New Label() lblExperiencia.Text = "Experiência: 15" lblExperiencia.Location = New Point(10, 30) lblExperiencia.AutoSize = True Dim lblIdade = New Label() lblIdade.Text = "Idade: 20" lblIdade.Location = New Point(10, 50) lblIdade.AutoSize = True Dim lblCarro = New Label() lblCarro.Text = "Carro: Uno" lblCarro.Location = New Point(10, 70) lblCarro.AutoSize = True Dim Page As TabPage = TabControlDinamico.TabPages("001") Page.Controls.Add(lblNome) Page.Controls.Add(lblExperiencia) Page.Controls.Add(lblIdade) Page.Controls.Add(lblCarro) End If End Sub Private Sub MariaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MariaToolStripMenuItem.Click If (TabControlDinamico.TabPages.ContainsKey("002") = False) Then TabControlDinamico.TabPages.Add("002", "Maria") Dim lblNome = New Label() lblNome.Text = "Nome: Maria" lblNome.Location = New Point(10, 10) lblNome.AutoSize = True Dim lblExperiencia = New Label() lblExperiencia.Text = "Experiência: 16" lblExperiencia.Location = New Point(10, 30) lblExperiencia.AutoSize = True Dim lblIdade = New Label() lblIdade.Text = "Idade: 30" lblIdade.Location = New Point(10, 50) lblIdade.AutoSize = True Dim lblCarro = New Label() lblCarro.Text = "Carro: Fusca" lblCarro.Location = New Point(10, 70) lblCarro.AutoSize = True Dim Page As TabPage = TabControlDinamico.TabPages("002") Page.Controls.Add(lblNome) Page.Controls.Add(lblExperiencia) Page.Controls.Add(lblIdade) Page.Controls.Add(lblCarro) End If End Sub Private Sub CarlosToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CarlosToolStripMenuItem.Click If (TabControlDinamico.TabPages.ContainsKey("003") = False) Then TabControlDinamico.TabPages.Add("003", "Carlos") Dim lblNome = New Label() lblNome.Text = "Nome: Carlos" lblNome.Location = New Point(10, 10) lblNome.AutoSize = True Dim lblExperiencia = New Label() lblExperiencia.Text = "Experiência: 10" lblExperiencia.Location = New Point(10, 30) lblExperiencia.AutoSize = True Dim lblIdade = New Label() lblIdade.Text = "Idade: 25" lblIdade.Location = New Point(10, 50) lblIdade.AutoSize = True Dim lblCarro = New Label() lblCarro.Text = "Carro: Comodoro" lblCarro.Location = New Point(10, 70) lblCarro.AutoSize = True Dim Page As TabPage = TabControlDinamico.TabPages("003") Page.Controls.Add(lblNome) Page.Controls.Add(lblExperiencia) Page.Controls.Add(lblIdade) Page.Controls.Add(lblCarro) End If End Sub
Tela
Esse exemplo pode ser melhorado e colocado em métodos para suprimir a criação dos Labels mas, eu fiz como forma de entendimento !!!
- Marcado como Resposta TheKr4tosD quinta-feira, 26 de dezembro de 2013 20:53
Todas as Respostas
-
Se ta querendo fazer algo parecido com isso?
Mas, que tipo ele leia um arquivo com esse formato:
idade=10,experiencia=15, nome = joao, carro = Uno idade=11,experiencia=16, nome = maria, carro = Fusca idade=12,experiencia=17, nome = rodolfo, carro = Comodoro
e crie dinâmicamente essas tabs com essas informações ???
Seria isso só pra que eu possa entender?
- Sugerido como Resposta Giovani Cr quinta-feira, 26 de dezembro de 2013 17:06
-
-
Foram Criados 3 Menus e em cada Click de menu tem um código referente a Tab a ser criada, percebe que cada um tem seu Indice que começa do 001 e vai até nesse caso 003 podendo ser de quando quiser OK!
Private Sub JoãoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles JoãoToolStripMenuItem.Click If (TabControlDinamico.TabPages.ContainsKey("001") = False) Then TabControlDinamico.TabPages.Add("001", "João") Dim lblNome = New Label() lblNome.Text = "Nome: João" lblNome.Location = New Point(10, 10) lblNome.AutoSize = True Dim lblExperiencia = New Label() lblExperiencia.Text = "Experiência: 15" lblExperiencia.Location = New Point(10, 30) lblExperiencia.AutoSize = True Dim lblIdade = New Label() lblIdade.Text = "Idade: 20" lblIdade.Location = New Point(10, 50) lblIdade.AutoSize = True Dim lblCarro = New Label() lblCarro.Text = "Carro: Uno" lblCarro.Location = New Point(10, 70) lblCarro.AutoSize = True Dim Page As TabPage = TabControlDinamico.TabPages("001") Page.Controls.Add(lblNome) Page.Controls.Add(lblExperiencia) Page.Controls.Add(lblIdade) Page.Controls.Add(lblCarro) End If End Sub Private Sub MariaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MariaToolStripMenuItem.Click If (TabControlDinamico.TabPages.ContainsKey("002") = False) Then TabControlDinamico.TabPages.Add("002", "Maria") Dim lblNome = New Label() lblNome.Text = "Nome: Maria" lblNome.Location = New Point(10, 10) lblNome.AutoSize = True Dim lblExperiencia = New Label() lblExperiencia.Text = "Experiência: 16" lblExperiencia.Location = New Point(10, 30) lblExperiencia.AutoSize = True Dim lblIdade = New Label() lblIdade.Text = "Idade: 30" lblIdade.Location = New Point(10, 50) lblIdade.AutoSize = True Dim lblCarro = New Label() lblCarro.Text = "Carro: Fusca" lblCarro.Location = New Point(10, 70) lblCarro.AutoSize = True Dim Page As TabPage = TabControlDinamico.TabPages("002") Page.Controls.Add(lblNome) Page.Controls.Add(lblExperiencia) Page.Controls.Add(lblIdade) Page.Controls.Add(lblCarro) End If End Sub Private Sub CarlosToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CarlosToolStripMenuItem.Click If (TabControlDinamico.TabPages.ContainsKey("003") = False) Then TabControlDinamico.TabPages.Add("003", "Carlos") Dim lblNome = New Label() lblNome.Text = "Nome: Carlos" lblNome.Location = New Point(10, 10) lblNome.AutoSize = True Dim lblExperiencia = New Label() lblExperiencia.Text = "Experiência: 10" lblExperiencia.Location = New Point(10, 30) lblExperiencia.AutoSize = True Dim lblIdade = New Label() lblIdade.Text = "Idade: 25" lblIdade.Location = New Point(10, 50) lblIdade.AutoSize = True Dim lblCarro = New Label() lblCarro.Text = "Carro: Comodoro" lblCarro.Location = New Point(10, 70) lblCarro.AutoSize = True Dim Page As TabPage = TabControlDinamico.TabPages("003") Page.Controls.Add(lblNome) Page.Controls.Add(lblExperiencia) Page.Controls.Add(lblIdade) Page.Controls.Add(lblCarro) End If End Sub
Tela
Esse exemplo pode ser melhorado e colocado em métodos para suprimir a criação dos Labels mas, eu fiz como forma de entendimento !!!
- Marcado como Resposta TheKr4tosD quinta-feira, 26 de dezembro de 2013 20:53
-
-
-
Descupe a demora para responder, estava viajando.
Quanto ao layout eu nao tenho um especifico, eu apenas gostaria que ele pegasse as informações , nao precisa ser necessariamente de um .txt ,e as imprimisse essas imformaçoes na tela.Estou aberto a sugestoes quanto ao layout e a regra de funcionamento.