- 博客(8)
- 收藏
- 关注
原创 全国专业技术人员计算机应用能力考试
全国专业技术人员计算机应用能力考试 虚拟光驱下载位置: http://download.fsyyy.com/SoftView/SoftView_80.html 有关的使用方法请参看: http
2006-05-17 11:50:00 11828
原创 快速删除一个包含文件和子文件夹的文件夹
调用DOS命令rmdir 删除一个具有多级目录的目录Private Sub KillFolder(MyFolderPath As String)Shell "cmd.exe /c rmdir /s/q " & Chr(34) & MyFolderPath & Chr(34)End Sub Private Sub Command1_Click()KillFolder "C:/Temp
2006-05-10 09:33:00 1650 1
原创 不绑定记录集获取datagrid某行某列的内容
获取Dvatagrid第r行c列的内容可以用下面代码获得DataGrid1.Col = rDataGrid1.Row = cmsgbox DataGrid1.Text 但如果datagrid1中有滚动条,要得到滚动下面某行某列的内容时,系统会提示说:行号无效!这是由于DataGrid1.Row只能在[1,datagrid.visiblerows]间取值。当行号大于visibler
2006-05-10 09:23:00 2729 2
原创 将某网页的某框架内容显示在WEBBROWSER中
下面代码可以实现将某网页的某框架内容显示在新的WEBBROWSER中.add two webbrowser and a commandbutton to form1:Private Sub Command1_Click()Dim html As Stringhtml = WebBrowser1.Document.frames(4).Document.body.innerHTMLhtml
2006-05-07 19:34:00 1219
原创 输出螺旋矩阵(三)
输出这样的二维阵列:1 2 3 4 12 13 14 511 16 15 610 9 8 7分析:填充如此一个n*n阵列 ,先观察规律:n=1 1n=21 24 3对于n*n阵列,可以先将1-4*n 填充四周,内部用一个(n-2)*(n-2) 的阵列加上4*(n-1)填充,所以用递归比较直观,代码如下:Private Sub Command1
2006-05-07 19:26:00 1533
原创 输出螺旋矩阵(二)
输出这样的二维阵列: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 Integer, j As Integer, a() As IntegerReDim a(n, n)a(0,
2006-05-07 19:10:00 1318
原创 输出螺旋矩阵(一)
输出这样的二维阵列:1 2 3 4 12 13 14 511 16 15 610 9 8 7 Private Sub Command1_Click()spiral 17Debug.Printspiral 18End SubSub spiral(ByVal n As Integer)Dim temp() As Long, i As Long,
2006-05-07 19:05:00 1394
原创 利用 wordXP 实现自动排班
许多工作岗位需要每天或每月排一次班,如何用WORD实现自动排班?笔者曾对此做过一些研究,不尽人意.在一位网友(chewinggum(口香糖·把减肥列入下一个五年计划) )提供了很不错的代码(http://community.csdn.net/Expert/topic/4304/4304006.xml?temp=.7863428),稍做了一些改动,感觉效果还可以.新建WORD文档,ALT+F
2006-05-07 18:35:00 3107 1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人