'查找驱动器
Sub Command1_Click()
Dim FS, D
Dim i As Integer
'On Error Resume Next
Set FS = CreateObject("Scripting.FileSystemObject")
For i = 97 To 122 '(a 到 z)
DoEvents
If FS.DriveExists(Chr(i)) Then '驱动器存在
Set D = FS.getdrive(Chr(i))
If D.isready Then '驱动器就绪
Form1.Combo1.AddItem UCase(Chr(i) & ";/")
End If
End If
Next i
End Sub
阅读全文…… 汉字的UTF-8和GB2312编码转换
对于使用UTF-8的Google搜索引擎来说，使用Google搜索“汉字”会变成http://www.google.com/search?q= %E6%B1%89%E5%AD%97 ，而对于使用GB2312的百度搜索引擎来说，使用百度搜索“汉字”会变成另外的http://www.baidu.com/s?wd=%BA%BA%D7%D6 。下面的两段VB代码分别针对UTF-8（UTF8EncodeURI）和GB2312（GBKEncodeURI）进行了编码的转换。
阅读全文……Visual Basic 6.0结束使命
从2008年4月8日开始，微软将正式放弃对Visual Basic 6.0 IDE集成开发环境的支持。
不过如果你还没有把相关程序转移到.NET Framework平台上，也不用着急，因为微软会继续支持任何现有程序的VB 6.0 Runtime运行时，包括在Windows Vista和Windows Server 2008两套最新操作系统中。
当然，微软仍然强烈建议开发人员尽快投入到Visual Studio 2008的怀抱中，充分利用其高性能、高安全性、高效率和.NET优势。
阅读全文……[quote]'模块名称：modHideProcess.bas
'模块功能：在 XP/2K 任务管理器的进程列表中隐藏当前进程
'使用方法：直接调用 HideCurrentProcess()
阅读全文……Public Sub GetResFile(ByVal ResID As Long, ByVal FileName As String)
Dim bFile() As Byte
bFile = LoadResData(ResID, "CUSTOM") '将自定义资源中资源读入数组
If Dir(FileName) = "" Then '只有文件不存在时,才释放
阅读全文……将自定义资源中的文件释放出来[quote]'*************************************************************************
'**模块名：GetResFile
'**说明：将自定义资源中的文件释放出来
阅读全文…… VB 返回字符串中两个关键字中间字符
上次再写VB分析网页源代码中的URL的时候就用到，比如分析源代码中间所有url，url的格式是<a href="#">XXX</a>,url就在<a 和</a>中间，怎么得到呢。
考虑到普遍性，可以写一个function
阅读全文……[quote]Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _
(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) _
As Long
阅读全文……[quote]'清理数组中重复的数据
Public Function ClearArray(A() As String, ByRef B() As String)
Dim i As Long
Dim j As Long
Dim N As Long
阅读全文……录制屏幕操作成gif
写教程，写课件经常遇到要录制屏幕成gif动画，文件小，浏览方便，比录制成影片格式好多了。但是我没有发现那一款软件比较好的。gif-gif-gif 是一款不错的，但是还是有很多缺点，用起来很不方便。
由于对gif文件格式的不了解，也没有时间去研究她的算法。
阅读全文……字符串转数组 字符串中包含某个字符的个数
[quote]'返回某一字符串在另一个字符串中出现的次数 index返回出现的位置数组
阅读全文……个性回帖程序--木蚂蚁网友共享的程序
个性回帖 6.0 来自木蚂蚁 网友上传
[align=center][font=华云彩云][size=6]
个性回帖 6.0 来自木蚂蚁 网友上传[color=1800E7]
阅读全文……在vba中使用DLL或ocx解决vba做不到的事情
vba中有很多限制，不能使用vb中的很多控件，虽然vb的dll不是标准的dll，但是还是能解决一部分的功能。具体怎么使用呢
下次再说。
阅读全文……
用户登陆
站点日历
站点统计
最新评论
友情链接
其他信息
默认视图
文章列表
