Autor Tema: Format "mask Edit" (Leído 2442 veces)

irma3030 · « **en:** Domingo 29 de Febrero de 2004, 22:20 »

Hola

El dato es 524/012/04 en TextBox pero, yo capturo este carácter ( /) , hay algún código para no capturar este carácter. Realmente mi duda es Si el componente MASK EDIT de VB Ver. 6.0 puede funcionar pARA esto, y cómo?.

Muchas gracias por su atención

Jose Arriagada · « **Respuesta #1 en:** Lunes 1 de Marzo de 2004, 21:50 »

Prueba las propiedades format y mask del control maskedit, con ello te puedes ahorrar "n" trabajo.

elmango80 · « **Respuesta #2 en:** Martes 2 de Marzo de 2004, 12:16 »

Si entendi bien tu problema es que necesitas que el usuario introduzca "524/012/04" en el campo, pero que el sistema lo tome como "52401204". Si esto es asi entonces puede utilizar el Masked Edit para esto, lo unico que tienes que hacer es establecer las propiedades Mask y PrompInclude la primera determina la máscara de entrada para el control y la segunda especifica si los caracteres para solicitar datos están contenidos en el valor de la propiedad Text.

Código: Text

 MaskEdBox1.Mask = &#34;999/999/99&#34;
 MaskEdBox1.PromptInclude = False
 

Si necesitas que te explique algo mas de las propiedades con gusto lo hare.

irma3030

Cita de: "Jose Arriagada"

Prueba las propiedades format y mask del control maskedit, con ello te puedes ahorrar "n" trabajo.

Hola:

En VBA, ya asignar una mascara para introducir datos en un campo, en tiempo de ejecucion y quiero guardar el formato de la mascara y el dato, pero no guarda el dato sale error (Data1.Recordset.Update) y no se como hacerle:

Porpiedad Mask:###/## =1235/04
Propiedad Format: ###/##

MaskEdBox1 quiza en este evento hace falta algun codigo

Gracias por tu atencion prestada.

Brroz · « **Respuesta #4 en:** Jueves 4 de Marzo de 2004, 15:45 »

Hola irma3030.

No se si capto muy bien tu problema... entiendo que a partir de un texto de un textbox quieres almacenar por un lado un valor numérico y por otro la posición de cierto carácter (en tu caso /). Para hacer esto se me ocurre algo así:

Utilizaría un textbox corriente y moliente, y presupongo que la posición en la puede aparecer el carácter / es variable, así como el número de veces que aparecerá.

Imagina un formulario con dos TextBox: uno (Text1) recogería la entrada del usuario, otro (Text2), mostrará la reconstrucción de la entrada del usuario. Dos CommandButton, uno almacena la entrada del usuario, y otro la reconstruye...

Código: Text

 
Option Explicit
 
Private dblValor As Double
Private strPos As String
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    
    ' Chr(47)=&#34;/&#34; , Chr(48) al Chr(57)=&#34;0123456789&#34;
    If KeyAscii &#60; 47 Or KeyAscii &#62; 57 Then KeyAscii = 0
 
End Sub
 
Private Sub Command1_Click()
    
    dblValor = Val(Replace(Text1.Text, &#34;/&#34;, &#34;&#34;))
    strPos = &#34;&#34;
    
    Dim int1 As Integer, intIdx As Integer
    int1 = InStr(int1 + 1, Text1.Text, &#34;/&#34;)
    Do While int1 &#62; 0
        strPos = strPos & int1 & &#34;,&#34;
        int1 = InStr(int1 + 1, Text1.Text, &#34;/&#34;)
    Loop
    int1 = Len(strPos)
    If int1 &#62; 0 Then strPos = Left(strPos, int1 - 1)
    
    MsgBox &#34;Almacenar &#34; & dblValor & &#34; por un lado&#34; & vbCrLf _
    & &#34;y &#34; & strPos & &#34; por otro&#34;
    
End Sub
 
Private Sub Command2_Click()
    
    Dim var1 As Variant
    var1 = Split(strPos, &#34;,&#34;)
    Dim int1 As Integer, str1 As String, str2 As String
    str1 = CStr(dblValor)
    For int1 = 0 To UBound(var1)
        str1 = Left(str1, var1(int1) - 1) & &#34;/&#34; & Mid(str1, var1(int1))
    Next int1
    Text2.Text = str1
    
End Sub
 
 

Mira el código y saca tus conclusiones, la imaginación es una herramienta de programación muy poderosa...

Suerte.

SoloCodigo

Autor Tema: Format "mask Edit" (Leído 2442 veces)

irma3030

Format "mask Edit"

Jose Arriagada

Re: Format "mask Edit"

elmango80

Re: Format "mask Edit"

irma3030

Re: Format "mask Edit"

Brroz

Re: Format "mask Edit"