vb中位操作 （在线等，满意即结贴） - VB / 基础类
一个整形变量 a
我现在想取 a 的第二字节 加上 （第一字节的后四位） 的计算结果，哪位能帮忙？
Dim val As Long
val = &HFFFFFFFF
val = val And &HFF0F&
Debug.Print Hex(val)
&HFF0F&
是什么意思？
&HFFFFFFFF ？
val = &HFFFFFFFF换成你自己的值
就是我转换前的 Integer 变量？
那 &HFF0F& 呢，什么意思？ 你给的这个算法能给解释下吗
你先说一个具体的例子，integer是多少，计算后又是多少？
好的。在c里，是这样做的，取integer型变量的第二字节，第二字节 加上 （第一字节 and 0F）
a=19984
转换后，得到十进制的78
VB code:
Option Explicit
Sub Main()
Dim a As Long
Dim b As Long
a = 19984
b = ((a And &HFF00&) \ &H100&) + (a And &HF&)
Debug.Print b
End Sub
第一字节的低四位与第二字节8位
首先注意,VB中的integer相当于c中的signed short,long相当于signed int，
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = 19984
b = a / 256//相当于右移8位,得到第二个字节
c = a And &HF //保留第一字节的后4位
a = b + c
谢谢，我调试下看看
搞定了，谢了
相关问答：
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
各位高手，小弟最近碰到一个问题：原先写的程序大概的思路是：首先webbrowser打开网址，网址显示后，点击网址上的某一个连接，当webbrowser检测到网址已经连接到想要的地址时候就开始下载文件，当用IE6的时候下� ......
