杭州交通信息网安全文明施工管理体系:有高手知道vb编程中Byte型转换的问题吗？
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/29 09:36:16
我已经使用二进制的方式读取了一副BMP图像到了数组Buf（100）中，假设Buf(100)={"FA","FA","FA","FA","FA","FA","F3","F3","FF","FF".....}
我想把“FA”替换成0；把“F3”替换成“1”把“FF”替换成“2”都是十六进制，
请问该怎样写？呀？
我写的但是不行，错在哪儿了呢？想不明白，谢谢各位了！
For j = 0 To 4095
Select Case Hex(DataBuf(j + BmOffBits))
Case &HF9
Call red ‘处理红色的子程序
Case &HFA
Call green ’处理绿色的子程序
Case &HFB
Call yellow ‘处理黄色的子程序
Case Else ’处理其他色的子程序
Call others
End Select
我想把“FA”替换成0；把“F3”替换成“1”把“FF”替换成“2”都是十六进制，
请问该怎样写？呀？
我写的但是不行，错在哪儿了呢？想不明白，谢谢各位了！
For j = 0 To 4095
Select Case Hex(DataBuf(j + BmOffBits))
Case &HF9
Call red ‘处理红色的子程序
Case &HFA
Call green ’处理绿色的子程序
Case &HFB
Call yellow ‘处理黄色的子程序
Case Else ’处理其他色的子程序
Call others
End Select
DataBuf(j + BmOffBits)///这是什么呀？你自己写的函数吗？
for i=0 to 4095
Select Case buf(i)
case &HF3
but(i)=&H01
case &HFA
but(i)=&H00
case &HFF
but(i)=&H02
Case Else ’处理其他色的子程序
Call others
end sselect
next