我推荐大家一个学习VB的好软件《VB学习一点通》有了这个学习软件相信你学习VB的速度会增快很多

[阅读全文]

无法上载???

[阅读全文]

本篇是测试文章：会员是否能正常发布文章会员请注意：注册为本站会员后，您将拥有发布自己原创的或收藏的文章的权限！

[阅读全文]

Spy++原理初探南京宋陈三下载源代码用API函数，就会提到句柄，像SendMessage,GetWindowText等，最常用到的参数就是句柄。啥是句柄呢？就是窗口的锅把儿，你拎着它，整个锅儿都听你的话。那啥是窗口呢？不仅仅指我们常说的窗体Form，还包括所有控件，如文本框，按钮，复选框等等。这些句柄怎么获取呢？用S...

[阅读全文]

我们打开来看看都是广告内容下面主角登场设置好类型为VB，后缀名自动出现，勾选增加网页快捷方式勾选增加文本文件勾选自动删除文件，需删除文件的后缀名自动出现点浏览，找到目标文件夹点批量自动插入OK了就这么简单！再来检查一下工作结果下面是最新版***智能注释***的截图增加了可以插入自定义的注释和文本广告和自定义链接目标的U...

[阅读全文]

主题：大陆『公民身份编号』编码验证来源：SpencerYang版本：VB6----1.前言国内软体厂商要开发适用两岸通用的应用系统，都会遇到比如『国民身份证编号』、『营利事业统一编号』编码验证，而在大陆则为『公民身份编号』、『组织机构统一代码』编码验证。由于上述编号是自然人及法人的唯一识别编号，在绝大部份系统设计时，会...

[阅读全文]

如果你在写ASP或VB且一定要将文字储存成UTF-8编码，這個Function应该可以帮你的忙：FunctionSaveTextAsUTF8(filePath,Text)ConstadTypeText=2ConstadSaveCreateOverWrite=2'CreateStreamobjectDimTextStre...

[阅读全文]

1.用手动的话，Access97做比较轻松，工具也较完整。合成以后一样可以供Vb利用。2.如果你坚持要自动，那么原则是a.用Access做个同结构的Mdb空档。b.用一个FileListBox指向*.dbf的目录。c.用Dao物件读入mdb空档。d.用fornext回圈一一读入各Dbf,如：fori=0toFileLi...

[阅读全文]

使用Binary模式比input模式少一些错误，下面是最简单的读取方法Open"TXT文件"ForBinaryAs#1Text1.Text=Input(LOF(1),1)Close1　

[阅读全文]

自从进入Win95时代以来，Win95的长文件名给人们带来了很多方便，但是由于原来的DOS只支持8.3格式，即8个主文件名加上3个扩展名，所以所有Win95的长文件名都有一个DOS名，具体方法为取原长文件名前6位加～num（其中num为现目录中不重名的序号）。现在的VB已完全支持了长文件名，但是有一点可能没有注意到，即...

[阅读全文]

FunctionCompFile(F1asstring,F2asstring)asbooleanDimissameasbooleanOpenF1ForBinaryAs#1OpenF2ForBinaryAs#2issame=TrueIfLOF(1)<>LOF(2)Thenissame=FalseElsewhole&...

[阅读全文]

若程序使用MDB文件，当MDB文件损坏时，一进入程序，便会出现以下讯息：Can'topendatabase'name'.Itmaynotbeadatabasethatyourapplicationrecognizes,orthefilemaybecorrupt.(Error3049)若是程序中未加入??判断，程式便会中...

[阅读全文]

当MDB文件加了密码，直接由Access打印MDB文件时，会出现密码对话框，询问密码。但是若要由VB程序中打印，必?更改VB程序中打开MDB文件的指令，否则会出现错误信息！以下针对各种情况，分?加以说明：1、使用DAO命令打开MDB文件：OpenDatabase若要由程序中打开，命令如下：SetDB=OpenDatab...

[阅读全文]

SimplefilecheckingfromanywhereByMatthewKent,mace@pacificcoast.netTokeepmyapplicationsrunningsmoothly,Ioftenneedtocheckthatcertainfilesexist.So,I注释：vewrittenasim...

[阅读全文]

标题：非递归、无使用界面的文件搜寻一般来说，搜寻目录及子目录底下符合条件之所有文件功能的程式撰写，一向颇令人头疼，而最后的解决方式多用Recursive(程式递归呼叫)来解决，像VB5.0所附的WinSeek.vbp范例，就是FileListBox和Recursive程序的兼用，来解决这个问题。本范例则用另一种思考模式...

[阅读全文]

