田草博客,logo
日志搜索


 标题   内容 评论


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
日志首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件
-电信用户-|-网通用户-
-博客论坛-|-软件下载-
-网站导航-|-规范下载-
-BelovedFLash欣赏-

用户登陆
用户:
密码:
 

站点日历
73 2018 - 10 48
 123456
78910111213
14151617181920
21222324252627
28293031

站点统计

最新评论


友情链接

其他信息

[2] [3] [4] [5] [6] [7] [8] [9] [10] [11]  ... [11]  显示模式: 默认视图 | 文章列表
VB 外接程序 Word com加载项 插件实例

阅读全文……
作者:tiancao1001 | 分类:VB/VB.NET | 评论:1 | 引用:0 | 查看:6076
vb 让新开窗体成为其子窗体应用哈哈

阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:5802
未知 查找驱动器   [ 2008-06-27  |  本站原创 ]
'查找驱动器
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
阅读全文……
作者:tiancao1001 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:6746
未知 汉字的UTF-8和GB2312编码转换   [ 2008-04-29  |  转帖 ]
    汉字的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)进行了编码的转换。 阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:13723
未知 Visual Basic 6.0结束使命   [ 2008-04-22  |  本站原创 ]
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优势。 阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:14945
未知 宿迁惯蛋记牌器   [ 2008-04-14  |  本站原创 ]
宿迁惯蛋记牌器

按此在新窗口打开图片



阅读全文……
作者:tiancao1001 | 分类:VB/VB.NET | 评论:1 | 引用:0 | 查看:6407

[quote]'模块名称:modHideProcess.bas
'模块功能:在 XP/2K 任务管理器的进程列表中隐藏当前进程
'使用方法:直接调用 HideCurrentProcess() 阅读全文……
作者:tiancao1001 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:10330

Public Sub GetResFile(ByVal ResID As Long, ByVal FileName As String)
    Dim bFile() As Byte
    bFile = LoadResData(ResID, "CUSTOM") '将自定义资源中资源读入数组
    If Dir(FileName) = "" Then '只有文件不存在时,才释放 阅读全文……
作者:tiancao1001 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:26455
未知 VB自定义资源   [ 2008-04-02  |  本站原创 ]
将自定义资源中的文件释放出来
[quote]'*************************************************************************
'**模块名:GetResFile
'**说明:将自定义资源中的文件释放出来 阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:5458
VB 返回字符串中两个关键字中间字符


上次再写VB分析网页源代码中的URL的时候就用到,比如分析源代码中间所有url,url的格式是<a href="#">XXX</a>,url就在<a 和</a>中间,怎么得到呢。

考虑到普遍性,可以写一个function 阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:37701
VB三个注册表操作模块(都来自网络)



[quote]Option Explicit 阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:2 | 引用:0 | 查看:22489
[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 阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:3 | 引用:0 | 查看:44972
[quote]Option Explicit
'公用计数变量
Dim i As Integer
Dim B As Integer 阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:10631
[quote]'清理数组中重复的数据
Public Function ClearArray(A() As String, ByRef B() As String)
    Dim i As Long
    Dim j As Long
    Dim N As Long 阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:51180
未知 VB 汉字编码 转换   [ 2008-01-18  |  本站原创 ]
VB 汉字编码 转换



[quote]'字节数值转汉字 阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:51279
VB 读取网页源码并分析其中的URL

按此在新窗口打开图片
阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:1 | 引用:0 | 查看:72265
未知 录制屏幕操作成gif   [ 2007-11-23  |  本站原创 ]
录制屏幕操作成gif


写教程,写课件经常遇到要录制屏幕成gif动画,文件小,浏览方便,比录制成影片格式好多了。但是我没有发现那一款软件比较好的。gif-gif-gif 是一款不错的,但是还是有很多缺点,用起来很不方便。

由于对gif文件格式的不了解,也没有时间去研究她的算法。 阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:22900
字符串转数组  字符串中包含某个字符的个数



[quote]'返回某一字符串在另一个字符串中出现的次数 index返回出现的位置数组 阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:34209
个性回帖程序--木蚂蚁网友共享的程序


 6.0   


[align=center][font=华云彩云][size=6] 6.0   [color=1800E7] 阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:23897

[2] [3] [4] [5] [6] [7] [8] [9] [10] [11]  ... [11]  
版权所有:田草博客
tiancao1001&126.com网友交流QQ群:11740834
Powered by L-Blog V1.08 (SE) Final© 2007-2009