コード: 全て選択
Class Test
AA As Long
Sub Proc()
AA=0
End Sub
End Class
Dim TestObject As Test
Dim ProcPtr As *Sub()
ProcPtr=AddressOf(TestObject.Proc)
ProcPtr()
これはバグでしょうか。あるいは回避する策があるのでしょうか。
Version 4.24.00 です。
コード: 全て選択
Class Test
AA As Long
Sub Proc()
AA=0
End Sub
End Class
Dim TestObject As Test
Dim ProcPtr As *Sub()
ProcPtr=AddressOf(TestObject.Proc)
ProcPtr()
コード: 全て選択
Sub Test_Proc_Thunk(ByRef test As Test)
test.Proc()
End Sub
Dim TestObject As Test
Dim ProcPtr As *Sub(ByRef test As Test)
ProcPtr = AddressOf (Test_Proc_Thunk)
ProcPtr(TestObject)