.hwnd类型不匹配如何解决
.hwnd类型不匹配如何解决
ForceForegroundWindow Application.hwnd
Dim objForm As Object ' New PiLiangTiHuan.TiHuan
Set objForm = CreateObject("PiLiangTiHuan.TiHuan")
Set objForm.Application = Application
DoEvents
objForm.ShowFormMain
ForceForegroundWindow Application.hwnd
Dim objForm As Object ' New PiLiangTiHuan.TiHuan
Set objForm = CreateObject("PiLiangTiHuan.TiHuan")
Set objForm.Application = Application
DoEvents
objForm.ShowFormMain
...全文


