用VisualBasic编程建立自己的回收

要在Windows 95中删除文件或文件夹，只需用鼠标将文件(文件夹)拖到回收站，然后松开鼠标按钮。这种可视化的操作给用户带来了极大的便利。如果程序开发者能在自己的程序中做到这一点，并添加一个与Windows中风格相同的回收站，那么开发出来的程序一定会受到用户的欢迎。怎样才能完成这个操作？本文介绍了一种利用Visual Basic编程来完成这一动作的方法。

在Microsoft Windows数据中，通过按下鼠标按钮来移动对象称为拖动，释放鼠标按钮称为放下。在Visual Basic中，如果在一个项目中使用多个窗体，可以将图标从一个窗体拖放到另一个窗体。控件允许两种拖动，具体取决于DragMode属性的两个不同值。默认情况下，DragMode属性的值为0，除特定情况外，不允许拖动控件；将此属性的值更改为1(自动)意味着用户可以拖动控件。

下面介绍拖动鼠标删除文件的实现过程。在Visual Basic项目中，允许用户将代表文件的图标拖动到处理单元，相当于Windows 95中的回收站，并在给出警告后从磁盘中删除文件。

第一步是用两个窗体启动一个项目，在启动窗体的下角添加一个图片框(或者图片控件)，并将这个控件的图片属性设置为TRASH03中的图标。ICO文件，它位于图标库的计算机子目录中。如果使用图片框，请将AutoSize属性设置为True(如果选择图像控件，请将Stretch属性设置为False)。

第二步是建立两个控件数组，一个是带有控件名FileName的label数组，另一个是带有文件名Files的image控件数组。将图像控件的DragMode属性设置为1(自动)；将Visble属性设置为False，使label和image控件在运行时不可见。通常，这些控件数组中的所有后续元素都会继承这些特征。

这个项目中的大部分工作反映在下面的DragDrop事件过程中:

private Sub Garbage _ DragDrop(Source As Control，X As Single，Y As Single)
' local variables
Dim Msg As String
Dim Control index As Integer，yes no As Integer
Control index = Source。索引
表单。文件名(控件索引)。Visble=False
Msg= "您真的要删除吗"+
Forml。文件名(控件索引)。Caption
YesNo=MsgBox(Msg，vbYesNo，“确认框”)
如果YesNo=vbYes那么
Kill(Forml .文件名(控件索引)。Caption)
卸载文件(ControlIndex)
卸载Forml。FileName(ControlIndex)
Else
Forml。文件名(控件索引)。Visible=True
Forml。文件(ControlIndex)。visible = True
End If
End Sub

事件过程中ControlIndex的行代码查找被拖动控件的索引；接下来的两行代码使图片框和标签在放置操作后暂时不可见。index变量让Visual Basic从标记数组中提取标题(即文件名)。消息框的类型为=vbYesNo，因此它是一个带有标题确认框的是/否消息框。Kill命令从磁盘上删除文件。一旦程序删除了文件，它将从控件数组中删除标签和图片框。如果用户操作错误，确认消息框返回否，则程序代码使原来的图片框和标签重新出现。

接下来，建立一个称为Directons的通用过程，该应用程序所需的信息显示在一个表单上，该表单用作自定义对话框。

Sub Directons ()
Forml。隐藏
表单2。显示
表单2。Cls
Form1。这个程序演示了拖放鼠标的操作。
Form2。打印“用户在消息框内给出一个文件规范和一个表单”
Form2。“打印”出现，图标标有具有该文件规格的所有文件
Form2。打印"用户可以拖动图标到& acute脸红和急性；离开，即删除。”
结束Sub

单击对话框上的确定按钮，如下所示:

private Sub Bt NOK-Click()
Me。隐藏
表单1。Show
End Sub