| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 596 人关注过本帖, 1 人收藏
标题:程序集成,调外部程序窗体
只看楼主 加入收藏
gisdreamfly
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2009-3-2
结帖率:87.5%
收藏(1)
 问题点数:0 回复次数:4 
程序集成,调外部程序窗体
我现有一个系统,需要与另外一程序做集成,情况是这样,我这边留个通道,可以打开另外一个程序。
比如,我这边留了一按钮,点击按钮后把参数传递给另外一个程序(需要传几个参数),然后打开另外一程序的初始窗体,请问如何做?

外部程序是封装成dll好,还是做出exe好?关键是参数能传递过来

谢谢各位大虾们了!
搜索更多相关主题的帖子: 窗体 
2010-03-03 11:26
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
做 EXE 吧.
使用 SHELL EXE 参数 的形式调用.

这样,外部文件单独时也能使用.

初始化窗口里,使用 command 对象可以取得运行时所传递的参数.

你传过去的参数,建议使用 一个标识符+具体参数的形式进行传递,这样灵活一些.




授人于鱼,不如授人于渔
早已停用QQ了
2010-03-03 11:56
gisdreamfly
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2009-3-2
收藏
得分:0 
多谢老大指点~~
2010-03-03 13:53
gisdreamfly
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2009-3-2
收藏
得分:0 
老大能不能详细说下 如何给外部程序传参数?
有个实例最好啊
2010-03-03 15:52
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
程序代码:
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

我工程属性里写了四个参数,注意一下.

传递参数.rar (2.15 KB)

授人于鱼,不如授人于渔
早已停用QQ了
2010-03-03 20:27
快速回复:程序集成,调外部程序窗体
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018869 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved