Cálculos com textbox

[ricduarte]

Boas!

Tenho mais um problema!

Na minha PAP eu pretendo fazer o cálculo de várias textboxs em que algumas delas estão vazias e não tou a conseguir fazer o calculo.

Tenho 3 textboxs e apenas 1 tá preenchida e depois numa 4ª textbox queria que aparecesse o resultado da soma das 3 textboxs só que depois, quando clico na 4ª textbox para o resultado aparecer, ele dá-me o seguinte erro: "Conversion from string "" to type 'Integer' is not valid."

[Andrepereira9]

Boas

Para começar devias de ter posto aqui o codigo que tens

Dim aux As Double = 0
If IsNumeric(TextBox1.Text) Then
 aux += TextBox1.Text
End If
If IsNumeric(TextBox2.Text) Then
 aux += TextBox2.Text
End If
If IsNumeric(TextBox3.Text) Then
 aux += TextBox3.Text
End If
TextBox4.Text = aux.ToString

[ricduarte]

Muito obrigada pla ajuda Andrepereira9! Funcionou na perfeição!!!

[bioshock]

Imaginando que tens 100 textboxes, não podes, de maneira alguma, andar a fazer 100 condições (If's). Fazes um ciclo que te fica mais barato.

Por exemplo, se eventualmente essas textboxes estivessem dentro de uma groupbox, percorrias os seus controlos:

For Each ctrl As Control In GroupBox1.Controls
 If TypeOf ctrl Is TextBox Then
	 if IsNumeric(ctrl)Then
		  aux += ctrl.Text
	 End If
 End If
Next

[rochinha75]

Imaginando que tens 100 textboxes, não podes, de maneira alguma, andar a fazer 100 condições (If's). Fazes um ciclo que te fica mais barato.

Por exemplo, se eventualmente essas textboxes estivessem dentro de uma groupbox, percorrias os seus controlos:

For Each ctrl As Control In GroupBox1.Controls
 If TypeOf ctrl Is TextBox Then
	 if IsNumeric(ctrl)Then
		  aux += ctrl.Text
	 End If
 End If
Next

Boas, estou com uma dúvida do género...

No caso dessas checkbox não estarem numa groupbox, como poderei fazer?

Dim aux As Double = 0
for x as integer = 1 to 3
If IsNumeric(TextBox(x).Text) Then
	 aux += TextBox(x).Text
End If
TextBox4.Text = aux.ToString

Já experimentei algo deste género, com (), ' ' , " ", [ ] , { } , mas não funciona...

[nelsonr]

Se não tiveres grupo, podes ir buscar à form

[rochinha75]

Peço desculpa, mas continuo sem conseguir perceber como poderei fazer...

Por exemplo:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    For x As Integer = 1 To 5
	    If CheckBox(x).Checked = True Then
			   MsgBox(CheckBox(x).Text)
	    Else
    Next
End Sub

Da-me sempre erros, diz que checkbox is a type and cannot be used as na expression...

[nelsonr]

Não tenho o VB aqui, mas experimenta algo do tipo:

For Each ctrl As Control In Me.Controls
  If TypeOf ctrl Is CheckBox Then
If DirectCast(ctrl, CheckBox).Checked = True Then
  MsgBox(DirectCast(ctrl, CheckBox).Text)
End If
 End If
Next

[rochinha75]

Esse código não dá nenhum erro, mas não consigo com que ele faça o que eu pretendo...

Vou passar a explicar mesmo o que pretendo:

Public Class Form1
   Public tabela(3, 2) As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

	 If CheckBox1.Checked = True Then
		 tabela(1, 1) = Label1.Text
	 Else
		 tabela(1, 1) = ""
	 End If
	 If CheckBox2.Checked = True Then
		 tabela(2, 1) = Label2.Text
	 Else
		 tabela(2, 1) = ""
	 End If
	 If CheckBox3.Checked = True Then
		 tabela(3, 1) = Label3.Text
	 Else
		 tabela(3, 1) = ""
	 End If
End Sub

em vez de fazer tudo á mão, porque vou necessitar de fazer mais de 100 checkbox pretendia fazer um ciclo for

como por exemplo:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 For x As Integer = 1 To 3
	 If CheckBoxX.Checked = True Then
		 tabela(X, 1) = LabelX.Text
	 Else
		 tabela(X, 1) = ""
	 End If
 Next
End sub

o problema é que o programa não me está a aceitar o X em checkbox nem em label, já na tabela não há qualquer problema...

Edited June 26, 2013 at 10:43 AM by rochinha75

[Andrepereira9]

Boas

Public tabela(3, 2) As String
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 Dim i As Integer = 1
 For Each ctrl As Control In Me.Controls
	 If TypeOf ctrl Is CheckBox Then
		 If DirectCast(ctrl, CheckBox).Checked = True Then
			 MsgBox("A CheckBox " & ctrl.Name & " está selecionada e o texto é " & ctrl.Text)
			 tabela(i, 1) = ctrl.Text
		 Else
			 tabela(i, 1) = ""
		 End If
		 i += 1
	 End If
 Next
 For n As Integer = 1 To i - 1
	 MsgBox(tabela(n, 1).ToString)
 Next

End Sub

Edited June 26, 2013 at 10:56 AM by Andrepereira9

[rochinha75]

Com este código ele não faz nada...

Não existe nenhuma maneira de fazer tipo checkbox(x) ou checkbox"x", algo deste género e para cada x corresponder a uma checkbox?