Jump to content

Clear Textbox(i) - Sem ser por array


zep
 Share

Recommended Posts

Dim txtarray(12) As TextBox

txtarray = {TextBox5, ..., TextBox16}

Dim i As Integer

For i = 0 To 11

txtarray(i).Text = ""

Next

Gostaria de saber se existe a possibilidade de limpar um determinado range de TextBoxes sem ter de fazer o array.

Por Exemplo:

' Dim i As Integer

' For i = 0 To 11

' textbox(i).Text = ""

' Next

Obrigado

Link to comment
Share on other sites


For each txtbox as TextBox in txtarray
txtbox.text = string.empty
Next

Não é isso que pretendes? Estás a querer redimensionar o array? Não percebi bem.

Edit: *******, este fórum já deveria conseguir lidar com os seus próprios caractéres, pqp.

Edited by He B Te My
Link to comment
Share on other sites

Também não percebi bem...

Gostaria de saber se existe a possibilidade de limpar um determinado range de TextBoxes sem ter de fazer o array.

Dá a entender que ele tem as textBox's no form e quer limpar apenas algumas....

Se for isto, podes, uma das soluções seria usar a propriedade Tag das textBox's, por exemplo escrever a palavra "LIMPAR" na Tag.

	    For Each ctrl In Me.Controls
	    If (TypeOf ctrl Is TextBox) Then
		    Dim txt As TextBox = DirectCast(ctrl, TextBox)

		    If txt.Tag IsNot Nothing AndAlso txt.Tag.Equals("LIMPAR") Then
			    txt.Text = String.Empty
		    End If

	    End If
    Next

Outra coisa... se tiveres um array(12), o array tem 13 elementos, do 0 ao 12 inclusive.

  • Vote 1
Link to comment
Share on other sites

Obrigado He B Te My & vikcch.

Dim i As Integer

For i = 5 To 16

Me.Controls.Item("TextBox" & i).Text() = ""

Next

Tens duas soluções ideais em cima, em vez de as usares decides criar uma especificamente para o teu problema que irá dar erro no momento em que renomeares alguma dessas textboxs nesse form, parabéns lol.

Edited by He B Te My
Link to comment
Share on other sites

Tens duas soluções ideais em cima, em vez de as usares decides criar uma especificamente para o teu problema que irá dar erro no momento em que renomeares alguma dessas textboxs nesse form, parabéns lol.

Mas eu nunca vou alterar os nomes das textbox porque o programa é um *.exe.

Penso que não faz muito sentido alterar o nome das textbox. Não sei?

Agradeço as sugestões e foi a partir do txt.Tag que consegui descobrir na Internet "Me.Controls.Item("TextBox" & i).Text() = """

Peço desculpas se não foi objetivo em relação à minha questão e por isso agradeço a vossa ajuda.

Mais uma vez Obrigado.

Link to comment
Share on other sites

Mas eu nunca vou alterar os nomes das textbox porque o programa é um *.exe.

Penso que não faz muito sentido alterar o nome das textbox. Não sei?

Agradeço as sugestões e foi a partir do txt.Tag que consegui descobrir na Internet "Me.Controls.Item("TextBox" & i).Text() = """

Peço desculpas se não foi objetivo em relação à minha questão e por isso agradeço a vossa ajuda.

Mais uma vez Obrigado.

Se dizes, não é questão de fazer sentido... lol, como quiseres, já agora, tens o método clear() por alguma razão também.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.