首页 >> 读书频道 >> 电脑 >> 用VB建立自己的回收站下
 
· 取得Disk Volum
· 用VB建立自己的回收站上
· 菜单靠右
· 将立体ListView标
· 如何用VB6写COM组件
· 用VB编写键盘拦截程序
· 重启Windows 20
· ActiveX控件的创建
· 第18章 命名域
· ActiveX控件的创建
· ActiveX控件的创建
· ActiveX控件的创建
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

用VB建立自己的回收站下


查看有无更新版本

关键字:VB 2006-9-18

 

下一步,建立一个称为Directons的通用过程,在一个窗体上显示出给用户提供的这个应用程序所需的信息,该窗体用作一个定制对话框。
Sub Directons ()
Forml.Hide
Form2.Show
Form2.Cls
Form1.Print "This program illustrates dragging and dropping mouse operations."
Form2.Print "The user gives a file spec inside the message box and a form"
Form2.Print "appears with icons labelled by all the files with that file specifcation."
Form2.Print "The user can drag the icon to be 'flushed' away i. e. deleted."
End Sub

对话框上OK按钮的Click过程是:
Private Sub btnOK-Click ()
Me.Hide
Form1.Show
End Sub
启动窗体的Form-Load 过程需要装入Directons窗体并调用显示信息的通用过程。它可以这样的:
Private Sub Form-Load ()
Load Form2
Directons
End Sub
启动窗体上的File 菜单有以下两项:
New File Spec
Exit
单击New File Spec菜单项让用户查看新的目录或驱动器。这个菜单项会调用一个通用过程GetFile,从磁盘读入文件名。
最后,是如何处理新的文件说明。用户第一次使用这个应用程序时,Visual Basic装入两个控件数组中一定数目的元素。程序需要改变标题中所含的信息,这些标题含有要删除的文件的名字。这两个控件数组只装入一次,然后使用Dir $命令建立一个字符串,从磁盘读入住处后将这个数组中的值赋给标签的Caption特性。该程序代码要读磁盘信息两次来恰当地重新确定数组尺寸。至于菜单项,因为“N”加了下划线,用户可以按N作为激活这一项的简捷键。菜单打开后这个菜单的控件名设置成mnuNewFileSpec。这个控件的Click事件过程是:
Private Sub mnuNewFileSpec Click
Unload Form1
Load Form1
GetFile
End Sub 
Unload Form1这个代码行清除控件数组的旧元素。GetFile 处理过程是这样的:

Public Sub GetFile ( )
'local variables
Dim FileSpec As String
Form2. Hide
FileSpesc=InputBox$ ("File specification?")
If FileSpesc= "" Then
Directons
Else
Form1.Show
DisplayFiles (FileSpec)
End If
End Sub
在启动窗体上显示文件的详细住处包含在一个通用过程DisplayFiles中,该过程只有一个参数,该过程如下:
Public Sub DisplayFiles (FileSpec As String)
‘Local variables
Dim NameOfFile As String
Dim ControlIndex As Integer
Form1 .Show
Form1.Width=8000 
Form1.Height=5500
Form1.Garbage.Move 7000,4200 'move the garbage can icon
NameOfFile=Dir $(FileSpec)
If NameOfFile= " " Then
MsgBox "No Files found with that file specification
End If
ControlIndex= ControlIndex +1 'start with index=1
Do While NameOgFile<> ""
Load Form1.Files(ControlIndex)
Load Form1.FileName(Contro;Index)
Column=(ControlIndex Mod 6)
Row=(ControlIndex-1)\6 
Form1.Files(ControlIndex).Move(1300*Column)+275, 800*Row+2 'to allow for menu
Form1.FileName(ControlIndex).Move 1300*Column, 800*(Row+1)
Form1.Files(ControlIndex).Visible=True
Form1.Filename(ControlIndex).Visible=True
Form1.Filename(ControlIndex).Caption=NameOfFile
ControlIndex= ControlIndex+1
If ControlIndex >30 Then
MsgBox("Too many files!")
Exit Do
End If
NameOfFile=Dir$
Loop
End Sub

DO循环实现将图片框及标签分隔开,分隔的间距通过用不同的值试验确定。就像控件数组中的所有新元素一样,在将Visible特性设置成True之前,它们都是不可见的。
为了结束程序,只需将事件过程与窗体上的Quit菜单项关联,并增加一个查询Unload事件来结束程序。
Sub mnuQuit_Click()
Unload Form2 
Unload Me
End Sub
Sub Form_Unload(Cancel As Integer,Unload Mode As Integer) 
End
End Sub

以上程序的设计方法,介绍了怎样在Visual Basic中如何用鼠标拖动删除文件以及对文件的处理方法。程序设计通过控制鼠标的动态操作,使得用户操作时感到方便直观。如果在自己开发的的程序中能做到这些,就可以让自己的程序也会具有Windows风格。当然实现鼠标拖动删除文件方法很多,此处谈论的方法供各位同仁参考。

用VB建立自己的回收站下

[ 1 ]
用VB建立自己的回收站下 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