como desactivo los negativos en un textbox

[geraldin21]

este es el problema...

Codensa, desea contratar sus servicios para que elabore un programa en Visual Basic que le permita calcular el Total a Pagar de cada cliente, por concepto de energía eléctrica. Los datos que deben ser leídos son los siguientes: Número de cuenta, Estrato socioeconómico, tipo de servicio y cantidad de kilovatios consumidos. Los cálculos que debe realizar el programa en Visual Basic, son: Valor por consumo, que depende del estrato, así: Para estrato 1 ó 2, el valor del kWh es de $255. Para estrato 3 ó 4, el valor del kWh es de $325. Para estrato 5 ó 6, el valor es de $475. El cargo fijo es de $9850, igual para todos los clientes. La empresa otorga un subsidio dependiendo del uso que se le da a la energía (Tipo de servicio). Así, si el tipo de servicio es 1 (Residencial), se otorga un descuento del 30% al total consumo (valor por consumo + cargo fijo). Si el tipo de servicio es 2 (Comercial), el descuento es del 27% del total consumo. Si el tipo de servicio es 3 (Industrial), el descuento es del 18% del total consumo. Con base en esta información, el programa en Visual Basic debe mostrar el Total a Pagar por cada cliente.

y asi me quedo la programacion...

Public Class Form1

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
Label1.Text = 255
Label2.Text = 325
Label3.Text = 475
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, h, total1, total As Integer
h = TextBox2.Text
If CheckBox1.Checked Then
a = Label1.Text
End If
If CheckBox2.Checked Then
b = Label2.Text
End If
If CheckBox3.Checked Then
c = Label3.Text
End If
total1 = (a * h) + 9850 Or (b * h) + 9850 Or (c * h) + 9850
If RadioButton1.Checked Then
total = total1 - (total1 * 0.3)
MsgBox("cuenta" & TextBox1.Text & "A pagar_" & total)
End If
If RadioButton2.Checked Then
total = total1 - (total1 * 0.27)
MsgBox("cuenta" & TextBox1.Text & "A pagar_" & total)
End If
If RadioButton3.Checked Then
total = total1 - (total1 * 0.18)
MsgBox("cuenta" & TextBox1.Text & "A pagar_" & total)
End If
End Sub

solo quiero saber, como hago para q en el textbox2 no admita numeros negativos solo positivos... por fis alguien q me ayude!!

[Osnolaq]

Hola, no sé si es esto te puede valer

como en el text tienes que recoger le valor, haz mediante un if la comproabicón de que el valor que has recogido en el text es positivo, si es negativo que te lo vuelvan a introducir y luego ya harás las cuentas...

no se si es esto lo que quieres

[pkj]

Puedes poner cualquiera de estas líneas al inicio de la sub del botón.

Esta...
If Val(TextBox2.Text) < 0 then TextBox2.Text = -Val(TextBox2.Text)

o esta
TextBox2.Text = Replace(TextBox2.Text, "-", "")

Si el valor es negativo se vuelve positivo.

He intentado con ABS pero el .NET no me lo admitia.

Hay otros modos, pero creo que esto te puede valer.

Saludos