ACESSAR UM TEXTBOX POR TEXTO TEXTO
Olá pessoal, fiz muita pesquisa mas não achei resposta, é o seguinte:
Digamos que tenha um texto = [Ô]Julio[Ô]
e NomeBox = [Ô]TextBox1[Ô]
Gostaria de colocar o [Ô]Julio[Ô] no textbox informado no NomeBox.
Como posso fazer?
Grato
Digamos que tenha um texto = [Ô]Julio[Ô]
e NomeBox = [Ô]TextBox1[Ô]
Gostaria de colocar o [Ô]Julio[Ô] no textbox informado no NomeBox.
Como posso fazer?
Grato
NomeBox.Text = [Ô]Julio[Ô]
isso? LOL
Explica direito pois não entendi direito sua pergunta
isso? LOL
Explica direito pois não entendi direito sua pergunta
NomeBox.Text = [Ô]Julio[Ô]
não funciona pq NomeBox é uma string que só armazena o nome do componente textbox
eu gostaria que o conteúdo do NomeBox se comportasse como um textbox, no caso o conteúdo é Textbox1 ou qualquer outro nome
No form existe um componente Textbox chamado Textbox1
Aparentemente seria NomeBox.Text = [Ô]Julio[Ô] mas em execução ele entenderia que seria Textbox1.Text
Acredito que no [txt-color=#0000f0]NomeBox.Text[/txt-color] deve ser acrescentado algum caractere especial que o sistema entenda que quem será executado é conteúdo da string e não a string.
não funciona pq NomeBox é uma string que só armazena o nome do componente textbox
eu gostaria que o conteúdo do NomeBox se comportasse como um textbox, no caso o conteúdo é Textbox1 ou qualquer outro nome
No form existe um componente Textbox chamado Textbox1
Aparentemente seria NomeBox.Text = [Ô]Julio[Ô] mas em execução ele entenderia que seria Textbox1.Text
Acredito que no [txt-color=#0000f0]NomeBox.Text[/txt-color] deve ser acrescentado algum caractere especial que o sistema entenda que quem será executado é conteúdo da string e não a string.
Cara, na boa...
Acho que ninguém entendeu sua dúvida.
Por acaso você quer que o conteúdo da TextBox1 seja o nome do controle NomeBox?
Se for seria assim:
Dê mais detalhes ou envie um exemplo.
Acho que ninguém entendeu sua dúvida.
Por acaso você quer que o conteúdo da TextBox1 seja o nome do controle NomeBox?
Se for seria assim:
NomeBox.Name = TextBox1.TextDê mais detalhes ou envie um exemplo.
Ainda não é isso
Tentarei um exemplo:
digamos de eu tenha 200 textbox num form: TextBox1 até TextBox200
tenha um contador de 1 a 200 (For Next)
e tenha um string = [Ô]JULIO[Ô]
Se o contador for = 1 então gava o [Ô]JULIO[Ô] no TextBox1
Se for = 20 grava no TextBox20
Só que fica terrivel fazer 200 Ifs ou Cases
Então eu faria o seguinte:
Guardaria numa variável qual TextBox seria gravado a string [Ô]JULIO[Ô]
Colocaria somente uma linha
[txt-color=#e80000]NomeBox = [Ô]TextBox[Ô] & Contador.tostring[/txt-color]
Agora não sei como gravo o [txt-color=#0000f0][Ô]JULIO[Ô][/txt-color] no TextBox armazenado na variável [txt-color=#0000f0]Nomebox[/txt-color].
Não sei como explicar melhor
Tentarei um exemplo:
digamos de eu tenha 200 textbox num form: TextBox1 até TextBox200
tenha um contador de 1 a 200 (For Next)
e tenha um string = [Ô]JULIO[Ô]
Se o contador for = 1 então gava o [Ô]JULIO[Ô] no TextBox1
Se for = 20 grava no TextBox20
Só que fica terrivel fazer 200 Ifs ou Cases
Então eu faria o seguinte:
Guardaria numa variável qual TextBox seria gravado a string [Ô]JULIO[Ô]
Colocaria somente uma linha
[txt-color=#e80000]NomeBox = [Ô]TextBox[Ô] & Contador.tostring[/txt-color]
Agora não sei como gravo o [txt-color=#0000f0][Ô]JULIO[Ô][/txt-color] no TextBox armazenado na variável [txt-color=#0000f0]Nomebox[/txt-color].
Não sei como explicar melhor
Cara, tu pode fazer assim:
Public Sub EncontrarControle(ByVal Formulario As Form)
For Each controle As control In Formulario.Controls
If TypeOf controle Is TextBox Then
If controle.Name = [Ô]TextBox1[Ô] Then Msgbox(controle.Name)
End If
Next
End Sub
Public Sub EncontrarControle(ByVal Formulario As Form)
For Each controle As control In Formulario.Controls
If TypeOf controle Is TextBox Then
If controle.Name = [Ô]TextBox1[Ô] Then Msgbox(controle.Name)
End If
Next
End Sub
Se tua intenção for de limpar os campos do formulario, então faça assim:
Public Sub LimparCampos(ByVal Formulario As Form)
For Each controle As Control In Formulario.Controls
If TypeOf controle Is TextBox Then
controle.Text = [Ô][Ô]
End If
Next
End Sub
Public Sub LimparCampos(ByVal Formulario As Form)
For Each controle As Control In Formulario.Controls
If TypeOf controle Is TextBox Then
controle.Text = [Ô][Ô]
End If
Next
End Sub
Digamos que voce armazenou o nome do controle textbox numa variavel chamada NomeDoControle.e o valor para ser armazenado numa variavel chamada ValorParaArmazenar
Ou seja: NomeDoControle = [Ô]TextBox1[Ô]
ValorParaArmazenar = [Ô]Julio[Ô]
Para acha-lo e preencher com o valor desejado, voce poderia fazer assim:
Public Sub SetValor(ByVal Formulario As Form)
For Each controle As control In Formulario.Controls
If TypeOf controle Is TextBox Then
If controle.Name = NomeDoControle Then controle.Text = ValorParaArmazenar
End If
Next
End Sub
Ou seja: NomeDoControle = [Ô]TextBox1[Ô]
ValorParaArmazenar = [Ô]Julio[Ô]
Para acha-lo e preencher com o valor desejado, voce poderia fazer assim:
Public Sub SetValor(ByVal Formulario As Form)
For Each controle As control In Formulario.Controls
If TypeOf controle Is TextBox Then
If controle.Name = NomeDoControle Then controle.Text = ValorParaArmazenar
End If
Next
End Sub
é isso aà Jaba.
Não era bem isso que eu imaginava que seria, mas dará certo no projeto
Essa de limpar os campos tb será util
Valeu
Não era bem isso que eu imaginava que seria, mas dará certo no projeto
Essa de limpar os campos tb será util
Valeu
Preciso fazer alguma avaliação pela resposta?
Se o problema foi solucionado, então encerre o topico e pontue quem lhe ajudou.
Tópico encerrado , respostas não são mais permitidas