田草博客
日志搜索


 标题   内容 评论


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

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID
-随机-|-分布-
-博客论坛-|-﨣﨤﨧﨨-
-网站导航-|-规范下载-
-BelovedFLash欣赏-

用户登陆
用户:
密码:
 

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31

站点统计

最新评论


友情链接

其他信息

[11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... [20]  显示模式: 默认视图 | 文章列表
阅读全文……
作者:tiancao1001 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:10975

阅读全文……
作者:tiancao1001 | 分类:VB/VB.NET | 评论:12 | 引用:0 | 查看:189783
未知 vb 删除cookies   [ 2008-09-27  |  本站原创 ]
阅读全文……
作者:tiancao1001 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:11503
未知 VB 获取系统特殊文件夹   [ 2008-09-27  |  本站原创 ]
阅读全文……
作者:tiancao1001 | 分类:VB/VB.NET | 评论:1 | 引用:0 | 查看:13604
未知 VBA 使用控件组   [ 2008-08-04  |  本站原创 ]
     在VBA窗体设计中,可将一些开发中使用的控件全部选择后,直接拖至工具箱中,工具箱会添加一个"控件组",在窗体设计中可直接将该控件组放置于窗体,大大提高了效率(该特点为VBA所独有)。 

      如开发者需使用VBA标准控件箱未提供的其他控件,可右键单击工具箱,在出现的菜单中选择"附加控件"命令,在出现的对话框中进行选择即可。
    在VBA窗体工具箱中附加控件中没有出现的控件,我们可以在vb的窗体中加入,然后在vba中导入该窗体,但是vbe不支持的控件就不能导入了。
 

阅读全文……
作者:tiancao1001 | 分类:VB/VB.NET | 评论:1 | 引用:0 | 查看:15020
VB 外接程序 Word com加载项 插件实例

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

阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:11200
未知 查找驱动器   [ 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 | 查看:10969
未知 汉字的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 | 查看:19475
未知 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 | 查看:19683
未知 宿迁惯蛋记牌器   [ 2008-04-14  |  本站原创 ]
宿迁惯蛋记牌器

按此在新窗口打开图片



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

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

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 | 查看:31621
未知 VB自定义资源   [ 2008-04-02  |  本站原创 ]
将自定义资源中的文件释放出来
[quote]'*************************************************************************
'**模块名:GetResFile
'**说明:将自定义资源中的文件释放出来 阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:9922
VB 返回字符串中两个关键字中间字符


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

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



[quote]Option Explicit 阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:2 | 引用:0 | 查看:27508
[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 | 查看:51873
[quote]Option Explicit
'公用计数变量
Dim i As Integer
Dim B As Integer 阅读全文……
作者:田草 | 分类:VB/VB.NET | 评论:0 | 引用:0 | 查看:15264
[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 | 查看:56258

[11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... [20]  
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©