valista

'╱＊Calcular código de botón de precio total＊╱

Subcomando privado1_Click()

Dim Num As Long

Dim Sum As Único, Precio Como Único

Precio = Val(Text1.Text)

Suma = Val(Text2.Text)

Suma = Precio * Suma

Label4.Caption = Suma

End Sub

'╱＊Código del botón de salida＊╱

Subcomando privado2_Click()

Descargarme

End Sub

'╱＊Restringir el texto a números y puntos decimales y usar la tecla de retroceso＊╱

Subtexto privado1_KeyPress(KeyAscii As Integer)

KeyAscii = ValiText(KeyAscii, "0123456789.", False, True)

End Sub

'╱＊Restringir el texto a números únicamente y el punto decimal y use la tecla de retroceso＊╱

Private Sub Text2_KeyPress(KeyAscii As Integer)

KeyAscii = ValiText(KeyAscii, "0123456789.", False, True)

End Sub

'----------------------

'Limitar entrada de texto versión mejorada

'----------------------

Función ValiText(KeyIn como entero, ValiStr como cadena, Retroceso como booleano, IncludeStr como booleano) como entero

Dim ValiList como cadena

Dim KeyOut como entero

Si BackSpace = False Entonces

ValiList = UCase (ValiStr) & Chr(8)

Else

ValiList = UCase(ValiStr)

Fin si

Si IncludeStr = False Entonces

Si InStr(1, ValiList, UCase(Chr(KeyIn)), 1) > 0 Entonces

KeyOut = 0

De lo contrario

KeyOut = KeyIn

Fin si

Else

Si InStr(1, ValiList, UCase(Chr(KeyIn)), 1) > 0 Entonces

KeyOut = KeyIn

Else

KeyOut = 0

p> Finalizar si

Finalizar si

ValiText = KeyOut

Finalizar función