VB中关于回调函数，和Addressof的用法 - VB / 基础类
'在一个公共类模块中有以下代码
Public Declare Function RegisterCallback1 Lib "XXX.DLL" (ByVal iAddress As Long)
Public Declare Function Start1 Lib "XXX.DLL" ()
Public Declare Function Stop1 Lib "XXX.DLL" ()
Public dev As Device
Public Function savePic(ByVal cd1 As CommonDialog, ByVal pic As PictureBox) As Long
Dim itm As Item
Dim img As ImageFile
On Error GoTo errmsg
'保存图片的代码，通过加载了wiaaut.dll完成以下功能
If Not dev Is Nothing Then
If dev.Type = VideoDeviceType Then
Set itm = dev.ExecuteCommand(dev.Commands.Item(1).CommandID)
If Not itm Is Nothing Then
Set img = cd1.ShowTransfer(itm)
If Not img Is Nothing Then Set pic.Picture = img.FileData.Picture
End If
End If
Else
MsgBox Err.Description, vbExclamation, gstrTitleInfo
End If
Exit Function
errmsg:
MsgBox Err.Description, vbInformation, gstrTitleI
相关问答：
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
现在我想根据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
......
把已有数据（数据大于20行）的RS(recordset)的第10行数据与第11行数据做加法后，删除第11行的数据，然后把后面的数据向前移。
RS的话修改数据是会更新数据库，现在的问题是RS里的已有数据是用SQL语句分类统计出来的 ......
数据库里有一个字段的内容是二进制，怎么才能把这个二进制读出来
使用字节流对象可以实现
例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
