王峰炬

摘要： 在窗体上镂空文字: 我想死你了 Private Declare Function BeginPath Lib "gdi32" (ByVal hdc As Long) As LongPrivate Declare Function EndPath Lib "gdi32" (ByVal hdc As ... 阅读全文

摘要： 笔者在对素数的规律研究中,发现Sieve of Eratosthenes 方法对素数的筛选还是比较快的(参见拙作href="http://blog.csdn.net/northwolves/archive/2005/04/18/351998.aspx">http://blog.csdn.net/n... 阅读全文

摘要： EXCEL SHEET中如何添加下拉框或者 文本框,命令按钮?下面的方法就可以：添加命令按钮1 新建WORKSHEET2 打开Visiual Basic编辑器3 选择SHEET1 的Worksheet_SelectionChange 事件4 编写代码如下：Private Sub Workshe... 阅读全文

摘要： EXCEL 中,能否同调用内置函数一样在工作表中调用自已制作的自定义函数,出现对话框.同时也能做到像内置函数对话框里的说明?答案是肯定的,下面举例说明:题目: ①对文本型一系列数字进行求和(SUM()返回0) ②对数值型的一系列数字异或操作(EXCEL内置函数中没有XOR... 阅读全文

摘要： POWERPOINT 无TIMER 控件，也不支持 TIMER 事件。但如果想在播放POWERPOINT 时显示一个动态的时间,有没有可行的办法?笔者曾为此十分苦恼,四处求救，始终没有满意的答复（多数建议添加FLASH 格式的CLOCK），近日想起了延时函数SLEEP，一试竟然成功，问题终于得以解... 阅读全文

摘要： 获取 IE 当前 URL 的代码,网上有许多类似代码，但在WINDOWSXP 下不能运行。查了一些资料，发现由于Win2000，WINXP 是基于Unicode代码的操作系统，所以没有WorkerA类，而以WorkerW类取而代之（XXXXA should be used on not unico... 阅读全文

摘要： sendkeys 的用法（MSDN）： SendKeys 语句 将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。 语法 SendKeys string[, wait] SendKeys 语句的语法具有以下几个命名参数： ... 阅读全文

摘要： 预备知识:1. Shell 函数执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。语法Shell(pathname[,windowstyle])Shell 函数的语法含有下面这些命名参数：部分描述pathname必要参数... 阅读全文

摘要： 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... 阅读全文

摘要： 代码如下:Private Sub Command1_Click()Dim i As Integer, title As String, FileNames As String With CommonDialog1 .FileName = "" .Filter = "All ... 阅读全文