|
|
|
|
|
|
|
|
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?
|
|
|
|
|
