USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Datas/Números/Strings)

Título da Dica:  Separando uma linha de string sem quebra a palavra, sem quebra a palavra.Separa por Espaço
Postada em 23/8/2003 por Tartaruga            
Ae Pessoal blz?

Descrição: Separar Linhas muito longas em duas partes sem quebrar palavra

Ultilidade: Impreçao do Valor extenso de cheques, recibos, etc.

Aqui vai o codigo q teve ser motificado de acordo com suas suas nessesidades.

Coloque duas Texts sem mudar o nome, e coloque um botao.
E insirta o seguinte codigo

'variaveis
Dim CONT, CONTM
Private Sub Command1_Click()
'inicia variaveis como 0
CONT = 0
CONTM = 0
Do While True
CONT = CONT + 1
A = Mid(Text1.Text, CONT, 1)
If A = " " Then
CONTM = CONT
End If
If CONT > 20 Then
C = CSng(Len(Text1.Text))
C = C - CONTM
Text2.Text = Right(Text1.Text, C)
Text1.Text = Left(Text1.Text, CONTM)
Exit Do
End If
Loop
End Sub

ex:
escreve na text1 assim =Separa no ultimo espaco olha soh
e fica assim depois de Clicar no botao
Separa no ultimo
espaco olha soh

Presto?
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página