Programación General > Visual Basic 6.0 e inferiores

 Caja De Texto Numeric Con Punto Decimal

<< < (2/2)

Javoche:
Muchas Gracias por sus consejos a Solcito y a Soultaker, lo que necesitaba era una Textbox normal donde se escribiera un solo punto decimal y numeros, lo del MaskEdBox ya lo había pensado, pero lo que esoty haciendo es un trabajo para mi escuela, y el profesor quería una caja de texto y no otro objeto.

Bebesita, me salvaste el pellejo, agregue tu codigo con el mio y funciono perfectamente, ahora lo muestro siguiendo los consejos de Toten en lo que respecta al Tab:


--- Código: Text ---Private Sub TxtSalario_KeyPress(KeyAscii As Integer)If KeyAscii &#60;&#62; 8 Then     If KeyAscii = 46 And (InStr(TxtSalario.Text, Chr(KeyAscii)) &#60;&#62; 0) Then            If TxtSalario = &#34;&#34; Then                 If KeyAscsii &#60; Asc(&#34;1&#34;) Or KeyAscii &#62; Asc(&#34;9&#34;) Then                 KeyAscii = 0                 Beep                 End If            Else                 If KeyAscii &#60; Asc(&#34;0&#34;) Or KeyAscii &#62; Asc(&#34;9&#34;) Then                 KeyAscii = 0                 Beep                 End If            End If       End IfEnd IfEnd Sub 

Navegación

[0] Índice de Mensajes

[*] Página Anterior