STRINGS [BASICO]
Qual o VB e qual o SP do mesmo
marcelo vb6 sp nao sei
então acredito que seja o sp5 do vb6
instale o sp6 do vb6 e tente novamente
http://www.microsoft.com/en-us/download/details.aspx?id=24417
instale o sp6 do vb6 e tente novamente
http://www.microsoft.com/en-us/download/details.aspx?id=24417
nao da
não dá oq?
eu tneho isto
separar = Split(Text1.Text, [Ô],[Ô])
Ultimo = UBound(separar)
MsgBox Ultimo
o resultado é 5 (é o numero de numero qe la existem ex: 15,22,13,20,16, )
eu queria qe ele desse só o resultado de 16 (ultimo numero)
ja tentei assim tambm mas este nem da resultado nenhum
separar = Split(Text1.Text, [Ô],[Ô])
Ultimo = separar(UBound(separar))
MsgBox Ultimo
separar = Split(Text1.Text, [Ô],[Ô])
Ultimo = UBound(separar)
MsgBox Ultimo
o resultado é 5 (é o numero de numero qe la existem ex: 15,22,13,20,16, )
eu queria qe ele desse só o resultado de 16 (ultimo numero)
ja tentei assim tambm mas este nem da resultado nenhum
separar = Split(Text1.Text, [Ô],[Ô])
Ultimo = separar(UBound(separar))
MsgBox Ultimo
e assim
separar = Split(Text1.Text, [Ô],[Ô])
Ultimo = separar(CInt(UBound(separar)))
MsgBox Ultimo
separar = Split(Text1.Text, [Ô],[Ô])
Ultimo = separar(CInt(UBound(separar)))
MsgBox Ultimo
sem resultado
eu posso fazer doutra maneira meto para uma picture box dpois do split
so qe nao sei verificar o ultimo numero (linha) da picturebox
eu posso fazer doutra maneira meto para uma picture box dpois do split
so qe nao sei verificar o ultimo numero (linha) da picturebox
muito estranho era pra funcionar
veja se funciona assim
separar = Split(Text1.Text, [Ô],[Ô])
Ultimo = separar(7)
MsgBox Ultimo
veja se funciona assim
separar = Split(Text1.Text, [Ô],[Ô])
Ultimo = separar(7)
MsgBox Ultimo
pq 7 ?
Tópico encerrado , respostas não são mais permitidas