文章正文

谁能够提供有关DDE的详细介绍以及范例程序。

类型：转载责任编辑：asp 日期：2007/03/01

谁能够提供有关dde的详细介绍以及范例程序。

推荐阅读

多功能计算器 RDcalc V2.1 [详细内容]

“分级打印”势不可挡吗? [详细内容]

爱上七彩的浪漫爱国者F527彩音盒温馨上市 [详细内容]

在Excel工具栏中添加一个计算器 [详细内容]

6020我之见 [详细内容]

[上海]周一音频:MP3苹果\三星\飞利浦一起跌 [详细内容]

用C#写计算器程序 [详细内容]

网友回答:

网友：sxs69

将一些值放置到一个新工作单的第一行的单元里，并按照这些值画图。linkpoke 将画图需要的值发送到 microsoft excel 的工作单上。要检验此示例，计算机中必须装有 microsoft excel 而且要在 autoexec.bat 文件的路径中声明。将本例代码粘贴到一个带缺省名 text1 的 textbox 控件的窗体的声明部分。
private sub form_click ()
dim cmd, i, q, row, z 声明变量。
q = chr(34) 定义引用标记。
创建一个含有 microsoft excel 宏指令的字串。
cmd = "[activate(" & q &"sheet1" & q & ")]"
cmd = cmd & "[select(" & q & "r1c1:r5c2" & q & ")]"
cmd = cmd & "[new(2,1)][arrange.all()]"
if text1.linkmode = vbnone then
z = shell("excel", 4) 启动microsoft excel。
text1.linkic = "excel|sheet1" 设置连接主题。
text1.linkitem = "r1c1" 设置连接项目。
text1.linkmode = vblinkmanual 设置连接模式。
end if
for i = 1 to 5
row = i 定义行号。
text1.linkitem = "r" & row & "c1" 设置连接项目。
text1.text = chr(64 + i) 将值放置在 text 中。
text1.linkpoke 将值放入单元。
text1.linkitem = "r" & row & "c2" 设置连接项目。
text1.text = row 将值放置在 text 中。
text1.linkpoke 将值放入单元。
next i
text1.linkexecute cmd 执行 microsoft excel 命令。
on error resume next
msgbox "linkpoke dde demo with microsoft excel finished.", 64
end
end sub

将一些值放置到一个新工作单的第一行的单元里，并按照这些值画图。linkexecute 向 microsoft excel 发送激活工作单的命令，选择一些值并按照它们画图。要检验此示例，计算机中必须装有 microsoft excel 而且要在 autoexec.bat 文件的路径中声明。将本例代码粘贴到一个带缺省名 text1 的 textbox 控件的窗体的声明部分。
private sub form_click ()
dim cmd, i, q, row, z 声明变量。
q = chr(34) 定义引用标记。
创建一个含有 microsoft excel 宏指令的字串。
cmd = "[activate(" & q &"sheet1" & q & ")]"
cmd = cmd & "[select(" & q & "r1c1:r5c2" & q & ")]"
cmd = cmd & "[new(2,1)][arrange.all()]"
if text1.linkmode = vbnone then
z = shell("excel", 4) 启动 microsoft excel。
text1.linkic = "excel|sheet1" 设置连接主题。
text1.linkitem = "r1c1" 设置连接项目。
text1.linkmode = vblinkmanual 设置连接模式。
end if
for i = 1 to 5
row = i 定义行号。
text1.linkitem = "r" & row & "c1" 设置连接项目。
text1.text = chr(64 + i) 将值放置在 text 中。
text1.linkpoke 将值放入单元。
text1.linkitem = "r" & row & "c2" 设置连接项目。
text1.text = row 将值放置在 text 中。
text1.linkpoke 将值放入单元。
next i
on error resume next
text1.linkexecute cmd 执行 microsoft excel 命令。
msgbox "linkexecute dde demo with microsoft excel finished.", 64
end
end sub

站内导航：

IT热门资讯：