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
相关问答：
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
在vb中如何读取Word内容(包含表格，图片，等）
竟然不是zero。
不知道怎么实现的不要说话
这个只能读文本,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
现在我想根据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文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
