none
TabControl Microsoft Visual Studio Espress 2013 RRS feed

  • 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?

    quinta-feira, 26 de dezembro de 2013 03:19

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


    Fulvio Cezar Canducci Dias

    • Marcado como Resposta TheKr4tosD quinta-feira, 26 de dezembro de 2013 20:53
    quinta-feira, 26 de dezembro de 2013 19:31

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?


    Fulvio Cezar Canducci Dias

    • Sugerido como Resposta Giovani Cr quinta-feira, 26 de dezembro de 2013 17:06
    quinta-feira, 26 de dezembro de 2013 13:13
  • Quase, o que eu quero é que quando eu click em um nome dele

    ele crie uma nova aba carregando nos labels, as informaçoes dele

    tipo isso....

    quinta-feira, 26 de dezembro de 2013 17:34
  • 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 !!!


    Fulvio Cezar Canducci Dias

    • Marcado como Resposta TheKr4tosD quinta-feira, 26 de dezembro de 2013 20:53
    quinta-feira, 26 de dezembro de 2013 19:31
  • Valew cara era exatamente o que eu queria, mas sobre fazer um modo de como carregar os dados de um .txt, voce sabe como eu poderia fazer?
    quinta-feira, 26 de dezembro de 2013 20:56
  • Saberia sim Caro TheKr4tosD, mas, qual o layout correto do seu TXT?

    Como você deseja que aconteça a partir desse exemplo?

    Qual sua regra para funcionar?


    Fulvio Cezar Canducci Dias

    quinta-feira, 26 de dezembro de 2013 22:40
  • 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.


    terça-feira, 7 de janeiro de 2014 20:33