东方之珠-CSDN博客

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

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

2014-07-10 15:17:38 1684

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

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

2014-07-09 10:08:29 1814

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

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

2014-07-05 15:31:11 1182

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

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

2014-07-05 13:26:06 897

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

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

2013-07-03 11:05:00 1869

原创简单图片按钮的实现

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

2013-07-03 10:47:05 1190

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

原创 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 7058

原创 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 5068 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 1625

原创 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 1504

原创获取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 1736

原创 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 1642 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 3650 3

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

不用HOOK实现倒计时对话框

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

原创关于64位Windows系统注册表某些键取不到值的问题

关于64位Windows系统注册表某些键取不到值的问题我写了一个类模块，用来读写注册表键的值，在32位系统下没问题，但在64位系统下有很多键取不到值，比如：win10的ProductID，EditionID等等。但多加一个64位的标识就可以取到，这个标识就是KEY_WOW64_64KEY（=&H100&），取消这个标识，32位系统没有问题，64位取不到值。有这个标识，32位和64位系统都没问题。类模块如下：'RegistryHandler.clsPrivate Declare .

2021-04-20 14:25:35 579

原创 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 3298 1

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

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

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

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

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

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

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

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

2011-03-23 23:48:00 4996

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

用HOOK实现倒计时对话框

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

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

利用API快速自动创建（删除）虚拟驱动器

2010-12-31 01:34:00 1796

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

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

2010-12-07 10:09:00 2872

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

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

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

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

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

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

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

这一夜,阿根廷队是菜鸟

2010-07-04 15:41:00 751

原创巴西霉了...

巴西霉了...

2010-07-03 23:06:00 645

转载注册表应用100例

注册表应用100例

2010-06-04 11:40:00 604

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

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

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

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

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

2010-03-01 23:44:00 2784 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 659

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

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

2009-10-11 12:17:00 1117 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 1632 1

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

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

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

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

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

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

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

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

2008-09-29 00:52:00 1296

原创 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 8222 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 4834

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