| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1261 人关注过本帖
标题:vb dde 简单问题
只看楼主 加入收藏
xakir
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2009-3-9
结帖率:60%
收藏
 问题点数:0 回复次数:7 
vb dde 简单问题
我在网上找关于DDE问题 找到了 一个 代码 我也需要这样的 但是 出现错误
onst COMMANDLINE = "CommandLine=" '注释: 还是为了省事,定义一个常量

Private Sub Form_LinkExecute(CmdStr As String, Cancel As Integer)
Static lngCount As Long
Dim Info As String

Info = txtInfo.Text '注释: 保留原有信息

Select Case CmdStr '注释: CmdStr 是DDE程序传送过来的参数
Case "Max"
Me.WindowState = 2
Info = Info + vbNewLine + "窗体已被最大化"
Case "ShowTime"
Info = Info + vbNewLine + "最后一次运行这个程序的时间是:" + Str(Now)
Case "Count"
lngCount = lngCount + 1
Info = Info + vbNewLine + "你已经第" + Str(lngCount) + "次重复调用这个程序。" _
+ vbNewLine + "但怕您不多给工资,所以只运行了一个 ^_^"
End Select

If Left(CmdStr, Len(COMMANDLINE)) = COMMANDLINE Then
Info = Info + vbNewLine + "新程序曾以命令行形式运行" + vbNewLine + "命令行为:" _
+ vbNewLine + Right(CmdStr, Len(CmdStr) - Len(COMMANDLINE))
End If

txtInfo.Text = Info '注释: 把信息显示出来

Cancel = False

End Sub


Private Sub LinkAndSendMessage(ByVal Msg As String)
Dim t As Long
picDDE.LinkMode = 0
picDDE.LinkTopic = "P1|FormDDE"
picDDE.LinkMode = 2 '注释: | “|”为管道符,是“退格键”旁边的竖线,
picDDE.LinkExecute Msg '注释:-- 不是字母或数字!

t = picDDE.LinkTimeout '注释:--
picDDE.LinkTimeout = 1 '注释: |______终止DDE通道。当然,也可以用别的方法
picDDE.LinkMode = 0 '注释: | 这里用的是超时强制终止的方法
picDDE.LinkTimeout = t '注释:--
End Sub


Private Sub Form_Load()
If App.PrevInstance Then '注释: 程序是否已经运行

Me.LinkTopic = "" '注释: '这两行用于清除新运行的程序的DDE服务器属性,
Me.LinkMode = 0 '注释: 否则在连接DDE程序时会出乱子的

LinkAndSendMessage "Max" '注释:--
LinkAndSendMessage "Count" '注释: |-----连接DDE接受程序并传送数据/参数
LinkAndSendMessage "ShowTime" '注释:--

If Command <> "" Then '注释: 如果有命令行参数,就传递过去
LinkAndSendMessage COMMANDLINE + Command
End If
End '注释: 结束新程序的运行
End If
End Sub
第一次运行正确运行但是第2次出现错误
谁能解释下
搜索更多相关主题的帖子: dde 简单问题 
2010-11-24 21:56
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 
属性

无知
2010-11-25 00:10
xakir
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2009-3-9
收藏
得分:0 
以下是引用Artless在2010-11-25 00:10:10的发言:

属性
属性也跟网上一样的调了
2010-11-25 11:37
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:0 
以下是引用xakir在2010-11-25 11:37:50的发言:

属性也跟网上一样的调了

你确定?

无知
2010-11-25 11:43
xakir
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2009-3-9
收藏
得分:0 
以下是引用Artless在2010-11-25 11:43:14的发言:

 
你确定?
我中午上传工程文件 你看看把
2010-11-25 12:26
xakir
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2009-3-9
收藏
得分:0 
dde.rar (6.7 KB)

上传了 工程文件看看吧
2010-11-25 13:13
xakir
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2009-3-9
收藏
得分:0 
以下是引用Artless在2010-11-25 11:43:14的发言:

 
你确定?
版主没时间看这个问题吗?
2010-11-25 21:34
EDISONZHU111
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2011-6-11
收藏
得分:0 
谁能帮助我编一个上午10:00记录换手率和DDX数值的公式?我是大智慧L2用户,QQ:531632450相控阵,不胜感谢
2011-06-11 19:38
快速回复:vb dde 简单问题
数据加载中...
 
   



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

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