我想死你了
摘要：
在窗体上镂空文字: 我想死你了 Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As LongPrivate Declare Function EndPath Lib "gdi32" (ByVal hdc As ... 阅读全文
posted @ 2005-11-12 00:48 王峰炬 阅读(180) 评论(0) 推荐(0) 编辑
快速分解质因数
摘要：
笔者在对素数的规律研究中,发现Sieve of Eratosthenes 方法对素数的筛选还是比较快的(参见拙作href="http://blog.csdn.net/northwolves/archive/2005/04/18/351998.aspx">http://blog.csdn.net/n... 阅读全文
posted @ 2005-11-09 00:47 王峰炬 阅读(1145) 评论(0) 推荐(0) 编辑
如何在EXCEL SHEET中 动态添加控件
摘要：
EXCEL SHEET中如何添加下拉框或者 文本框,命令按钮?下面的方法就可以：添加命令按钮1 新建WORKSHEET2 打开Visiual Basic编辑器3 选择SHEET1 的Worksheet_SelectionChange 事件4 编写代码如下：Private Sub Workshe... 阅读全文
posted @ 2005-11-07 00:39 王峰炬 阅读(400) 评论(0) 推荐(0) 编辑
EXCEL 中自定义函数的应用(关于 XOR 在 EXCEL 中的用法 及 文本型数字求和)
摘要：
EXCEL 中,能否同调用内置函数一样在工作表中调用自已制作的自定义函数,出现对话框.同时也能做到像内置函数对话框里的说明?答案是肯定的,下面举例说明:题目: ①对文本型一系列数字进行求和(SUM()返回0) ②对数值型的一系列数字异或操作(EXCEL内置函数中没有XOR... 阅读全文
posted @ 2005-10-20 01:40 王峰炬 阅读(598) 评论(0) 推荐(0) 编辑
VBA 实现 POWERPOINT 的TIMER 事件
摘要：
POWERPOINT 无TIMER 控件，也不支持 TIMER 事件。但如果想在播放POWERPOINT 时显示一个动态的时间,有没有可行的办法?笔者曾为此十分苦恼,四处求救，始终没有满意的答复（多数建议添加FLASH 格式的CLOCK），近日想起了延时函数SLEEP，一试竟然成功，问题终于得以解... 阅读全文
posted @ 2005-10-09 22:02 王峰炬 阅读(310) 评论(0) 推荐(0) 编辑
获取 IE 当前 URL 的代码
摘要：
获取 IE 当前 URL 的代码,网上有许多类似代码，但在WINDOWSXP 下不能运行。查了一些资料，发现由于Win2000，WINXP 是基于Unicode代码的操作系统，所以没有WorkerA类，而以WorkerW类取而代之（XXXXA should be used on not unico... 阅读全文
posted @ 2005-10-09 14:30 王峰炬 阅读(142) 评论(0) 推荐(0) 编辑
关于 SENDKEYS 的代码
摘要：
sendkeys 的用法（MSDN）： SendKeys 语句 将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。 语法 SendKeys string[, wait] SendKeys 语句的语法具有以下几个命名参数： ... 阅读全文
posted @ 2005-09-26 07:03 王峰炬 阅读(190) 评论(0) 推荐(0) 编辑
VB 利用WINRAR 压缩文件及解压
摘要：
预备知识:1. Shell 函数执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。语法Shell(pathname[,windowstyle])Shell 函数的语法含有下面这些命名参数：部分描述pathname必要参数... 阅读全文
posted @ 2005-09-25 09:17 王峰炬 阅读(399) 评论(0) 推荐(0) 编辑
五星红旗(献给祖国56岁生日)
摘要：
Private Sub Form_Load()Dim i As IntegerWith Me.Move Screen.Width * 0.1, Screen.Height * 0.1, Screen.Width * 0.8, Screen.Height * 0.8.AutoRedraw = Tru... 阅读全文
posted @ 2005-09-21 01:18 王峰炬 阅读(94) 评论(0) 推荐(0) 编辑
如何从公共对话框控件中提取多个文件名称
摘要：
代码如下:Private Sub Command1_Click()Dim i As Integer, title As String, FileNames As String With CommonDialog1 .FileName = "" .Filter = "All ... 阅读全文
posted @ 2005-08-30 22:56 王峰炬 阅读(112) 评论(0) 推荐(0) 编辑
