vb如何进行位操作 - VB / 基础类
比如我一个long类型的变量x
现在我想把这四个字节写入到这个变量
&H1
&H2
&H3
&H4
使用指针的办法可以做到，我想知道有没有不使用指针的办法？
非常感谢！
http://www.xbeat.net/vbspeed/c_LongToBit.htm
VB code:
Option Explicit
Dim bytSj(3) As Byte
Dim i As Integer
Dim lngSj As Long
Private Sub Command1_Click()
bytSj(0) = &H11
bytSj(1) = &H2
bytSj(2) = &H3
bytSj(3) = &H4
For i = 0 To UBound(bytSj)
lngSj = lngSj + bytSj(i) * 256 ^ (3 - i)
Next
Text1 = lngSj
End Sub
VB code:
Option Explicit
Private Type bb
b1 As Byte
b2 As Byte
b3 As Byte
b4 As Byte
End Type
Private Type lng
lng As Long
End Type
Private Sub Form_Load()
Dim b As bb
Dim l As lng
b.b1 = &H1
b.b2 = &H2
b.b3 = &H3
b.b4 = &H4
LSet l = b
Debug.Print l.lng
End Sub
相关问答：
为什么我用form.show和form.hide多次连接了两个窗口只能互换链接两次啊？
代码看看
照道理form.show 没次数限定的吧
我也快疯了。
楼主知道怎么发贴么？
引用
我也快疯了。
楼主知道怎么发贴么？
楼主也 ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
怎么把已知的数据保存成xml文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
form1中有text1-8， 和command1
text8中为程序代码（生成窗体为form2（已做好））
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题
......
