建议楼主写一个VB6.0的Addin要求就类似一个向导程序。用VB6.0的Addin写个插件可以实现。调用编译器对象很好实现Dim oVBProjects As VBProjects, i As Integer Set oVBProjects = VBInstance.VBProjects
' If there is project currently, then remove it.. If oVBProjects.Count > 0 Then For i = 1 To oVBProjects.Count oVBProjects.Remove oVBProjects.Item(i) Next i End If
'Add the new project to current IDE...
Dim oNewPrj As VBNewProjects Set oNewPrj = oVBProjects.AddFromFile(sNewVBP) oNewPrj.Item(1).MakeCompiledFile
其他的没什么难度.
如图
单击form1中的command1后
生成a.exe与d:\
并且生成的exe
产品名=text1 公司名=text2 合法版权=text3 合法商标=text4 文件描述=text5 注释=text6 标题=text7
EXE中只有form2并且form2的源代码为text1中的也就是说
我想做一个框架
用户可以用我程序的框架生成程序
Set oVBProjects = VBInstance.VBProjects
' If there is project currently, then remove it..
If oVBProjects.Count > 0 Then
For i = 1 To oVBProjects.Count
oVBProjects.Remove oVBProjects.Item(i)
Next i
End If
'Add the new project to current IDE...
Dim oNewPrj As VBNewProjects
Set oNewPrj = oVBProjects.AddFromFile(sNewVBP) oNewPrj.Item(1).MakeCompiledFile