这是我录制的一个gif操作动画,图片比较大,如果大家在线看图感觉不流畅的话可以把图片保存到本机再看.
动画中的原代码如下:
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 = False 11 Attribute VB_Creatable = True 12 Attribute VB_PredeclaredId = False 13 Attribute VB_Exposed = True 14 Option Explicit 15 Private MyScriptingContext As ScriptingContext 16 Private MyApplication As Application 17 Private MyRequest As Request 18 Private MyResponse As Response 19 Private MyServer As Server 20 Private MySession As Session 21 Public Sub OnStartPage(PassedScriptingContext As ScriptingContext) 22 Set MyScriptingContext = PassedScriptingContext 23 Set MyApplication = MyScriptingContext.Application 24 Set MyRequest = MyScriptingContext.Request 25 Set MyResponse = MyScriptingContext.Response 26 Set MyServer = MyScriptingContext.Server 27 Set MySession = MyScriptingContext.Session 28 End Sub 29 30 Public Sub OnEndPage() 31 Set MyScriptingContext = Nothing 32 Set MyApplication = Nothing 33 Set MyRequest = Nothing 34 Set MyResponse = Nothing 35 Set MyServer = Nothing 36 Set MySession = Nothing 37 End Sub 38 39 Public Function UserOut(User) As Variant 40 UserOut = User 41 End Function