介绍关于RichTextBox(简称RTF)控件的消息和ListView控件的消息控制。

1.在Windows消息中，以EM_开头的消息是专门控制TextBox类控件和RTF类控件的。下面介绍的是如何利
用 EM_ 消息实现向 RichTextBox 中粘贴文本和位图。在 EM_消息中，有一个 EM_PASTESPECIAL 消息
可以从剪贴板中获取文本或者位图类数据并拷贝到 RTF 上。
　　运行程序，点击Command1，可以将剪贴板中的数据（位图或者文本）拷贝到RichTextBox1上。
　　在 EM_PASTESPECIAL 消息中，wParam 定义剪贴板数据类型，lParam 定义一个 repastespecial
类型的数据，其中的 dwAspect 说明数据以何种方式显示到 RTF 对象上，如果是 DVASPECT_CONTENT，
则将整个数据显示在 RTF 上，如果是 DVASPECT_ICON ，则只在 RTF 上显示一个图标。
　　经试，repastespecial 格式没有作用，因此参数4设为0即可。

Private Type repastespecial
  dwAspect As Long '显示方式
  dwParam As Long
End Type

Const WM_USER = &H400
Const EM_PASTESPECIAL = 1088
Const CF_BITMAP = 2
Const CF_TEXT = 1
Const DVASPECT_CONTENT = 1
Const DVASPECT_ICON = 4

Private Sub Command1_Click()
Dim re As repastespecial
re.dwAspect = DVASPECT_CONTENT
If Clipboard.GetFormat(vbCFText) Then ''剪贴板中为文本信息
?Call SendMessage(RichTextBox1.hwnd, EM_PASTESPECIAL, CF_TEXT, re)
ElseIf Clipboard.GetFormat(vbCFBitmap) Then ''剪贴板中为位图信息
?Call SendMessage(RichTextBox1.hwnd, EM_PASTESPECIAL, CF_BITMAP, re)
End If
End Sub

2.ListView控件也是Windows界面开发中重要的控件，典型的应用就是Windows资源管理器中的文件列
表。而在VB中，ListView控件包含在Microsoft Windows Common Control 6.0（也可能是5.0，视你的
VB或者系统版本而定）中。在 Windows API 中，有一系列的以 LVM_开头的消息值，这些消息就是扩展
ListView控件所特定的消息值，下面的范例介绍如何通过LVM_消息设置ListView控件中图标的间距。范
例如下：

Private Type RECT
?Left As Long
?Top As Long
?Right As Long
?Bottom As Long
End Type

Const LVM_FIRST = &H1000
Const LVM_SETWORKAREA = LVM_FIRST + 65
Const LVM_SETICONSPACING = LVM_FIRST + 53

Private Sub Form_Load()
Dim xn As ListItem
Me.Show
ListView1.Width = 4500
ListView1.Height = 3000
ListView1.Refresh
Set xn = ListView1.ListItems.Add
xn.Text = "List1"
Set xn = ListView1.ListItems.Add
xn.Text = "List2"
Set xn = ListView1.ListItems.Add
xn.Text = "List3"
Set xn = ListView1.ListItems.Add
xn.Text = "List4"
Set xn = ListView1.ListItems.Add
xn.Text = "List5"
Set xn = ListView1.ListItems.Add
xn.Text = "List6"
ListView1.Refresh
Call SendMessage(ListView1.hwnd, LVM_SETICONSPACING, 0, ByVal (60 * 65536 + 190&))
End Sub

　　要运行上面的程序，首先要确保ListView1的Arrange属性为1，View属性为0。在上面的程序中，我
们利用了 VM_SETICONSPACING 消息来控制图标间距。其中SendMessage中的参数lParam定义图标间距，
高位为纵向间距，低位为横向间距，在上面的范例中，我们将图标的纵向间距定义为60像素，横向间距
定义为190像素。
　　??