Windows 消息应用:
①调用 API 函数 SendMessage 函数:
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As
Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
②声明常量:
Dim Wm_Copy=&H301 ‘定义向 Windows 发送复制命令的常数
Dim Wm_Cut=&H300 ‘定义向 Windows 发送剪切命令的常数
Dim Wm_Paste=&H302 ‘定义向 Windows 发送粘帖命令的常数
③写入代码:
Private Sub Command1_Click() ‘command1 是工程中按钮控件,Caption 属性是“复制”
SendMessage Text.hWnd, WM_copy, 0, 0 ‘Text 是工程中的一个文本框
End Sub
LinkItem 属性
在 DDE 与另一个应用程序会话时,返回或设置传给接收端的数据。
语法
object.LinkItem [= string]
LinkItem 属性语法包含下面部分:
部分 描述
Object
对象表达式,其值是“应用于”列表中的一个对象。
String
字符串表达式,指定传给目标控件的数据。
说明
该属性对应标准 DDE 语法中的 item 参数,标准 DDE 语法以 application,
topic 和 item 为参数。要设置该属性,在程序中选择一组可识别的数据作为
引用—例如,如 Microsoft Excel 中 "R1C1" 的单元引用。
与 LinkTopic 属性结合使用 LinkItem,确定发送端应用程序目标控件的完
整数据链接。设置 LinkMode 属性激活该链接。
只能对用做目标的控件设置 LinkItem。当 Visual Basic 窗体是 DDE 的会
话源时,窗体上任何 Label 名、PictureBox 或 TextBox 控件,都可以是