Programación de factura telefónica en Vb

Subform_Load privado()

I. KeyPreview = True

Conector final

Esta oración no es un evento Form_MouseDown, sino un evento Form_KeyDown.

Sub Form_KeyDown privado (KeyCode es un número entero, Shift es un número entero)

Si shift = vbaltmask y chr (keycode) = "c", presione "alt+c" para salir el programa.

Fin

Terminará si...

Conector final

Subtexto privado 1 _ KeyPress (KeyAscii es un número entero)

Dim t tiene la misma longitud

t = Val(Text1.Text)

Si KeyAscii = 13, entonces

MsgBox t & amp":2011 La factura telefónica en septiembre es: ", 0," resultados de la consulta"

Terminará si...

Si KeyAscii & lt48 o KeyAscii & gt57 entonces KeyAscii = 0

Conector final