六月VB飞雪 六月VB飞雪
关注数: 1 粉丝数: 21 发帖数: 566 关注贴吧数: 0
用VB制作桌面文件分类程序 用VB制作像网吧那种桌面文件分类的程序。目前,我电脑上分了12个类。 看到有人说VB根本就做不出来,我就稳不住笑,明明是自己做不出来,怪VB;还有人说用文件夹,然后把文件夹图标改掉,这个怎么分类或切换? 既然大家都能想到文件夹,那为什么不会想到用VB读取文件夹呢? 有一定电脑基础的人都知道,explorer和ie是一个内核,可以用explorer浏览网页,也可以用ie浏览器显示文件夹。当然在VB中即可使用ie控件来完成以上所有工作: 首先,按^T在部件中选择:Microsoft Internet Control 把ie控件添加到窗体中,名称改为IE,在Load事件中输入:IE.Navigate2 App.Path 运行一下是不是显示的VB文件夹,保存工程,再运行,是不是显示当前工程所在的文件夹了,在这里创建你的分类用的文件夹,创建好后结束运行,返回IDE环境 创建命令按钮数组(注意一定要用数组,下标从0开始),标题分别那几个文件夹的名称,输入代码: Option Explicit Private Sub Command1_Click(Index As Integer) IE.Navigate2 App.Path & "\" & Replace(Left(Command1.Caption, Instr(Command1.Caption, "("), "&", "") End Sub Private Sub Form_Load() If App.PrevInstrance Then End Command1_Click Val(Command) End Sub Private Sub IE_TitleChange(ByVal Text As String) Me.BorderStyle = 1 Me.Caption = "桌面文件分类" & Chr(9) & "-" & Chr(9) & Text End Sub
1 下一页