- 博客(49)
- 资源 (13)
- 收藏
- 关注
RSS订阅
原创 关于漂亮控件的说明
本帖小结的控件下载自这里：http://download.csdn.net/source/1601508 1.动画及多媒体播放类 anigif6.ocx 动画播放gif文件控件 gif89.dll 又一个播放gif文件的动态链接库 gifPlayer.ocx 又一个播放gif文件控件 flash.ocx
2009-11-05 09:37:00
3684
4
转载 如何编写和调用资源文件
各位VB高手，你一定也常常因苦于无法组织自己程序中大量的picture，而头痛不已，那就让小生为各位介绍一下VB编程的好帮手--资源文件。 所谓资源文件，就是指将在程序运行时用到的资源集中在一起的一个文件。一个资源文件可以包括文字（TEXT）、位图（BITMAP）。图标（ICON）等。并且在程序中调用时不用指明路径，这就简化了程序的编写并减少了发生错误的可能。现在我就以一个小
2011-06-22 12:00:00
1881
转载 VB6.0 Windows API
VB6.0 Windows API1.控件与消息函数AdjustWindowRect 给定一种窗口样式，计算获得目标客户区矩形所需的窗口大小AnyPopup 判断屏幕上是否存在任何弹出式窗口ArrangeIconicWindows 排列一个父窗口的最小化子窗口AttachThreadInput 连接线程输入函数BeginDeferWindowPos 启动构建一系列新窗口位置的过程Bring
2011-06-21 10:54:00
5597
转载 VB6反编译详解
<br />标 题: VB6反编译详解（一）<br />作 者: kenmark<br />时 间: 2006-07-09 16:59 <br />链 接: http://bbs.pediy.com/showthread.php?threadid=28715<br />详细信息:<br />VB6反编译详解 by Kenmark-Fenix<br />**************************************************<br />最新于2006-7-13更新！<br />**
2011-05-18 14:07:00
12392
2
原创 获取外网IP的几种方法
获取外网IP的几种方法第一种:用XML对象第二种:用inet控件第三种:用纯API第四种:用"InternetExplorer.Application"对象第五种:用WebBrowser控件
2010-12-28 09:38:00
2850
转载 使SQL语句不被Sql Profiler/事件探查器捕获跟踪
Sql Server数据库的一大优势，就是具有富UI的管理和调试工具，这点，绝对是优于ORACLE和其他的大中型数据库的。Sql Server的众多工具中，对于开发人员和DBA来讲，非常重要的一个，就是Sql Profiler (事件探查器) 了。Sql Server中执行的每个一个动作，都可以在Sql Profiler里看的一清二楚，这对于性能调优，后期维护等等是非常有帮助的。但是，问题来了，在你的产品发布后，你可能不想让客户跟踪到你的SQL执行情况，便于对客户保密。那么这个优势，就成了你的“眼中钉”如何
2010-07-16 17:34:00
1939
1
原创 TreeView的基本操作
TreeView的基本操作 1.增加顶节点 2.增加分节点 3.删除所选节点 4.预防错误的发生 5.补充说明： 6.添加弹出式菜单(有点难) 7.改变背景颜色(调用 API 函数)
2010-06-21 15:56:00
1555
转载 VB mschart控件的使用
二、mschart控件属性介绍1．RowCount属性 设置作图数据的行数。2．ColumnCount属性 设置作图数据的列数。3．TitleText属性 设置图题。4．RowLabelCount属性 设置行标的个数。5．RowLabel属性
2010-06-10 15:48:00
21645
原创 串口得到unicode码数据,如何转换成文本
问题：串口得到如下数据:+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32",145,480042004C0053005A00300030003000410030003000300036003300410033...第2行就是unicode编码的文本,如何转换成文本？ 方法一Command1_Click()
2010-04-22 09:32:00
2021
原创 关于字符串与字节byte之前的相互转换问题
用StrConv函数进行转换 Dim mByte() As Byte 字节数组Dim str As String 字符串Dim i As Longstr = "01010101"字符串->字节数组mByte = StrConv(str, vbFromUnicode)For i = 0 To UBound(mByte) Debug.Print mByt
2010-04-10 11:05:00
3061
转载 在vb组件内调用excel实现gif饼图
当我第一次使用excel的时候，就为excel的图表功能所倾倒，实在强大，并且那些图也挺漂亮了。后来我尝试着在vb里面调用excel所支持的vba功能，发现功能的确强大，就是十分繁琐。后来就考虑用vb在excel外面包一层，写成对象，去掉我们不需要的特性。这样掉用起来就方便多了，所谓一劳永逸 :p。 在这里，我将像大家介绍一个用vb编写的饼图组件，你只需要给它几个简单的参数
2010-04-08 08:50:00
1285
转载 在VB下使用Printer对象使用心得
最近做了一个简单的数据库查询小软件，是老板一个项目的配套软件。需要将查询到的数据显示出来，然后打印。 开始使用Printer 对象是出于无奈，因为数据显示到viewlist后，无法进行直接打印（也许有方法，没有查到）。觉得Printer对象使用还要自己确定各种打印格式和位置等，不方便（本来VB使用就是为了方便）。 使用后了解到的东西：1.每一次使用Print方法后，
2010-03-28 22:07:00
12720
转载 COM技术内幕
第1章 组件 ===================================================================================未经许可，也可转载，但请注明出处！希望能够与各位初学COM的网友共勉:-）=======================================================================
2010-03-24 09:31:00
1147
转载 VB数据库导出WORD
这里的数据库采用的是ACCESS生成的MDB数据库。考虑到在VB中画表等操作比较繁琐，所以采用了饮用模版的导出形式。仅供大家学习参考。Dim cn As New ADODB.Connection ‘定义数据库Dim rs As New ADODB.RecordsetDim scan As String ‘存储查找数据库Dim Appword As Word.Application ’定义WORD模
2010-03-19 11:15:00
3846
转载 vb 锁定鼠标到某一位置
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As LongPrivate Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd Type Private Sub Command1_Click()
2010-03-16 15:40:00
1798
转载 什么是虚拟机？虚拟机有什么用？虚拟机的特点？
通过软件模拟的具有完整硬件系统功能的、运行在一个完全隔离环境中的完整计算机系统。通过虚拟机软件，你可以在一台物理计算机上模拟出一台或多台虚拟的计算机，这些虚拟机完全就像真正的计算机那样进行工作，例如你可以安装操作系统、安装应用程序、访问网络资源等等。对于你而言，它只是运行在你物理计算机上的一个应用程序，但是对于在虚拟机中运行的应用程序而言，它就像是在真正的计算机中进行工作。因此，当我在虚
2010-03-12 10:12:00
6404
转载 DOS命令大全
DOS命令大全（一）MD——建立子目录 1．功能：创建新的子目录 2．类型：内部命令 3．格式：MD[盘符：][路径名]〈子目录名〉 4．使用说明： （1）“盘符”：指定要建立子目录的磁盘驱动器字母，若省略，则为当前驱动器； （2）“路径名”：要建立的子目录的上级目录名，若缺省则建在当前目录下。 例：（1）在C盘的根目录下创建名为FOX的子目录；（2）在FOX子目录下再创建USER子目录。 C
2010-02-27 09:30:00
776
1
原创 如何拉伸图片至整个屏幕
VB6中，使用PICTRUEBOX或IMAGE控件，如何让加载在其中的小图片拉伸至整个屏幕大小（当然不覆盖窗体边框、菜单栏、工具栏和状态栏的空间）。 方法有多种,总结如下：1、用image控件Private Sub Form_Load() Image1.Stretch = TrueEnd SubPrivate Sub Form_Resize() Image1.Move
2010-01-14 10:57:00
4320
转载 中国古代历朝刀剑图
中国古代历朝刀剑图：寒光四射 剑气纵横[组图](1)2009-12-18 10:01:21 转自 中华网论坛 http://military.china.com/zh_cn/history4/news3/11078476/20091218/15742178_5.html 从左到右:1) 春秋战国时代青铜剑 2) 秦朝青铜剑 3) 汉朝青铜刀 4) 汉朝钢刀 5) 晋朝
2009-12-21 08:59:00
3709
转载 WebBrowser 控件使用详解
WebBrowser 控件使用详解(2008-12-11 18:13:25)标签：webbrowser 方法 说明 GoBack 相当于IE的“后退”按钮，使你在当前历史列表中后退一项 GoForward 相当于IE的“前进”按钮，使你在当前历史列表中前进一项
2009-12-20 20:54:00
1357
1
转载 完美隐藏系统托盘图标
完美隐藏系统托盘图标（VB源码）！2009-01-05 23:07 我做桌面托盘隐藏时翻译了一篇文章是关于托盘。现在公开我这个翻译。三个文件，一个是FORM1，modIconToPic、modMain。************************modMain*************************************模 块 名：
2009-12-13 16:08:00
4680
2
原创 如何隐藏已知句柄的窗口
以隐藏计算器为例Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function ShowWindow Lib "user32.dll
2009-12-07 09:54:00
4115
原创 excel导入access
excel导入access ,引用ADOPrivate Sub Command1_Click() Dim conn As ADODB.Connection Set conn = New ADODB.Connection On Error Resume Next conn.ConnectionString = "Provider=Microsoft.Jet.OLED
2009-12-01 13:49:00
1937
1
转载 精选控件 下载
精选控件232009年03月26日 下午 09:40下载地址：http://hi.baidu.com/boxroom/blog/item/f51cc2ea7f2109dbd439c9c5.htmlID号控件名称大小简介点击23ibqsZip15_FreeEdition.zip1.81MZip文件压缩组
2009-11-27 21:32:00
1262
原创 如何用vb播放幻灯片
如何让幻灯片在vb的框架里播放Microsoft PowerPoint 9.0(Office 2000的，如果是97则是8.0) Object Library)Microsoft PowerPoint 11.0(Office 2003) Object Library)Private Declare Sub Sleep Lib "kernel32" (ByVal dwMillise
2009-11-25 22:38:00
3640
原创 如何用inet下载网页源代码
部件里添加 Microsoft Internet Transfer Control 6.0 1.下载网页 Private Sub Command1_Click() Dim s As String Inet1.Cancel Inet1.protocol = icHTTP Inet1.url = "http://www.baidu.com" s = Ine
2009-11-25 17:28:00
2480
转载 判断一个字符串中是否含有汉字
请问如何在VB中或者SqlServer中判断一个字符串中是否含有汉字。 注：字符串中有可能含有日语字符，或者全角模式下的特殊字符（如破折号等），这些都不视为汉字。 出处地址: http://topic.csdn.net/u/20091125/16/ae9ae50c-d810-4c8e-b83d-bb932b3cc047.html?1381 Private Sub Com
2009-11-25 16:51:00
2281
转载 如何用VB编写FLASH动画播放器
用VB编写FLASH动画播放器 Flash4是MacroMedia公司出品的矢量动画创作专业软件，利用该软件制作的矢量动画具有文件体积小、带音效和兼容性好等特点。那么，你想不想在自己编写的程序中加入Flash动画，为自己的程序添加一道亮丽的色彩呢？ 一、编程原理 本程序利用了Flash4本身自带播放Flash动画的控件Swflash.ocx
2009-11-25 11:47:00
1655
1
转载 利用Winsock控件实现局域网通信
利用Winsock控件实现局域网通信 对于局域网用户中的编程爱好者来说，如果能自己编一个局域网通信程序，那么这一切将是多么美妙！可是，如果要从头开始完全由自己来编写一段用于通信的程序，必须对相关的网络协议及其他的一些较底层的技术有较深入的了解，这可不是一件容易的事。而现在有了Winsock控件，一切就不同了，它已经替你封装了所有烦琐的技术细节，并提供了访问TCP
2009-11-24 23:46:00
1337
转载 运用 Range 对象处理 Word 文档内容
原地址： http://www.officexy.com/Articles/Word/Word_VBA20061027194952795.htm 在所有 Office 应用程序中，Microsoft Word 可能是应用最广泛的应用程序，它还经常在自定义 Office 解决方案中扮演重要的角色。开发人员用各种不同的方式使用 Word，有一些方式很简单，而另一些极其复杂。无论涉及何
2009-11-22 20:27:00
1798
原创 如何让一个Form 出现在另一个非MDIForm 的Form 中
如何让一个 Form 出现在另一个非 MDIForm 的 Form 中？ 假设要将 Form2 放在 Form1 中，请在公共模块中声明： Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long 在 Form2 中的 Form
2009-11-13 15:04:00
2992
原创 某一天的下 (上) 一个星期几是那一天
某一天的下 (上) 一个星期几是那一天？参数 : 您相信吗？这个模组的写法比用任何其他的方法快几十倍！参数如下：1：以那一天为基准日？2：(Optional) 要找的是星期几？若不指定，预设值为星期六3：(Optional) 要往前 (过去) 找或往后 (未来) 找？若不指定，预设值为往后 (未来) 找程序码Public Function SpecificWeekday(ByVal D
2009-11-13 14:23:00
758
原创 实现播放音乐的几种方法
有几种方法实现: 1. 用MCI32控件简单实现播放音乐 部件添加 Microsoft Multimedia Controls 6.0Private Sub Form_Load() MMControl1.DeviceType= = "WaveAudio" 屏蔽了,系统默认即可 MMControl1.FileName = "E:/娱乐园/Music/bg
2009-11-13 11:33:00
2014
1
原创 判断文件夹是否存在的方法
判断文件夹是否存在的方法?1. 用dir If Len(Dir("D:/DownLoads", 16)) > 0 Then MsgBox "文件夹存在" Else MsgBox "文件夹不存在" End If2. 用Fso.FolderExists工程-引用-勾选“Microsoft Scripting Runtime”-确定 加入一个text
2009-11-11 11:19:00
2902
原创 如何让一个窗体永远保持在最上层
如何让一个窗体永远保持在最上层 ( Always on Top )请在声明区中加入以下声明Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Lo
2009-11-11 00:22:00
8031
原创 VB中Shell和ShellExecute函数的使用方法和区别
写了一个vb的程序，用来把原来写的几个vb和vc的程序整合起来。就是使用Shell函数。结果发现，vc的程序可以很好的显示，但vb写的却一运行就最小化了。仔细查看了一下以下文章，才发现原来shell函数的默认显示模式是windowstyle是等于vbMinimizedFocus。然后就是直接加上一个vbNormalFocus。一切ok! vb的shell函数用法： 功能：执行一个可执行文件，返
2009-11-10 14:23:00
28551
1
原创 传入带全路径的文件字符串，返回文件名和路径
Public Function GetFileName(sFile As String) As String 传入带全路径的字符串，返回文件名 Dim i As Long, s As String, s1 As String s1 = StrReverse(sFile) For i = 1 To Len(sFile) s = Mid(s1, i, 1)
2009-11-10 10:43:00
1098
产生1-10不重复的随机数
2009-11-26
处理文本文件的例子，可以改成脑筋急转弯程序
2009-08-29
连接Access数据库的例子(含源码)
2009-06-22
调用chm帮助文件的例子(含源码)
2009-06-08
手机短信发送驱动(含有VB调用源代码)
2009-06-02
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人