UC知道VB 关于十六进制的计算问题,想增加需求
来源：百度知道 编辑：UC知道 时间：2024/07/03 04:58:09
三个文本框控件.
第一个和第二个是加数,第三个是结果
第一个控件里面的值是固定不变的.
第二个控件加数和第三个控件结果是可以输入,并相应变化的
对于第三个控件的需求:只有输入长度为8位的十六进制且开头是45和44开头的才开始计算:Text2 = Hex(Val("&H" & Text3) - Val("&H" & Text1))
如果小于8位长度不进行计算
请大家帮忙,验证OK再加分
第一个和第二个是加数,第三个是结果
第一个控件里面的值是固定不变的.
第二个控件加数和第三个控件结果是可以输入,并相应变化的
对于第三个控件的需求:只有输入长度为8位的十六进制且开头是45和44开头的才开始计算:Text2 = Hex(Val("&H" & Text3) - Val("&H" & Text1))
如果小于8位长度不进行计算
请大家帮忙,验证OK再加分
表达得不太清楚...先将就着给你写一个:
sub text2_change()
text3=Hex(Val("&H" & Text2) + Val("&H" & Text1))
end sub
sub text3_change()
if len(cstr(val(text3)))=8 and len(trim(text3))=8 and trim(text3) like "4[4,5]*" then Text2 = Hex(Val("&H" & Text3) - Val("&H" & Text1))
end sub
自己测试吧,有问题的话,自己改一下就好了.