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
谢谢，我调试下看看
搞定了，谢了
相关问答：
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
我想用VB做一个OCX（纯菜鸟，临时需要用VB做点东西，特来请教），A用户（IP：192.168.0.1）与B用户（IP：192.168.0.2）进行点对点的发送接收消息
要求采用OCX方式，比如A用户知道B用户IP，我直接传参（B的IP）至OCX ......
我的要求是：通过抓取别的程序上的表格的句柄，然后读取这个表格的内容。
表格句柄（类名：MSFlexGridWndClass）我已抓到，接下来如何读取表格的内容就不会了？求助。
能把代码发来学习下不？
244326867@qq.com ......
