TRATAMENTE TEXTBOX
Bom dia colegas!
Tenho um textbox que carrega um texto gravado no banco de dados, exemplo:
[Ô]TesteTeste TesteTeste ###### TesteTeste TesteTeste, ##/##/#### TetseTeste Teste, ####, TesteTeste Teste ##.[Ô]
O que preciso é onde tem [Ô]#[Ô] substituir por branco, e permitir a digitação para o usuário, e no texo, bloquear a digitação.
Agradeço a atenção e ajuda de todoas!
Tenham um bom dia e bom serviço!
Tenho um textbox que carrega um texto gravado no banco de dados, exemplo:
[Ô]TesteTeste TesteTeste ###### TesteTeste TesteTeste, ##/##/#### TetseTeste Teste, ####, TesteTeste Teste ##.[Ô]
O que preciso é onde tem [Ô]#[Ô] substituir por branco, e permitir a digitação para o usuário, e no texo, bloquear a digitação.
Agradeço a atenção e ajuda de todoas!
Tenham um bom dia e bom serviço!
pra substituir faça isso: Replace(TextBox.Text, [Ô]#[Ô],[Ô] [Ô])
agora, quanto ao bloqueio, não entendi direito .
agora, quanto ao bloqueio, não entendi direito .
o q ele quer é alguma coisa parecida com uma mascara....semelhante ao q existe no word por ex
No word vc digita um texto padrão e insere campos para outros dados serem lançados posteriormente
No word vc digita um texto padrão e insere campos para outros dados serem lançados posteriormente
veja este POG
no caso eu nà o usei o TextBox e seim Um label que se tornou editavel como o sugerido por vc
então coloque um label em um form e cole
veja se era esta a intenção
no caso eu nà o usei o TextBox e seim Um label que se tornou editavel como o sugerido por vc
então coloque um label em um form e cole
Private Sub Form_KeyPress(KeyAscii As Integer)
Dim A As String, B As String, Loc As Integer
Loc = InStr(1, Label1.Caption, [Ô]#[Ô])
A = Mid(Label1.Caption, 1, Loc)
B = Mid(Label1.Caption, Loc + 1, Len(Label1.Caption))
Label1.Caption = Replace(A, [Ô]#[Ô], Chr$(KeyAscii)) & B
End SubPrivate Sub Form_Load()
Label1.Caption = [Ô]TesteTeste TesteTeste ###### TesteTeste TesteTeste, ##/##/#### TetseTeste Teste, ####, TesteTeste Teste ##.[Ô]
End Subveja se era esta a intenção
[Ô]TesteTeste TesteTeste[Ô] & [Ô] [Ô] & [Ô]TesteTeste TesteTeste[Ô] & [Ô] / / [Ô] TetseTeste Teste[Ô] & [Ô] [Ô] & [Ô],[Ô] & [Ô]TesteTeste Teste[Ô] & [Ô]##.[Ô]
Funcionou MARCELO-TREZE, só precisava de uma rotina para o funcionar o backSpace e o delete, você tem?
Muito Obrigado!!
Muito Obrigado!!
Tente assim:
BackSpace
Delete
BackSpace
Label1 = Left(Label1, Len(Label1) - 1)Delete
Label1 = Right(Label1, Len(Label1) - 1)
[txt-size=2]Não funciona TECLA.
Preciso tratar tudo, exemplo:
[Ô]TesteTeste TesteTeste ALTERDO Teste...[Ô]
Quando chego nesta situação, que em determinado ponto, ja alterei todos os [Ô]#[Ô], nao consigo fazer a alteração.
[/txt-size]
Preciso tratar tudo, exemplo:
[Ô]TesteTeste TesteTeste ALTERDO Teste...[Ô]
Quando chego nesta situação, que em determinado ponto, ja alterei todos os [Ô]#[Ô], nao consigo fazer a alteração.
[/txt-size]
assim que eu chagar em um pc que possua o vb irei fazer as alterações de form que funcione o backspace
Consegui colegas!
Utilizei um array.
Muito obrigado a todos!
Utilizei um array.
Muito obrigado a todos!
Tópico encerrado , respostas não são mais permitidas