php调用dll的实例操作动画

Seven的部落格

<div id="cnblogs_post_body">这是我录制的一个gif操作动画,图片比较大,如果大家在线看图感觉不流畅的话可以把图片保存到本机再看.


动画中的原代码如下:
<div class="cnblogs_code"> 1 VERSION 1.0 CLASS 2 BEGIN 3   MultiUse = -1  'True 4   Persistable = 0  'NotPersistable 5   DataBindingBehavior = 0  'vbNone 6   DataSourceBehavior  = 0  'vbNone 7   MTSTransactionMode  = 0  'NotAnMTSObject 8 END 9 Attribute VB_Name = "tw"10 Attribute VB_GlobalNameSpace = False11 Attribute VB_Creatable = True12 Attribute VB_PredeclaredId = False13 Attribute VB_Exposed = True14 Option Explicit15 Private MyScriptingContext As ScriptingContext16 Private MyApplication As Application17 Private MyRequest As Request18 Private MyResponse As Response19 Private MyServer As Server20 Private MySession As Session21 Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)22 Set MyScriptingContext = PassedScriptingContext23 Set MyApplication = MyScriptingContext.Application24 Set MyRequest = MyScriptingContext.Request25 Set MyResponse = MyScriptingContext.Response26 Set MyServer = MyScriptingContext.Server27 Set MySession = MyScriptingContext.Session28 End Sub29 30 Public Sub OnEndPage()31 Set MyScriptingContext = Nothing32 Set MyApplication = Nothing33 Set MyRequest = Nothing34 Set MyResponse = Nothing35 Set MyServer = Nothing36 Set MySession = Nothing37 End Sub38 39 Public Function UserOut(User) As Variant40 UserOut = User41 End Function