Reconocimiento de variables

[soylaluzdetualma]

Soy nuevo en el foro y agradesco su ayuda. Estoy trabajando en un proyecto sencillo de fraccionarios. Recibo un número en un texbox y lo asigno a una variable que es interger o entera. Si el usuario me ingresa un número decimal el programa debe rechazarlo pero si es entero debe admitirlo. ¿Me pueden decir si hay alguna sentencia que me permita diferenciar entre un número entero y un decimal o un metodo para hacerlo?

trabajo en visual basic 6.0

[JavierB]

Hola soylaluzdetualma. Bienvenido al foro.

Para hacer preguntas es preferible utilizar el foro que mejor se adapte a tu duda, así podrán ayudarte más usuarios.

Muevo tu mensaje al foro de Visual Basic desde Bienvenida a Foros del Web.

Saludos,

[tazzito]

soylaluzdetualma

yo ocupo algo asi

if numero = clng(numero) then
msgbx "es entero"
else
msgbox "es Decimal"
Endif

otra solucion puede ser permitir agregar solo numeros sin separadores en el textbox

[culd]

Fijate esto es usando un TextBox llamado "Text1" en el evento Keypress, si ingresas cualquier otra cosa que no sea del 0 al 9 te lo rechaza impidiendo que se ingrese y ademas te avisa.

Código:

Private Sub Text1_KeyPress(KeyAscii As Integer)
'Nota: el ascii del Back Space es el 8
Select Case KeyAscii
    Case Asc("0"), Asc("1"), Asc("2"), Asc("3"), Asc("4"), Asc("5"), Asc("6"), Asc("7"), Asc("8"), Asc("9"), 8
    Case Else
        KeyAscii = 0
        MsgBox "Solamente se admiten numeros enteros"
End Select
End Sub

[txels]

if int(text1.text) then
msgbox "Es un entero"
else
msgbox "No es un entero"
end if