程序集成,调外部程序窗体
我现有一个系统,需要与另外一程序做集成,情况是这样,我这边留个通道,可以打开另外一个程序。比如,我这边留了一按钮,点击按钮后把参数传递给另外一个程序(需要传几个参数),然后打开另外一程序的初始窗体,请问如何做?
外部程序是封装成dll好,还是做出exe好?关键是参数能传递过来
谢谢各位大虾们了!
Option Explicit Private Sub Form_Load() Dim i As Long Dim j As String Dim k As String '其余参数 Dim fj() As String j = LCase(Command) '转小写,也就是大小写相同,如果要求不相同,那么就在后面判断里记得区分 Do While i <> Len(j) '去多余的空格,把多个空格换成一个空格 i = Len(j) j = Replace(j, " ", " ") '二个空格换成一个空格 Loop fj = Split(j, " ") '分成各段 For i = 0 To UBound(fj) j = Left(fj(i), 1) '取第一个字符 If j = "-" Then '是规定的参数前导符才继续 j = Mid(fj(i), 2, 1) '取第二个字符 Select Case j Case "a" '参数 a Text1.Text = Mid(fj(i), 3) Case "b" '参数 b Text2.Text = Mid(fj(i), 3) Case Else k = k & " " & fj(i) '其它参数,全连起来,示例 End Select End If Next i Text3.Text = Mid(k, 2) '显示其它参数 End Sub