用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
0条评论