AJUDA COM A ESCRITA DESSA LINHA PARA VB6

 Tópico anterior Próximo tópico Novo tópico

AJUDA COM A ESCRITA DESSA LINHA PARA VB6

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#483046 - 15/07/2018 23:11:05

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


Ola galera, alguem aqui pode me ajudar a escrever essa linha em vb6 ?
        For b = 0 To 5
            magic_number &= If((current_offset + b) > 16, (current_offset + b).ToString("x"), "0" & (current_offset + b).ToString("x"))
        Next b



#483073 - 16/07/2018 17:28:25

FABRICIOWEB
BELO HORIZONTE
Cadast. em:Novembro/2011


alguem ?




Resposta escolhida #483076 - 16/07/2018 17:57:57

OCELOT
SOROCABA
Cadast. em:Março/2012


não testei, mas seria algo do tipo

magic_number = magic_number & iif((current_offset + b) > 16, Hex(current_offset + b), "0" & Hex(current_offset + b))

No VB6 não exite &=, mas é o mesmo que fazer variavel =  variavel & qualquer coisa

Também não existe este if, mas ele tem funcionalidade muito parecida do iif que neste caso me parece poder ser usada sem problemas

E por ultimo o ToString("x") neste caso tem basicamente o mesmo resultado de usar a função Hex do VB6



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por FABRICIOWEB em 15/09/2018 07:56:30