TabControl Microsoft Visual Studio Espress 2013

Question

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?

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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?

Answer 5

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

Answer 6

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.