VBIDE.VBE的应用

connect.dsr

Public VBInstance             As VBIDE.VBE

sub show

    Set Main_Form.VBInstance = VBInstance
    Set Main_Form.Connect = Me

    '自動試験プロジェクトパース名の取得
    tmpStr = VBInstance.VBProjects.Item(PRJTESTAUTO).FileName

end sub 

工程初始化的时候.....

  ' ==================================================
' METHOD:    PrjAutoTest_Initialize
' SUMMARY：  自動試験の工事の初期化
' PARAMETER: strname As String   仕向けとテストケースの情報
' RETURN:    true :初期化成功
'            false:初期化失敗
' ==================================================
Public   Function PrjAutoTest_Initialize() Function PrjAutoTest_Initialize(strname As String) As Boolean
On Error GoTo ErrHandler
    Dim objVBComponent As VBComponent
    Dim fso As FileSystemObject
    Dim count As Integer
    Dim lineP0 As Long
    Dim lineP1 As Long
    Dim lineP2 As Long
    Dim lineP3 As Long
    Dim lineP4 As Long
    Dim lineP5 As Long
    Dim lineP6 As Long
    Dim i As Integer
    Dim j As Integer
    Dim strTemp As String
    Dim tmpStr As String
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    '自動試験プロジェクトパース名の取得
    tmpStr = VBInstance.VBProjects.Item(PRJTESTAUTO).FileName
    path = getFolderName(tmpStr)
    count = VBInstance.VBProjects.Item(PRJTESTAUTO).VBComponents.count
    
    If fso.FileExists(path & LOG_VHDL2VB) Then
        '転換したモジュールの情報をファイルに記憶する
        Open path & LOG_VHDL2VB For Input As #1
            Do While Not EOF(1)
                Line Input #1, strTemp
                Call DelMod(strTemp)
            Loop
        Close #1
        'ログファイルの削除
        Call Kill(path & LOG_VHDL2VB)
    End If

    '試験項目一覧名の追加と関連コードの追加、まずマークのサーチを行います
    Set objVBComponent = VBInstance.VBProjects.Item(PRJTESTAUTO).VBComponents.Item("basMain")
    lineP0 = 1
    find = objVBComponent.CodeModule.find("@@##$$-0", lineP0, 0, 0, 0)
    
    lineP1 = 1
    find = find And objVBComponent.CodeModule.find("@@##$$-1", lineP1, 0, 0, 0)

    lineP2 = 1
    find = find And objVBComponent.CodeModule.find("@@##$$-2", lineP2, 0, 0, 0)

    lineP3 = 1
    find = find And objVBComponent.CodeModule.find("@@##$$-3", lineP3, 0, 0, 0)
    
    lineP4 = 1
    find = find And objVBComponent.CodeModule.find("@@##$$-4", lineP4, 0, 0, 0)

    lineP5 = 1
    find = find And objVBComponent.CodeModule.find("@@##$$-5", lineP5, 0, 0, 0)

    lineP6 = 1
    find = find And objVBComponent.CodeModule.find("@@##$$-6", lineP6, 0, 0, 0)
    If Not find Then GoTo ErrHandler
    
    '既に入っている試験項目の削除する
    For i = lineP0 + 1 To lineP1 - 1
        If Left(Trim(objVBComponent.CodeModule.Lines(i, 1)), 7) = "frmMain" Then
            Call objVBComponent.CodeModule.ReplaceLine(i, "")
        End If
    Next i
    '既に入っている試験項目の削除する
    For i = lineP1 + 1 To lineP2 - 1
        If Left(Trim(objVBComponent.CodeModule.Lines(i, 1)), 7) = "frmMain" Then
            Call objVBComponent.CodeModule.ReplaceLine(i, "")
        End If
    Next i
    '既に入っているロードVHDLを削除する
    For i = lineP3 + 1 To lineP4 - 1
        If Left(Trim(objVBComponent.CodeModule.Lines(i, 1)), 4) = "Case" Then
            Call objVBComponent.CodeModule.ReplaceLine(i, "")
        End If
    Next i

    '既に入っている試験関数を削除する
    For i = lineP5 + 1 To lineP6 - 1
        If Left(Trim(objVBComponent.CodeModule.Lines(i, 1)), 4) = "Case" Then
            Call objVBComponent.CodeModule.ReplaceLine(i, "")
        End If
    Next i
    
    '自動試験の仕向け情報を追加する
    lineStr = "            frmMain.labCaseName.Caption =""" & strname & """"
    Call objVBComponent.CodeModule.ReplaceLine(lineP1 - 1, lineStr)
    PrjAutoTest_Initialize = True
    Exit Function
ErrHandler:
    Call log_Output(path + "" + LOG_COMPILER, "自動試験プロジェクトの初期化する時,エラーが発生しました。")
    PrjAutoTest_Initialize = False
End Function

 

删除一个摸块

 

  ' ==================================================
' METHOD:    DelMod
' SUMMARY：  既に入っているモジュール削除する関数
' PARAMETER: strname As String　モジュールの名前
' RETURN:    　true 削除成功
'                false 削除失敗
' ==================================================
Private   Function DelMod() Function DelMod(strname As String) As Boolean
On Error GoTo Error:
Dim count As Integer
Dim i As Integer

    count = VBInstance.VBProjects.Item(PRJTESTAUTO).VBComponents.count
    
    If count > 0 Then
        For i = 1 To count
            If VBInstance.VBProjects.Item(PRJTESTAUTO).VBComponents.Item(i).name = strname Then
                'モジュールの削除
                VBInstance.VBProjects.Item(PRJTESTAUTO).VBComponents.Remove VBInstance.VBProjects.Item(PRJTESTAUTO).VBComponents.Item(i)
            End If
        Next i
    End If
    DelMod = True
    Exit Function
Error:
    DelMod = False
End Function

 

转化的一部分代码

 

     ' コンパイルしたVBファイルをプロジェクトに追加します。
     Set  objVBComponent  =  VBInstance.VBProjects.Item(PRJTESTAUTO).VBComponents.AddFile(path  &  strVhdlpath  &   " .bas " )
    
     ' 重複追加名前同じの場合
    count  =  VBInstance.VBProjects.Item(PRJTESTAUTO).VBComponents.count
     If  count  >   0   Then
         For  i  =   1   To  count
             If  VBInstance.VBProjects.Item(PRJTESTAUTO).VBComponents.Item(i).name  =   " vhdl_ "   &  entity  Then
                 Call  DelMod( " Module1 " )
                gComplierNGCount  =  gComplierNGCount  +   1
                 Call  log_Output(path  +   " "   +  LOG_COMPILER, shortName  &   " : Entity名重複。 " )
                 Exit Sub
             End   If
         Next  i
        objVBComponent.name  =   " vhdl_ "   &  entity
     End   If
        
     On   Error   GoTo  SkipRet
     ' 共通関数かどうかのチェック。共通関数モジュールであれば、メイン関数がないです。
     ' この場合、試験項目一覧名の追加と関連コードの追加がいらないです、SkipRetに飛びます。
    lineP0  =  objVBComponent.CodeModule.ProcBodyLine( " Test_ "   &  entity, vbext_pk_Proc)
    lineP0  =  objVBComponent.CodeModule.ProcBodyLine( " Load_ "   &  entity, vbext_pk_Proc)

     On   Error   GoTo  ErrHandler4
     ' 試験項目一覧名の追加と関連コードの追加、まずマークのサーチを行います
     Set  objVBComponent  =  VBInstance.VBProjects.Item(PRJTESTAUTO).VBComponents.Item( " basMain " )
    lineP0  =   1
    find  =  objVBComponent.CodeModule.find( " @@##$$-0 " , lineP0,  0 ,  0 ,  0 )

    lineP1  =   1
    find  =  find  And  objVBComponent.CodeModule.find( " @@##$$-1 " , lineP1,  0 ,  0 ,  0 )

    lineP2  =   1
    find  =  find  And  objVBComponent.CodeModule.find( " @@##$$-2 " , lineP2,  0 ,  0 ,  0 )

    lineP3  =   1
    find  =  find  And  objVBComponent.CodeModule.find( " @@##$$-3 " , lineP3,  0 ,  0 ,  0 )
    
    lineP4  =   1
    find  =  find  And  objVBComponent.CodeModule.find( " @@##$$-4 " , lineP4,  0 ,  0 ,  0 )

    lineP5  =   1
    find  =  find  And  objVBComponent.CodeModule.find( " @@##$$-5 " , lineP5,  0 ,  0 ,  0 )

    lineP6  =   1
    find  =  find  And  objVBComponent.CodeModule.find( " @@##$$-6 " , lineP6,  0 ,  0 ,  0 )
     ' マークのサーチが失敗する場合、エラーメッセージを出して、処理中止。
     If   Not  find  Then   GoTo  ErrHandler4

     ' 既に入っている試験項目の集計
    count  =   0
     For  i  =  lineP1  +   1   To  lineP2  -   1
         If   Left ( Trim (objVBComponent.CodeModule.Lines(i,  1 )),  7 )  =   " frmMain "   Then
            count  =  count  +   1
         End   If
     Next

     ' コンボボックスに試験項目名の追加
    lineStr  =   "                 Case  "   &  count  &   " : Test_ "   &  entity
     Call  objVBComponent.CodeModule.InsertLines(lineP6, lineStr)

     ' VHDLスクリプト表示のため、イベント処理コード追加
    lineStr  =   "                 Case  "   &  count  &   " : Load_ "   &  entity
     Call  objVBComponent.CodeModule.InsertLines(lineP4, lineStr)

     ' 自動試験を行うため、イベント処理コード追加
    lineStr  =   "             frmMain.Combo1.AddItem "" "   &  shortName  &   " "" "
     Call  objVBComponent.CodeModule.InsertLines(lineP2  -  count, lineStr)

     ' 転換したモジュールの情報をファイルに記憶する
    Open path  &  LOG_VHDL2VB  For  Append  As  # 1
            Print  # 1 ,  " vhdl_ "   &  entity
    Close # 1
    gComplierOKCount  =  gComplierOKCount  +   1
     Call  log_Output(path  +   " "   +  LOG_COMPILER, shortName  &   " : OK。 " )