Visual Basic - Dos Preguntas Sencillas

Hola Amigos: Necesito ayuda en dos problemitas

1.- Problema: Tengo un TextBox Ligado a una BD en un campo Número con decimales
lo que necesito que haga es, que al presionar la tecla punto (.) del teclado numerico
me aparezca una coma, estuve utilizando el siguiente codigo para este problemita
pero cuando lo utilizo me pone (.,) osea lo que necesito es eliminar el punto antes
de la coma... aclaro que la configuracion regional de la pc esta correctamente configurada.

Private Sub TxtPrecio_KeyPress(KeyAscii As Integer)

If KeyAscii = 46 Then

SendKeys ","

End If

End Sub

2.- Lo que necesito es que cuando el TextBox reciba el enfoque me seleccione el contenido del
mismo.

Desde ya muchas gracias....

Para la primera pregunta cambia el código del SendKeys por KeyAscii = 44.

Para el segundo revisa las propiedades SelText, SelStart y SelLength que tienen un ejemplo.

1º- Lo has de hacer desde el evento Change()
Private Sub TxtPrecio_Change()
TxtPrecio.text = Val(BuscaCambia(TxtPrecio.text, ".", ",", 0))
End Sub

Public Function BuscaCambia(ByVal VarString As String, ByVal cadena1 As String, _
ByVal cadena2 As String, ByVal ParaYa As Integer) As String
Dim I%, CarFinal%, PosActual%, PosSiguiente%, PosFinal%, VarAuxiliar$
If ParaYa > 0 Then
CarFinal = ParaYa
Else
CarFinal = Len(VarString)
End If
VarAuxiliar = VarString
PosSiguiente = 0
PosSiguiente = InStr(PosSiguiente + 1, VarAuxiliar, cadena1)
Do Until (PosSiguiente = 0) Or (PosSiguiente > CarFinal)
VarAuxiliar = left(VarAuxiliar, PosSiguiente - 1) & cadena2 & _
Right(VarAuxiliar, (Len(VarAuxiliar) - Len(cadena1) - (PosSiguiente - 1)))
CarFinal = CarFinal - Len(cadena1) + Len(cadena2)
PosSiguiente = 0
PosSiguiente = InStr(PosSiguiente + 1, VarAuxiliar, cadena1)
Loop
BuscaCambia = VarAuxiliar
End Function

Espero que te sirva

Hola.
Que complicado y retorcido, Pere. Con lo bien que funciona, como comentaba Cecilia, el evento KeyPress.
Le pones KeyAscii = 44 y listos.

Es una funcion de propósito general, puede cambiar cualquier valor por otro. Esa era la intención.
Retorcida, pues sí, pero bueno, la uso para cosas más complicadas.
acepto el "tirón de orejas".

Saludos
Pere

Hombre... tampoco era un tirón de orejas, vaya, Era mas bien un... ¡ostras pedrín!. Pero oye, que si funciona todo vale, ¿o no?.

No te preocupes, las cosas dichas con arte siempre son bien recibidas.

Puse la función porque el uso de Sendkeys causa, con frecuencia, problemas con el teclado numérico (se deshabilita la tecla "Bloq Num". Lo curioso es que no sucede en todos los Pc's, sólo en algunos e imagínate el estar metiendo números a troche y moche sin mirar la caja de texto. Cuando te das cuenta, no veas la gracia que te hace.

Para deplegar automáticamente un Combo cuando recibe el enfoque si pones SendKeys "%{down}" o SendKeys "{F4}", True te hace lo que he comentado anteriormente.

Saludos.
Pere

Les agradezco a todos Per