make_link.bas

来自「VB写的一个IDE开发环境,支持脚本运行,内置了一个简单的编译器,可以直接生成E」· BAS 代码 · 共 31 行

Attribute VB_Name = "Make_Link"
Option Explicit
Dim Via_M_L As Via

Public Sub Link()
Dim Tmp As String
Dim Temp As String
    frmMain.ActiveForm.Text1.Text = frmMain.ActiveForm.rtfText.Text
    Open App.Path & "\Link.Tmp" For Output As #1
        Print #1, frmMain.ActiveForm.Text1.Text
    Close #1
    Set Via_M_L = New Via
    Via_M_L.Make App.Path & "\Link.Tmp", App.Path & "\Tmp.exe", 1, Tmp, Temp
    MsgBox Temp, , Tmp
    Kill App.Path & "\Link.Tmp"
End Sub

Public Sub Make()
Dim Tmp As String
Dim Temp As String
    frmMain.ActiveForm.Text1.Text = frmMain.ActiveForm.rtfText.Text
    Open App.Path & "\Make.Tmp" For Output As #1
        Print #1, frmMain.ActiveForm.Text1.Text
    Close #1
    Set Via_M_L = New Via
    Via_M_L.Make App.Path & "\Make.Tmp", App.Path & "\Tmp.exe", 1, Tmp, Temp
    MsgBox Temp, , Tmp
    Kill App.Path & "\Make.Tmp"
End Sub