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
’以上代码供大家测试一下 调用一次可以 多�
相关问答：
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
现在我想根据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
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