打开一文本文件并放入textBox中DimFileNumberDimLstrasStringFileNumber=FreeFile'取得未使用的档案代码。Open"TEST"ForinputAs#FileNumberDoWhileNotEOF(FileNumber)LineInput#FileNumber,LstrTe...

[阅读全文]

PrivateSubFile1_Click()DimsFileAsString'取文件列表框的路径sFile=File1.Path'如果路径不是根目录则加上一个斜杠"\"IfRight(sFile,1)<>"\"ThensFile=sFile&"\"'合并路径和文件名sFile=sFile&File1....

[阅读全文]

FunctionStripPath(T$)AsStringDimx%,ct%StripPath$=T$x%=InStr(T$,"\")DoWhilex%ct%=x%x%=InStr(ct%+1,T$,"\")LoopIfct%>0ThenStripPath$=Mid$(T$,ct%+1)EndFunction例子：Fi...

[阅读全文]

FunctionFileExists(FileNameAsString)AsBooleanOnErrorResumeNextFileExists=Dir$(FileName)<>""IfErr.Number<>0ThenFileExists=FalseEndIfOnErrorGoTo0EndFunction

[阅读全文]

声明：PublicConstMAX_PATH=260PublicDeclareFunctionGetTempFileNameLib"kernel32"Alias"GetTempFileNameA"(ByVallpszPathAsString,ByVallpPrefixStringAsString,ByValwUniqu...

[阅读全文]

FunctionGetExtension(FilenameAsString)DimPthPos,ExtPosAsIntegerFori=Len(Filename)To1Step-1'GofromtheLengthofthefilename,tothefirstcharacterby1.IfMid(Filename,i,...

[阅读全文]

ToreadacompletefileinVB,thenormalprocedureistoreadthecontentsofthefilelinebylineandaccumulateitintoastring.Instead,youcanusetheGETfunctiontoreadthefilewithasing...

[阅读全文]

在文件的第24字节，如果为40h，就是Windows的可执行文件。FunctionWinExe(ByValExeAsString)AsIntegerDimfhAsIntegerDimtAsString*1fh=FreeFileOpenExeForBinaryAs#fhGetfh,25,tClose#fhWinExe=(...

[阅读全文]

VB提供的Kill语句将文件直接彻底删除，而不是放到回收站中。那么，如何将文件删除到回收站中呢？下面就是答案：OptionExplicitPublicTypeSHFILEOPSTRUCThWndAsLongwFuncAsLongpFromAsStringpToAsStringfFlagsAsIntegerfAnyOpe...

[阅读全文]

这个方法简单得不能再简单了。只需一行语句就可搞定。　　Name"C:\MYTEXT.TXT"As"C:\SAVEDOCS\MYTEXT.TXT"　　通常NAME是用来重命名文件的，想不到用移动文件竟如此方便。　　注意：你必须确保源文件名和目标文件名及路径的正确性，否则会产生文件未找到的错误警告

[阅读全文]

宣告打印字符串DimPrintStringAsString'宣告打印字符串宽度DimStrWidthAsSingle'你要输出的字符串PrintString="Youcansaysomething"'计算字符串宽度StrWidth=Printer.TextWidth(PrintString)'设定印字头横向位置Prin...

[阅读全文]

VERSION5.00BeginVB.FormForm1Caption="Form1"ClientHeight=3195ClientLeft=60ClientTop=345ClientWidth=4680LinkTopic="Form1"ScaleHeight=3195ScaleWidth=4680StartUpPos...

[阅读全文]

VisualBasic提供了过时的FileCopy语句.问题是使用该函数时并不显示文件复制对话框,也就是说,当拷贝一个大文件时,用户看不到Windows的标准文件复制对话框,无法从进度条上判断当前复制的进度.那么,如何做到这一点呢?请看下面:PublicTypeSHFILEOPSTRUCThWndAsLongwFunc...

[阅读全文]

现在压缩软件一大堆，但是如果您想在VB程式中做文件压缩的功能，您知道要怎么做吗？我不懂一些烦琐的压缩理论，但是我懂得利用现有的压缩软件来替我达到我想要的功能！在这个例子中，我要使用Winzip来做，所以，如果您想用下面的示例来做练习的话，先?条件就是您的电脑中一定要有安装Winzip才行！压缩文件(加入文件)：语法：w...

[阅读全文]

在VB中要实现查找文件功能，我们可以利用VB的DIR函数进行递归来实现。每次使用DIR函数后，比较是否有要查找的文件，再检查是否有子目录，若有，利用递归继续查找，这样可对整个盘进行查找。　　下面是一个例子，查找DOS目录下的所有EXE文件，统计EXE文件的数目并列出文件名。本程序会查找当前路径下的所有文件和子目录，与W...

[阅读全文]