自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

孤独剑 的专栏

(CSDN: asftrhgjhkjlkttttttt 群内: LPZ)

  • 博客(49)
  • 资源 (13)
  • 论坛 (14)
  • 收藏
  • 关注

原创 关于漂亮控件的说明

  本帖小结的控件下载自这里:http://download.csdn.net/source/1601508 1.动画及多媒体播放类 anigif6.ocx            动画播放gif文件控件 gif89.dll                又一个播放gif文件的动态链接库 gifPlayer.ocx        又一个播放gif文件控件 flash.ocx         

2009-11-05 09:37:00 3490 4

转载 如何编写和调用资源文件

     各位VB高手,你一定也常常因苦于无法组织自己程序中大量的picture,而头痛不已,那就让小生为各位介绍一下VB编程的好帮手--资源文件。     所谓资源文件,就是指将在程序运行时用到的资源集中在一起的一个文件。一个资源文件可以包括文字(TEXT)、位图(BITMAP)。图标(ICON)等。并且在程序中调用时不用指明路径,这就简化了程序的编写并减少了发生错误的可能。现在我就以一个小

2011-06-22 12:00:00 1671

转载 VB6.0 Windows API

VB6.0 Windows API1.控件与消息函数AdjustWindowRect 给定一种窗口样式,计算获得目标客户区矩形所需的窗口大小AnyPopup 判断屏幕上是否存在任何弹出式窗口ArrangeIconicWindows 排列一个父窗口的最小化子窗口AttachThreadInput 连接线程输入函数BeginDeferWindowPos 启动构建一系列新窗口位置的过程Bring

2011-06-21 10:54:00 4762

转载 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 10903 2

原创 获取外网IP的几种方法

获取外网IP的几种方法第一种:用XML对象第二种:用inet控件第三种:用纯API第四种:用"InternetExplorer.Application"对象第五种:用WebBrowser控件

2010-12-28 09:38:00 2383

转载 vb无客户端连接oracle数据库的解决办法

只要安装注册oracle的几个dll即可

2010-11-22 16:22:00 4101

转载 实现进程的隐藏

实现进程的隐藏用VB写个程序,运行时隐藏其进程,在任务管里器的进程里面无法看到其进程。

2010-08-07 15:36:00 894

转载 将bmp文件转换为jpg图象

功能:将bmp文件转换为jpg图象文件

2010-07-26 16:15:00 1003

转载 使SQL语句不被Sql Profiler/事件探查器捕获跟踪

Sql Server数据库的一大优势,就是具有富UI的管理和调试工具,这点,绝对是优于ORACLE和其他的大中型数据库的。Sql Server的众多工具中,对于开发人员和DBA来讲,非常重要的一个,就是Sql Profiler (事件探查器) 了。Sql Server中执行的每个一个动作,都可以在Sql Profiler里看的一清二楚,这对于性能调优,后期维护等等是非常有帮助的。但是,问题来了,在你的产品发布后,你可能不想让客户跟踪到你的SQL执行情况,便于对客户保密。那么这个优势,就成了你的“眼中钉”如何

2010-07-16 17:34:00 1738 1

原创 TreeView的基本操作

TreeView的基本操作 1.增加顶节点 2.增加分节点 3.删除所选节点 4.预防错误的发生 5.补充说明: 6.添加弹出式菜单(有点难) 7.改变背景颜色(调用 API 函数)

2010-06-21 15:56:00 1405

转载 VB mschart控件的使用

二、mschart控件属性介绍1.RowCount属性 设置作图数据的行数。2.ColumnCount属性 设置作图数据的列数。3.TitleText属性 设置图题。4.RowLabelCount属性 设置行标的个数。5.RowLabel属性

2010-06-10 15:48:00 19699

原创 串口得到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 1825

原创 关于字符串与字节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 2991

转载 在vb组件内调用excel实现gif饼图

    当我第一次使用excel的时候,就为excel的图表功能所倾倒,实在强大,并且那些图也挺漂亮了。后来我尝试着在vb里面调用excel所支持的vba功能,发现功能的确强大,就是十分繁琐。后来就考虑用vb在excel外面包一层,写成对象,去掉我们不需要的特性。这样掉用起来就方便多了,所谓一劳永逸   :p。       在这里,我将像大家介绍一个用vb编写的饼图组件,你只需要给它几个简单的参数

2010-04-08 08:50:00 1144

转载 在VB下使用Printer对象使用心得

    最近做了一个简单的数据库查询小软件,是老板一个项目的配套软件。需要将查询到的数据显示出来,然后打印。    开始使用Printer 对象是出于无奈,因为数据显示到viewlist后,无法进行直接打印(也许有方法,没有查到)。觉得Printer对象使用还要自己确定各种打印格式和位置等,不方便(本来VB使用就是为了方便)。    使用后了解到的东西:1.每一次使用Print方法后,

2010-03-28 22:07:00 11635

转载 COM技术内幕

第1章 组件  ===================================================================================未经许可,也可转载,但请注明出处!希望能够与各位初学COM的网友共勉:-)=======================================================================

