在vb6中转换为2位十六进制

问题描述

我想通过VB6将494E4352454153494E47转换为2位十六进制值可以任何人帮助我



我有一个转换为十六进制的代码



slpe = Combo5.Text

bytes = StrConv（slpe，vbFromUnicode）

slpe =

For i = LBound（bytes）To UBound（bytes）

slpe = slpe&格式$（十六进制$（字节（i）），00）

下一页我

Combo5.Text = slpe

slpe = StrConv （bytes，vbUnicode）

rs.Fields（slope）。Value = Combo5.Text



如果我使用此代码我'能够将INCREASING转换为494E4352454153494E47并存储在MSAccess中

但是我想转换为2位十六进制代码

是否可能？



我尝试过：



slpe = Combo5.Text

bytes = StrConv（slpe，vbFromUnicode）

slpe =

For i = LBound（bytes）To UBound（bytes）

slpe = slpe&格式$（十六进制$（字节（i）），00）

下一页我

Combo5.Text = slpe

slpe = StrConv （bytes，vbUnicode）

rs.Fields（slope）。Value = Combo5.Text

解决方案

i want to convert 494E4352454153494E47 this into 2-digit hex value through VB6 can anyone help me

I have a code which convert to hex

slpe = Combo5.Text
bytes = StrConv(slpe, vbFromUnicode)
slpe = ""
For i = LBound(bytes) To UBound(bytes)
slpe = slpe & Format$(Hex$(bytes(i)), "00")
Next i
Combo5.Text = slpe
slpe = StrConv(bytes, vbUnicode)
rs.Fields("slope").Value = Combo5.Text

if i use this code i'm able to convert INCREASING as 494E4352454153494E47 this and store in MSAccess
but i want to convert as 2-digit hex code
is it possible?

What I have tried:

slpe = Combo5.Text
bytes = StrConv(slpe, vbFromUnicode)
slpe = ""
For i = LBound(bytes) To UBound(bytes)
slpe = slpe & Format$(Hex$(bytes(i)), "00")
Next i
Combo5.Text = slpe
slpe = StrConv(bytes, vbUnicode)
rs.Fields("slope").Value = Combo5.Text

解决方案

这篇关于在vb6中转换为2位十六进制的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！