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
相关问答：
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
form1中有text1-8， 和command1
text8中为程序代码（生成窗体为form2（已做好））
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题
......
