自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

原创 阿根廷点杀荷兰,24年后再进决赛

阿根廷点杀荷兰,24年后再进决赛-评2014年巴西世界杯阿根廷和荷兰之战

2014-07-10 15:17:38 1391

原创 德国战车7比1狂胜巴西

德国战车7比1狂胜巴西--评2014年巴西世界杯德国队和巴西队之战

2014-07-09 10:08:29 1365

原创 24年后,阿根廷再进4强

24年后,阿根廷再进4强

2014-07-06 10:51:53 748

原创 世界杯最野蛮大战,巴西付出惨重代价步入四强

世界杯最野蛮大战,巴西付出惨重代价步入四强--评2014年巴西世界杯巴西队和哥伦比亚队之战 2014年7月5月凌晨4点的这场1/8决赛,实属世界杯最野蛮大战,双方的犯规次数超过了50次。裁判的尺度太松,是一个主要的原因。上半场,裁判该罚的不罚,导致双方队员愈演愈烈。一是哥伦比亚球星J罗被巴西后腰费尔南迪尼奥盯死,死缠烂打,上半场连续将J罗踢翻,J罗一度恼火不已,气愤的推搡对方;二是巴西

2014-07-05 15:31:11 982

原创 德国战车势如破竹,实力运气造就精彩

德国战车势如破竹,实力运气造就精彩--评2014年巴西世界杯八强赛德国队对法国队之战

2014-07-05 13:26:06 759

原创 组合框控件列表项简单居中

VB的组合框控件ComBoBox控件列表项目如何居中,这是个难题。可以自绘,并且非常精确;也可以不用自绘,采用简单居中,即在前面加空格实现。至于加多少空格,要根据控件本身的宽度和列表项的文字多少来决定。由于这个方法是在列表项前面加空格实现的,不足一个空格将被忽略,因此不很精确,有误差,只有大概居中。 Option ExplicitPrivate Sub Form_Load()

2013-07-03 11:05:00 1480

原创 简单图片按钮的实现

VB的标准命令按钮CommandButton可以实现图片按钮,并且按钮文字可以居中。Option Explicit'Form1上添加一个图片框控件Picture1,一个命令按钮Command1Private Sub Form_Load() Picture1.Picture = LoadPicture("F:\资料\My Pictures\2006Spring2-西湖

2013-07-03 10:47:05 962

转载 VB全面控制Excel方法大汇总

VB全面控制Excel方法大汇总,共300个:首先创建 Excel 对象,使用ComObj:Dim ExcelID as Excel.ApplicationSet ExcelID as new Excel.Application1) 显示当前窗口:ExcelID.Visible := True;2) 更改 Excel 标题栏:ExcelID.Caption := '应用程序调用

2013-05-28 11:01:56 3909

原创 VB控制Word文档实例精选二

1、返回Word文档的段落文字,控制分页,设置页眉和页脚'先引用Microsoft Word 11.0 Object LibraryOption ExplicitDim WordApp As Word.Application '创建Word应用程序Private Sub Command1_Click() Dim i As Long On Error Go

2013-05-13 11:43:10 4805

原创 VB控制Word文档实例精选一

1、在Word文档中插入表格,给单元格赋值,访问单元格内容,拆分及合并单元格'先引用Microsoft Word 11.0 Object LibraryOption ExplicitDim WordApp As Word.Application '创建Word应用程序Private Sub Command1_Click() Set WordApp =

2013-05-09 14:30:33 3905 2

原创 VB控制Excel工作薄实例精选二

1、获取Excel数据图表到VB的PictureBox控件中'先引用对象库:Microsoft Excel 11.0 Object LibraryOption ExplicitDim xlExcel As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.WorksheetPrivate

2013-05-03 13:23:04 1362

原创 VB控制Excel工作薄实例精选一

1、获取Excel工作薄所有Sheet表名称、Sheet表的个数、删除指定Sheet表:'先引用对象库:Microsoft Excel 11.0 Object LibraryOption ExplicitDim xlExcel As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlSheet As Excel.Workshe

2013-05-02 15:52:35 1285

原创 获取Flash动画文件SWF的图像帧宽度、高度和Flash播放速率

