まず ActiveX Dll を作成します:
新しい VB6 プロジェクトを作成します。ActiveX DLl はプロジェクトに P_test、クラス名に c_test という名前を付けます。クラス ファイルの内容は次のとおりです:
Option Explicit
Private MyScriptingContext As ScriptingContext
Private MyApplication As Application
Private MyRequest As応答として Private MyResponse を要求
サーバーとして Private MyServer
セッションとして Private MySession MyScriptingContext。レスポンス
Set MyServer = MyScriptingContext.Server
Set MySession = MyScriptingContext.Session
End Sub
Public Sub OnEndPage()
Set MyScriptingContext = Nothing
Set MyApplication = Nothing
Set MyRequest = Nothing
Set MyResponse = Nothing
Set MyServer = No事
Set My Session=Nothing
End Sub
If num If num > 0 then Get_Number_Attrib = 1 |