实现代码如下:Option Explicit Public Const MAXIMUM_ALLOWED As Long = &H2000000 Public Const DELETE As Long = &H10000 Public Const READ_CONTROL As Long = &H20000 Public Const WRITE_DAC As L... [阅读全文]

OptionExplicit 　　PrivateSubCommand1_Click　　DimstrPathNameAsString　　strPathName=\"\"　　strPathName=InputBox(\"请输入需要删除文件夹名称∶\",\"删除文件夹\")　　IfstrPathName=\"\"ThenExitSub　　　　OnErrorGoToEr... [阅读全文]

ute;独立模块中输入Option Explicit´ 共享信息Public Const NERR_NoWorkstation = 2102 ´ 工作站驱动器未被安装.Public Const NERR_UnknownServer = 2103 ´ 机器名不可用.Public Const NERR_RemoteOnly = 2... [阅读全文]

sp; 浏览文件夹中图片(用VB实现) 首先要新建个工程,在Form1中添加dirlistboxControl控件,drivelistboxControl控件,filelistboxControl控件,comboboxControl控件textboxControl控件vs... [阅读全文]

sp; 用createdirectory创建文件夹。（原创）Private Sub Command1_Click() Private Declare Function CreateDirectory Lib \"kernel32\" Alias \"CreateDirectoryA\" (ByVal lpPathName As String, lpSecurityAttributes As SEC... [阅读全文]

sp;抛弃Windows的默认图标吧，让自己的程序所在的目录拥有个性化的Folder Icon！其实作起来简单得很，实际上只需要一个Desktop.ini文件即可，下面我会从两个方面说明。1. 手动方式：首先要在需要改变的文件夹中创建一个Desktop.ini文件，例子如下[.ShellClassInfo]ConfirmFileOp=0InfoTip=我自己的文件夹IconIndex=0IconF... [阅读全文]

FunctionGetFileList(ByValPathAsString,ByRefFileName()AsString,OptionalfExpAsString=\"*.*\")AsBoolean DimfNameAsString,iAsLong IfRight$(Path,1)\"\"ThenPath=Path&\"\" fName=Dir$(Path&fExp) i=0 DoWhilefN... [阅读全文]

让我们直接来开始创建第个真正com对象它将被用于那些activex中 　　 具体步骤如下: 　　 启动visual basic； 　　 我们将看到个\" project\"对话框其中有几个和activex相关选项图标下面来解释下: 　　 activex dll——创建个包含类.dll这是我们将要采用选项； 　　 activex exe——创建个包含类.exe以后... [阅读全文]

这里我们直接创建个应用来测试下前面生成activex exe文件监视组件: 　　 新建个\"standard exe\"工程； 　　 下面需要添加个引用到我们新文件组件中去然后添加少量代码作尝试: 　　 选择\"project\"-\"references\"菜单； 　　 选中\"file\"组件选项然后单击[ok]按钮； 　　 在表单通用声明部分添加下列代码:... [阅读全文]

option explicit 　　private sub command1_click 　　dim strpathname as 　　strpathname = \"\" 　　strpathname = inputbox(\"请输入需要删除文件夹名称∶\", \"删除文件夹\") 　　 strpathname = \"\" then exit sub　　 　... [阅读全文]