clscodeadapter.cls

来自「一个由VB开发的。NET实体生成器` 提高.net代码质量及开发效率」· CLS 代码 · 共 27 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsCodeAdapter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False


Private adtAdoType As AdoNetType
Private strContents As String

Public Sub Init(ByVal AdoType As AdoNetType, ByVal Contents As String)
    adtAdoType = AdoType
    strContents = Contents
End Sub

Public Sub ExportCode(ByVal Path As String)
    MsgBox Path
End Sub