王峰炬

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

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

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

摘要： 输出这样的二维阵列: 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-... 阅读全文

摘要： 输出这样的二维阵列: 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... 阅读全文

摘要： 输出这样的二维阵列: 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... 阅读全文

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

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

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

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