Jump to content

Caracteres à direita


kazzx

Recommended Posts

SPLIT

Altera para:

        Dim Str As String = "99999 - Manel"
        MsgBox(Split(Str, " - ")(UBound(Split(Str, " - "))))

        ' ou simplificando

        Dim TempStr() As String = Split(Str, " - ")
        MsgBox(TempStr(UBound(TempStr)))

        'ou já agora...

        Dim TempStr() As String = Split(Str, " - ")
        MsgBox("ID: " & TempStr(0) & " NOME: " & TempStr(1))

O que estás a tentar fazer é má prática, e dou-te já duas formas de solucionar o teu problema:

- ListView (a details) usa colunas, logo podes meter o id numa coluna e o nome noutra

- ListViewItem tem uma propriedade Tag do tipo Object, onde podes guardar o que te apetecer, nomeadamente o ID.

Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.