前阵有人在VB专家门诊中提出个问题如何在VB中实现打开图像文件预览虽然给出了300分高分回答着却寥寥无几我在参照了DELPHI源代码后在VB中实现了其部分图像预览功能在中文WINDOWS98 SE下测试通过　　从MSDN中可以知道文件打开通用对话框需API GetOpenFileName原形如下:　　BOOL GetOpenFileName( LPOPENFILENAME lpofn );// l... [阅读全文]

实现代码如下: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... [阅读全文]

任何文件都可以，只要关联了相关的程序参考：[http://www.CrazyCoder.cn/]PrivateDeclareFunctionShellExecuteLib\"shell32.dll\"Alias\"ShellExecuteA\"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParamete... [阅读全文]

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