王峰炬

快速删除一个包含文件和子文件夹的文件夹

摘要：调用DOS命令rmdir 删除一个具有多级目录的目录 Private Sub KillFolder(MyFolderPath As String)Shell "cmd.exe /c rmdir /s/q " & Chr(34) & MyFolderPath & Chr(34)End Sub P... 阅读全文

posted @ 2006-05-10 09:33 王峰炬阅读(239) 评论(0) 推荐(0) 编辑

不绑定记录集获取datagrid某行某列的内容

摘要：获取Dvatagrid第r行c列的内容可以用下面代码获得 DataGrid1.Col = rDataGrid1.Row = c msgbox DataGrid1.Text 但如果datagrid1中有滚动条，要得到滚动下面某行某列的内容时,系统会提示说：行号无效！这是由于DataGrid1.... 阅读全文

posted @ 2006-05-10 09:23 王峰炬阅读(103) 评论(0) 推荐(0) 编辑

将某网页的某框架内容显示在WEBBROWSER中

摘要： '下面代码可以实现将某网页的某框架内容显示在新的WEBBROWSER中. 'add two webbrowser and a commandbutton to form1: Private Sub Command1_Click()Dim html As Stringhtml = WebBrowse... 阅读全文

posted @ 2006-05-07 19:34 王峰炬阅读(109) 评论(0) 推荐(0) 编辑

输出螺旋矩阵(三)

摘要：输出这样的二维阵列: 1 2 3 4 12 13 14 511 16 15 610 9 8 7 分析: 填充如此一个n*n阵列 ,先观察规律: n=1 1 n=2 1 24 3 对于n*n阵列,可以先将1-4*n 填充四周,内部用一个(n-2)*(n-2) 的阵列加上4*(n-... 阅读全文

posted @ 2006-05-07 19:26 王峰炬阅读(141) 评论(0) 推荐(0) 编辑

输出螺旋矩阵(二)

摘要：输出这样的二维阵列: 1 3 4 10 112 5 9 12 196 8 13 18 207 14 17 21 2415 16 22 23 25 Sub spiralmetrix(ByVal n As Integer)n = n - 1Dim i As Intege... 阅读全文

posted @ 2006-05-07 19:10 王峰炬阅读(96) 评论(0) 推荐(0) 编辑

输出螺旋矩阵(一)

摘要：输出这样的二维阵列: 1 2 3 4 12 13 14 511 16 15 610 9 8 7 Private Sub Command1_Click()spiral 17Debug.Printspiral 18End Sub Sub spiral(ByV... 阅读全文

posted @ 2006-05-07 19:05 王峰炬阅读(126) 评论(0) 推荐(0) 编辑

利用 wordXP 实现自动排班

摘要：许多工作岗位需要每天或每月排一次班,如何用WORD实现自动排班?笔者曾对此做过一些研究,不尽人意. 在一位网友(chewinggum(口香糖·把减肥列入下一个五年计划) )提供了很不错的代码(http://community.csdn.net/Expert/topic/4304/4304006.x... 阅读全文

posted @ 2006-05-07 18:35 王峰炬阅读(434) 评论(0) 推荐(0) 编辑

excel sheet中数据的快速复制

摘要： '利用Copymemory 复制数组,实现excel sheet中数据的任意复制,粘贴区域小于复制区域,数据将被截取,否则将用空格填充 Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any,... 阅读全文

posted @ 2006-04-25 13:06 王峰炬阅读(396) 评论(0) 推荐(0) 编辑

计算数组的维数

摘要： Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, source As Any, ByVal Length As Long) Private ... 阅读全文

posted @ 2006-04-24 09:42 王峰炬阅读(125) 评论(0) 推荐(0) 编辑

API判断数组是否为空

摘要： Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long 'API判断数组为空或没有初始化 Sub diag()Dim msg As StringDim arr1... 阅读全文

posted @ 2006-04-24 09:29 王峰炬阅读(335) 评论(0) 推荐(0) 编辑