前不久,研究了Flash动画文件SWF的数据结构,喜欢编写Flash播放器的朋友可以借鉴。SWF文件开头三个字节为“FWS”(表示未压缩过),或者为“CWS”(表示从第9个字节起的数据用Zlib压缩过)。第4个字节为Flash的版本号,5-8字节为SWF源文件字节大小(压缩前的),第9个字节为Flash的宽度与高度控制码,控制码的不同,后面存储宽度与高度的数据区所占的字节长度也不一样。程序如下(z

2013-04-15 11:47:55 1367

原创 Adobe公司Flash动画控件开发引起的问题

Flash.ocx是国际上著名的图像软件公司Adobe推出的swf格式动画播放控件,现在的最高版本11.0已不支持VB6的开发。 但,是不是完全不支持VB6的开发呢?也不是。下面2种情况需要引起程序员的高度重视:        1、现有的VB工程源码文件如果是在低版本Flash.ocx下开发的,在高版本9.0以上环境下打开VB工程文件(是否9.0开始,需要测试一下),在保存的时候可以,但要小心

2012-09-18 11:42:26 1509 3

原创 取得岂今为止最全面的Windows版本和IE版本以及32位和64位操作系统信息

本程序从法国网站(http://www.VBFrance.com)上下载,摘取了其中一部分发现:这是岂今为止最全面的Windows版本、IE版本、32和64位操作系统信息获取程序。我修正了其中InfoVersionWinStd过程中的错误,并增加了 Windows 8 的版本识别;同时将2个标准模块封装到了类模块中。本程序共2个类模块:WinSysInfo.cls,RegistryHandler。

2011-04-13 13:03:00 3357 3

原创 不用HOOK实现倒计时对话框

不用HOOK实现倒计时对话框

2011-01-31 11:20:00 2875 2

原创 VB的文本框控件TextBox打开Office的Word文档

有网友问我,VB的文本框控件TextBox能否打开Office的Word文档。VB的TextBox是Ansi版本的,通过open语句打开载入到TextBox中,肯定是乱码,没啥说的。但是,我们可以通过间接的方式打开Office的Word文档,通过一系列的API调用,将文档转换到TextBox中,而且保留了Word的版式(除字体变化以外)。请看下面程序:    标准模块:'标准模块Opt

2012-09-14 16:50:22 2447 1

原创 利用微软未公开的WindowsAPI函数关闭或注销或重新启动计算机

众所周知,微软公开的用来关闭、注销、重新启动计算机的API是ExitWindowsEx。在Windows95/98下,可直接用ExitWindowsEx,即可正确关闭、注销、重新启动计算机;因Windows2000及Windows2000以上的操作系统全都是WindowsNT系统,调用进程必须使用API函数AdjustTokenPrivileges函数获取SE_SHUTDOWN_NAME特权,才能

2012-02-29 11:37:23 2979 1

原创 好看的一本书,好用的二张光盘

好看的一本书,好用的二张光盘

2011-05-10 11:32:00 2695 7

原创 图标应用程序--添加、删除、保存图标

添加、删除图标文件中的图标,并保存图标。支持24、32位真彩色图标。

2011-03-23 23:48:00 3923

转载 用HOOK实现倒计时对话框

用HOOK实现倒计时对话框

2011-02-01 15:48:00 1143 2

原创 利用API快速自动创建(删除)虚拟驱动器

利用API快速自动创建(删除)虚拟驱动器

2010-12-31 01:34:00 1479

原创 VB解析SRT、SSA、ASS字幕文件,以实现视频外挂字幕

VB解析SRT、SSA、ASS字幕文件,以实现视频外挂字幕

2010-12-07 10:09:00 2427

原创 Ansi,Unicode(little endian),Unicode big endian,UTF-8编码文件相互转换

Ansi,Unicode(little endian),Unicode big endian,UTF-8编码文件相互转换

2010-12-07 09:22:00 5074 1

原创 晒出你的创意,赛出你的精彩

晒出你的创意,赛出你的精彩

2010-07-06 01:07:00 769 5

原创 这一夜,阿根廷队是菜鸟

这一夜,阿根廷队是菜鸟

2010-07-04 15:41:00 521

原创 巴西霉了...

巴西霉了...

2010-07-03 23:06:00 597

转载 注册表应用100例

注册表应用100例

2010-06-04 11:40:00 467

原创 LRC歌词分析函数增强版

    2007年12月20日发布的《LRC歌词分析函数》一文(链接地址:http://blog.csdn.net/chenjl1031/archive/2007/12/20/1955447.aspx),能处理绝大多数LRC格式的歌词,但仍有一些LRC格式的歌词因为格式不规范,无法正确处理,主要体现在时间标签的多样性。现作了改进,公布如下:**************************

2010-03-28 10:11:00 1162 3

原创 VB编写程序实现视频外挂SRT字幕

      在DVDRip、MKV等720P高清视频中,srt、ssa、ass、idx、sub等外挂字幕非常流行,采用的显示技术毫不例外都是VSFilter(早期版本是VobSub)和AviSynth外挂字幕插件。显示的点阵汉字非常漂亮!现在流行的多媒体播放器,如KMPlayer、暴风影音等都采用了上述DirectVobSub技术。虽然DirectVobSub技术具有开放性强,支持众多语言编写的播

2010-03-01 23:44:00 2419 1

原创 利用随机函数Rnd实现图像切换效果之二

利用随机函数Rnd实现图像切换效果之二 模糊平行线分开Public Function pxxhl_3(Picture1 As PictureBox, Picture2 As PictureBox, Picture3 As PictureBox, MyTJParam5 As Integer)    picture2.Cls    If MyTJParam5 = 0 Then Exit F

2009-10-13 19:51:00 532

原创 利用随机函数Rnd实现图像的风暴切换效果之一

       VB的Rnd函数用处很多,如果用于图像变换中,就会产生意想不到的屏幕特技效果。本文的风暴切换效果,就像暴风吹过一般,非常壮观。        标准模块ImageConvertEffect.bas:Option ExplicitPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

2009-10-11 12:17:00 959 1

原创 VB6 IDE XP风格实现之见解

 VB6 IDE XP风格实现之见解  本人一直用VB6中文企业版,想把它的IDE界面XP风格化。可是,出了个天大的问题。第一步,打上补丁VB6SP6;第二步,制作manifest文件:vb6.exe.manifest。好了,运行VB6程序,XP风格出来了。但问题也出来了,这时编辑窗口独立出来成为了顶级窗口,全屏时将覆盖IDE,即脱离了IDE。这是不希望的结果。而且,编辑窗口原来那块区

2009-08-14 11:33:00 1362 1

转载 如何编写高质量的VB代码

 如何编写高质量的VB代码 摘自:http://www.ebok.cn/Computer-Development/Visual-Basic       简介:  本文描述了如何通过一些技术手段来提高VB代码的执行效率。这些手段可以分为两个大的部分:编码技术和编译优化技术。在编码技术中介绍了如何通过使用高效的数据类型、减少外部引用等编程手段来提高代码执行速度,减少代码消耗的系

2009-04-16 00:06:00 634 2

原创 利用一款不常见的API函数实现窗口的淡入淡出

     利用一款不常见的API函数SetLayeredWindowAttributes可实现窗口的淡入淡出。而且还不影响窗口上的控件,特别是动画控件,效果极佳。另外,在自己做的不规则图形窗口上实现淡入淡出,效果图非常漂亮。    该程序一般用在窗口显示或卸载之前。           程序如下:Option ExplicitPrivate Declare Func

2008-10-13 23:50:00 2294 3

原创 通用控件属性设置函数

        在优化一个软件时,发现了大量同类控件的属性设置问题。这些控件都具有相同的属性,需要编写大量重复的代码,非常难看,一旦改变,还需要全部重新写上一遍,效率非常低。于是,突发奇想,并借助CallByName函数,构造了一个通用的控件属性设置函数,节约了很多程序,有利于生成高性能的运行代码。        一、函数构造 通用控件属性设置函数 参数说明:Frm

2008-09-29 00:52:00 1143

原创 PictureBox控件中显示GIF动画(图片)

 在PictureBox控件中显示GIF动画(图片),凡有句柄hwnd的窗体控件均可以在窗体Form1上添加2个命令按钮Command1,Command2和1个图片框控件Picture1Option Explicit调用运动图像播放类型库Quartz.dll,在c:/windows/system32目录下Private pMC As FilgraphManager 定义pMC为Fi

2008-05-04 16:57:00 6857 3

转载 VB程序运行时产生的错误号码的中文解释

VB程序运行时产生的错误号码的中文解释3没有返回的GoSub5无效的过程调用6溢出7内存不足9数组索引超出范围10此数组为固定的或暂时锁定11除以零13类型不符合14字符串空间不足16表达式太复杂17不能完成所要求的操作18发生用户中断20没有恢复的错误28堆栈空间不足35没有定义 子程序、函数,或属性47DLL 应用程序的客户端过多48装入 DLL 时发生错误49DLL 调用规格错误51内部

2008-03-31 13:43:00 3392

转载 BIOS报警声音大全

BIOS报警声音大全BIOS报警声音大全 AWARD BIOS响铃声的一般含义是: 1短: 系统正常启动。这是我们每天都能听到的,也表明机器没有任何问题。 2短: 常规错误,请进入CMOS Setup,重新设置不正确的选项。 1长1短: RAM或主板出错。换一条内存试试,若还是不行,只好更换主板。 1长2短: 显示器或显示卡错误。 1长3短: 键盘控制器错误。检查主板。 1长9短: 主板F

2008-03-06 12:56:00 895

转载 windows 9X, 2000, xp所有版本注册表设置大全

windows 9X, 2000, xp所有版本注册表设置大全别人Blog上的,非常全面!玩计算机程序的人必不可少的资料,供大家参考!        一、开始菜单及相关设置[HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Policies/Explorer]"NoRecentDocsMenu"=dword:00000001

2008-03-06 12:49:00 1586

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