VB使用函数指针~高手来 很值得研究
网上 某某大师的vb函数指针看不懂
不懂汇编 ~~~ 等等~ 很多不懂
vb想使用函数指针难啊
目前搞出个东西，当然也就错的一塌糊涂了，不过有点效果
现在就想求高手给点帮助
在标准模块里搞一个空函数 一个fun2
public function Fun1（byval v as long ） as long
end function
public function Fun2（byval v as long ） as long
Debug.Print "fun2->" & v
end function
'form1
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
dim orifp as long
dim fp as long
dim callfp as long
Private Sub Form_Load()
CopyMemory orifp, GetFunAddr(AddressOf Fun1) + 22, 4
CopyMemory Fp, ByVal orifp, 4
CopyMemory orifp, ByVal Fp + 1, 4
CopyMemory callfp, GetFunAddr(AddressOf Fun2) + 22, 4
CopyMemory callfp, ByVal callfp, 4
CopyMemory callfp, ByVal callfp + 1, 4
CopyMemory ByVal Fp + 1, callfp, 4
Fun2 12345&
end sub
Private Function GetFunAddr(ByVal addr As Long) As Long
GetFunAddr = addr
End Function
'结果 fun2-> 12345
’以上代码供大家测试一下 调用一次可以 多�
相关问答：
本人使用的是VB6.0版本
假设有一个对象A，A内有类型为B的对象属性。现在的问题是，需要添加若干个B对象作为A对象的属性。如，
A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
把已有数据（数据大于20行）的RS(recordset)的第10行数据与第11行数据做加法后，删除第11行的数据，然后把后面的数据向前移。
RS的话修改数据是会更新数据库，现在的问题是RS里的已有数据是用SQL语句分类统计出来的 ......
数据库里有一个字段的内容是二进制，怎么才能把这个二进制读出来
使用字节流对象可以实现
例如现在数据库里有个字段的内容是0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
点击按钮后弹出进度条窗口，要在30%的时候停顿1秒 40%停顿2秒，然后走完进度条后提示保存成功！
请问如何写？
进度条用那个VB6自带的progressbar控件,定时用timer
我在本站找了这几个帖,估计够你用
http://topic ......