2010-03-24 09:31:00 1004

转载 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 3536

转载 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 1610

转载 什么是虚拟机?虚拟机有什么用?虚拟机的特点?

     通过软件模拟的具有完整硬件系统功能的、运行在一个完全隔离环境中的完整计算机系统。通过虚拟机软件,你可以在一台物理计算机上模拟出一台或多台虚拟的计算机,这些虚拟机完全就像真正的计算机那样进行工作,例如你可以安装操作系统、安装应用程序、访问网络资源等等。对于你而言,它只是运行在你物理计算机上的一个应用程序,但是对于在虚拟机中运行的应用程序而言,它就像是在真正的计算机中进行工作。因此,当我在虚

2010-03-12 10:12:00 6045

转载 DOS命令大全

DOS命令大全(一)MD——建立子目录 1.功能:创建新的子目录 2.类型:内部命令 3.格式:MD[盘符:][路径名]〈子目录名〉 4.使用说明: (1)“盘符”:指定要建立子目录的磁盘驱动器字母,若省略,则为当前驱动器; (2)“路径名”:要建立的子目录的上级目录名,若缺省则建在当前目录下。 例:(1)在C盘的根目录下创建名为FOX的子目录;(2)在FOX子目录下再创建USER子目录。 C

2010-02-27 09:30:00 684 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 4030

转载 中国古代历朝刀剑图

