regfsd

olá andreia!, sou novato em vb e não sei como usa esse form.... se pudese me dar uma luz... agradeceria...

--------------------------------------------------------------------------------------------------------------------------------------------- COM AJUDA DE UM AMIGO, CONSEGUI RESOLVER ASSIM: If TextBox15.Text = "" Then TextBox15.Text = "0" If TextBox16.Text = "" Then TextBox16.Text = "0" If TextBox17.Text = "" Then TextBox17.Text = "0" If TextBox18.Text = "" Then TextBox18.Text = "0" If TextBox20.Text = "" Then TextBox20.Text = "0" If TextBox22.Text = "" Then TextBox22.Text = "0" If TextBox23.Text = "" Then TextBox23.Text = "0" If TextBox24.Text = "" Then TextBox24.Text = "0" If TextBox25.Text = "" Then TextBox25.Text = "0" If TextBox26.Text = "" Then TextBox26.Text = "0" If TextBox28.Text = "" Then TextBox28.Text = "0" If TextBox29.Text = "" Then TextBox29.Text = "0" If TextBox30.Text = "" Then TextBox30.Text = "0" If TextBox31.Text = "" Then TextBox31.Text = "0" If TextBox32.Text = "" Then TextBox32.Text = "0" If TextBox34.Text = "" Then TextBox34.Text = "0" If TextBox35.Text = "" Then TextBox35.Text = "0" If TextBox36.Text = "" Then TextBox36.Text = "0" If TextBox37.Text = "" Then TextBox37.Text = "0" If TextBox38.Text = "" Then TextBox38.Text = "0" If TextBox40.Text = "" Then TextBox40.Text = "0" If TextBox41.Text = "" Then TextBox41.Text = "0" If TextBox42.Text = "" Then TextBox42.Text = "0" If TextBox43.Text = "" Then TextBox43.Text = "0" If TextBox44.Text = "" Then TextBox44.Text = "0"

OLÁ PESSOAL, ESTOU PRECISANDO DE AJUDA! CRIRI UM PROJETO EM VB 2005 O QUAL POSSUI VARIAS TEXTBOX, CRIRI O CÓDIGO E QUANDO TODAS TEXTBOX ESTÃO PREENCHIDAS O CÓDIGO FUNCIONA CORRETAMENTE, PORÉM GOSTARIA QUE EM ALGUM MOMENTO ALGUMAS TEXTBOX FICASSEM VAZIAS. EX.: ESTE FORMULARIO QUE ESTOU A CRIAR SERIA COMO UM PEDIDO: ITEM 1 = DESCRIÇÃO , QUANTIDADE VEZES ÁREA VEZES NUMERO DE CORES VEZES VALOR POR CM = R$00,00 ITEM 2 = " " " " " " " " " = " ITEM 3 = " " " " " " " " " = " ITEM 4= " " " " " " " " " = " ITEM 4= " " " " " " " " " = " VALOR A PAGAR: R$ 00,00 ------------------------------------------------------------------------------------------------------------------------------------ VEJA ABAIXO MEU CÓDIGO: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim num1 As Double Dim num2 As Double Dim num3 As Double Dim num4 As Double Dim num5 As Double Dim num6 As Double Dim num7 As Double Dim num8 As Double Dim num9 As Double Dim num10 As Double Dim num11 As Double Dim num12 As Double Dim num13 As Double Dim num14 As Double Dim num15 As Double Dim num16 As Double Dim num17 As Double Dim num18 As Double Dim num19 As Double Dim num20 As Double Dim num21 As Double Dim num22 As Double Dim num23 As Double Dim num24 As Double Dim num25 As Double num1 = TextBox15.Text num2 = TextBox16.Text num3 = TextBox17.Text num4 = Val(TextBox18.Text) num5 = Val(TextBox20.Text) TextBox21.Text = num1 * num2 * num3 * (num4 + num5) * 0.0000525 num6 = TextBox22.Text num7 = TextBox23.Text num8 = TextBox24.Text num9 = Val(TextBox25.Text) num10 = Val(TextBox26.Text) TextBox27.Text = num6 * num7 * num8 * (num9 + num10) * 0.0000525 num11 = TextBox28.Text num12 = TextBox29.Text num13 = TextBox30.Text num14 = Val(TextBox31.Text) num15 = Val(TextBox32.Text) TextBox33.Text = num11 * num12 * num13 * (num14 + num15) * 0.0000525 num16 = TextBox34.Text num17 = TextBox35.Text num18 = TextBox36.Text num19 = Val(TextBox37.Text) num20 = Val(TextBox38.Text) TextBox39.Text = num16 * num17 * num18 * (num19 + num20) * 0.0000525 num21 = TextBox40.Text num22 = TextBox41.Text num23 = TextBox42.Text num24 = Val(TextBox43.Text) num25 = Val(TextBox44.Text) TextBox45.Text = num21 * num22 * num23 * (num24 + num25) * 0.0000525 TOTAL_A_PAGARTextBox.Text = CDbl(TextBox21.Text) + CDbl(TextBox27.Text) + CDbl(TextBox33.Text) + CDbl(TextBox39.Text) + CDbl(TextBox45.Text) ============================================================================== ENTÃO, COM ESTA APLICAÇÃO, QUANDO EM EXCUÇÃO EU NÃO CONSIGO CALCULAR, CASO FIQUE ALGUMA TEXTBOX VAZIA, DA ERRO E FECHA O APLICATIO. MAS SE COMPLETO TODAS TEXTBOX A APLICAÇÃO CALCULA CORRETAMENTE. alguém SABERIA COMO POSSO RESOLVER ISTO !