
VB 系统快照
vb 系统特殊文件夹 比如我的文档 桌面
vb 读取注册表
vb 查看磁盘ID、型号/厂家、分区卷、卷序列号
vb 查看内存和虚拟内存
vb 查看分辨率
vb 查看系统信息
vb 返回dos执行结果(过建立和读取临时文件)
vb 将reg文件添加到注册表
vb 查看本地连接IP MAC
vb MSHFlexGrid控件使用实例

|
-博客论坛-|-﨣﨤﨧﨨- -网站导航-|-规范下载- -BelovedFLash欣赏-
|
![]() VB 系统快照 vb 系统特殊文件夹 比如我的文档 桌面 vb 读取注册表 vb 查看磁盘ID、型号/厂家、分区卷、卷序列号 vb 查看内存和虚拟内存 vb 查看分辨率 vb 查看系统信息 vb 返回dos执行结果(过建立和读取临时文件) vb 将reg文件添加到注册表 vb 查看本地连接IP MAC vb MSHFlexGrid控件使用实例 ![]() 在VBA窗体设计中,可将一些开发中使用的控件全部选择后,直接拖至工具箱中,工具箱会添加一个"控件组",在窗体设计中可直接将该控件组放置于窗体,大大提高了效率(该特点为VBA所独有)。 如开发者需使用VBA标准控件箱未提供的其他控件,可右键单击工具箱,在出现的菜单中选择"附加控件"命令,在出现的对话框中进行选择即可。 在VBA窗体工具箱中附加控件中没有出现的控件,我们可以在vb的窗体中加入,然后在vba中导入该窗体,但是vbe不支持的控件就不能导入了。 ![]() '查找驱动器 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 ![]()
|
Tiancao Blog All Rights Reserved 田草博客 版权所有 Copyright © |