中国古代历朝刀剑图:寒光四射 剑气纵横[组图](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 3155

转载 WebBrowser 控件使用详解

WebBrowser 控件使用详解(2008-12-11 18:13:25)标签:webbrowser   方法   说明             GoBack   相当于IE的“后退”按钮,使你在当前历史列表中后退一项                        GoForward   相当于IE的“前进”按钮,使你在当前历史列表中前进一项 

2009-12-20 20:54:00 1282 1

转载 完美隐藏系统托盘图标

完美隐藏系统托盘图标(VB源码)!2009-01-05 23:07  我做桌面托盘隐藏时翻译了一篇文章是关于托盘。现在公开我这个翻译。三个文件,一个是FORM1,modIconToPic、modMain。************************modMain*************************************模 块 名:

2009-12-13 16:08:00 4326 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 3748

原创 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 1843 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 1131

原创 如何用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 3204

原创 如何用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 2281

转载 判断一个字符串中是否含有汉字

请问如何在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 2089

转载 如何用VB编写FLASH动画播放器

 用VB编写FLASH动画播放器             Flash4是MacroMedia公司出品的矢量动画创作专业软件,利用该软件制作的矢量动画具有文件体积小、带音效和兼容性好等特点。那么,你想不想在自己编写的程序中加入Flash动画,为自己的程序添加一道亮丽的色彩呢?         一、编程原理         本程序利用了Flash4本身自带播放Flash动画的控件Swflash.ocx

2009-11-25 11:47:00 1365 1

转载 利用Winsock控件实现局域网通信

 利用Winsock控件实现局域网通信    对于局域网用户中的编程爱好者来说,如果能自己编一个局域网通信程序,那么这一切将是多么美妙!可是,如果要从头开始完全由自己来编写一段用于通信的程序,必须对相关的网络协议及其他的一些较底层的技术有较深入的了解,这可不是一件容易的事。而现在有了Winsock控件,一切就不同了,它已经替你封装了所有烦琐的技术细节,并提供了访问TCP

2009-11-24 23:46:00 1183

转载 运用 Range 对象处理 Word 文档内容

原地址: http://www.officexy.com/Articles/Word/Word_VBA20061027194952795.htm  在所有 Office 应用程序中,Microsoft Word 可能是应用最广泛的应用程序,它还经常在自定义 Office 解决方案中扮演重要的角色。开发人员用各种不同的方式使用 Word,有一些方式很简单,而另一些极其复杂。无论涉及何

2009-11-22 20:27:00 1400

原创 如何让一个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 2883

原创 某一天的下 (上) 一个星期几是那一天

 某一天的下 (上) 一个星期几是那一天?参数 : 您相信吗?这个模组的写法比用任何其他的方法快几十倍!参数如下:1:以那一天为基准日?2:(Optional) 要找的是星期几?若不指定,预设值为星期六3:(Optional) 要往前 (过去) 找或往后 (未来) 找?若不指定,预设值为往后 (未来) 找程序码Public Function SpecificWeekday(ByVal D

2009-11-13 14:23:00 702

原创 实现播放音乐的几种方法

有几种方法实现: 1. 用MCI32控件简单实现播放音乐  部件添加 Microsoft Multimedia Controls 6.0Private Sub Form_Load()    MMControl1.DeviceType= = "WaveAudio"  屏蔽了,系统默认即可    MMControl1.FileName = "E:/娱乐园/Music/bg

2009-11-13 11:33:00 1804 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 2565

原创 如何让一个窗体永远保持在最上层

如何让一个窗体永远保持在最上层 ( 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 7293

原创 VB中Shell和ShellExecute函数的使用方法和区别

 写了一个vb的程序,用来把原来写的几个vb和vc的程序整合起来。就是使用Shell函数。结果发现,vc的程序可以很好的显示,但vb写的却一运行就最小化了。仔细查看了一下以下文章,才发现原来shell函数的默认显示模式是windowstyle是等于vbMinimizedFocus。然后就是直接加上一个vbNormalFocus。一切ok!  vb的shell函数用法: 功能:执行一个可执行文件,返

2009-11-10 14:23:00 26482 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 991

连接Access数据库的例子(含源码)

VB连接Access数据库的例子, 用vb+access+adodc1+datagrid,有3个字段,编号,账号,金额,在表中"编号"成12345678...连续, 输入数据自动编号,任删除一行编号连续的源码.

2009-06-22

vb自带图标(ICO格式)

vb自带图标,路径 VB安装盘 COMMON\GRAPHICS\ICONS 下

2009-10-25

用MSHFlexGrid连接sql数据库的例子

用MSHFlexGrid连接sql数据库的例子,压缩包内有在本地sql server中建数据库和表的说明

2009-09-16

VB写的进制转换(含源码)

VB写的进制转换(含源码) 包括16进制转10进制,10进制转16进制的小程序

2009-04-15

用MCI32播放mp3的例子

用MCI32.ocx控件,简单实现播放mp3的例子

2009-11-14

产生1-10不重复的随机数

'产生1-10不重复的随机数 '想法: '随机1-10这十个数,不想每次都是从一到十这样随机,而是可以从任意一个数到十, '然后在循环回来到这个数,这样随机。从五开始的话,就是随机5-10,然后1-4这样随机

2009-11-26

用MSHFlexGrid连接Access数据库的例子

用MSHFlexGrid连接Access数据库的例子

2009-09-16

toolbar和imagelist搭配做的工具栏

toolbar和imagelist搭配做的工具栏

2009-12-28

处理文本文件的例子,可以改成脑筋急转弯程序

程序说明: 设计初衷是这样的,有一个txt文档放置了一些脑筋急转弯或者笑话故事在里面,#号做为题目和答案,每道题用一个空白行过渡,增加两个按钮,一个写着是上一条,一个写着下一条,当然可以有第一条和最后一条,想打开主程序时候,随机弹出一个笑话或脑筋急转弯出来,作为每日一贴功能,作为一个主程序的调剂功能,笑话或故事用数据库来做估计好做点,不过一般在网上下载是txt文档,为了免去转换麻烦,所以直接用txt文档来做。 稍加修改即可做成《脑筋急转弯》等程序。

2009-08-29

手机短信发送驱动(含有VB调用源代码)

手机短信发送驱动 使用接口的时候,短信直通车需要运行,该方法是把任务提交给短信直通车,短信直通车把短信发送出去。 安装步骤: 1、先安装 发送模块驱动\Sharecom WiMAX_GPRS.exe 2、再安装 短信(河南移动).exe 3、解压 VB例子.rar 运行调试

2009-06-02

水晶报表Crystal Reports 使用说明

水晶报表Crystal Reports 使用说明

2009-12-21

调用chm帮助文件的例子(含源码)

调用chm帮助文件的例子(含源码),有2种方法,实际上还有其它的方法,示例中仅用了其中的2种 还有贴子做参考: http://topic.csdn.net/u/20090608/15/b365863f-31f6-46cb-a253-8ff8c561d266.html?77911

2009-06-08

人民币数字小写转大写

求人民币小写转大写的代码 要求如下: 1、到十亿位。 2、3420044100.30 转为叁亿肆仟贰佰万零肆仟肆佰元零叁角整。

2009-11-07

vb高级群:33189279,老鸟请进 孤独剑群

发表于 2010-01-20 最后回复 2012-06-02

为升级为高级群散分-好人终于得到了回报

发表于 2009-09-17 最后回复 2011-12-26

提取带框架的网页源代码

发表于 2009-12-21 最后回复 2011-12-14

【散分】旅游顺利归来

发表于 2011-07-08 最后回复 2011-07-17

如何删除自己发布的资源(散分啦)

发表于 2009-06-26 最后回复 2011-04-12

[散分]愚人节快乐

发表于 2010-04-01 最后回复 2011-03-29

【散分】一不小心上月技术分竟得了个911

发表于 2011-01-19 最后回复 2011-02-01

【散分】中秋国庆双节快乐

发表于 2010-09-20 最后回复 2010-10-12

【散分】最近比较忙

发表于 2010-01-07 最后回复 2010-02-04

大家看看这个正则怎么写

发表于 2009-12-23 最后回复 2009-12-26

出差前散分,回来就结贴

发表于 2009-11-14 最后回复 2009-12-18

忙里忙外喜迎双佳节 助人助己笑纳一红星

发表于 2009-09-26 最后回复 2009-10-22

请教用vb的webbrowser控件如何提交登陆

发表于 2009-05-16 最后回复 2009-05-18

VB高手请进,如何检测QQ是否在线?

发表于 2009-04-16 最后回复 2009-04-20

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除