Spacecup

摘要： Option ExplicitPrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Declare Functio 阅读全文

摘要： VB6.0中快速实现大面积不规则区域的填充--------------------------------------------------------------------------------一、引言区域填充是指先将区域内的一个像素，一般称为种子点赋予给定的颜色和辉亮，然后将该颜色扩展到整个区域内的过程。二、已有的填充算法及缺点1．扫描线法扫描线法可以实现已知多边形域边界的填充，多边形域可以是凹的、凸的、还可以是带孔的。该填充方法是按扫描线的顺序，计算扫描线与待填充区域的相交区间，再用要求的颜色显示这些区间的像素，即完成填充工作。这里区间的端点通过计算扫描线与多边形边界线的交点获得。 阅读全文

摘要： Private Sub Command3_Click()Dim conn As New ADODB.Connectionconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;Persist Security Info=False"conn.Execute "create table a (b longbinary)"End SubPrivate Sub Command4_Click() Set b = New ADODB.Recordset Set c = New ADODB.S 阅读全文

摘要： Excel是一个非常优秀的报表制作软件，用VBA可以控制其生成优秀的报表，本文通过添加查询语句的方法，即用Excel中的获取外部数据的功能将数据很快地从一个查询语句中捕获到EXCEL中,比起往每个CELL里写数据的方法提高许多倍。将下文加入到一个模块中,屏幕中调用如下ExporToExcel("select*fromtable")则实现将其导出到EXCEL中Public Function ExporToExcel(strOpen As String)'*********************************************************& 阅读全文

摘要： 还记得大学即将毕业那一会，那是我首次接触黑马训练营，兴奋的我好几天睡不着觉，可是一直到毕业了将近一年的都没有去黑马，总是各种各样的理由，有时候想是不是在大三之前结实黑马，现在已经从黑马毕业了，向往黑马，不仅仅指薪资的吸引，更是技术激情的吸引，每次去黑马论坛，看几篇黑马学子的文章，都让人激动很久，他... 阅读全文

摘要： Private Sub mnuothersave_Click()'显示另存为对话框 CommonDialog1.ShowSave'设置文件的类型 CommonDialog1.Filter = "所有文件|*.*|RTF|*.RTF| 文本文件|*.txt"'判断是否选择文件 If CommonDialog1.FileName "" Then'记录并复制文件路径，其中APP指定应用程序的标题、版本、可执行文件和帮助文件的路径及方法PATH属性用来返回和设置应用程序的当前路径。集体格式为 FileCopy App.Path & 阅读全文

摘要： StDev算出查询结果中指定字段所有值的标准偏差StDevP算出查询结果中指定字段所有值的标准差说下标准偏差:它是用来衡量数据偏离算述平均值的程序,标准偏差越小,这些值偏离平均值就越少,反之亦然.描述如右:求n个数的标准偏差:(用描述):每个数据与均值差的平方和除以(n-1)后开根举个例子:有一组数1,2,3,4,5,求它们的标准偏差:S==Sqr{{∑[(Xn-3)]2]}/4}=Sqr{[(1-3)^2+(2-3)^2+(3-3)^2+(4-3)^2+(5-3)^2]/4}={Sqr(10)/4}=1.58113883再说下标准差:它是用来衡量反映数据集的离散程度(又称离均差),标准差越小 阅读全文

摘要： '本月最后一天DateSerial(year(date), month(date)+1, 0)'上个月最后一天DateSerial(year(date), month(date), 0)'上上个月最后一天DateSerial(year(date), month(date)-1, 0)'本月第一天DateSerial(year(date), month(date), 1)'上个月第一天DateSerial(year(date), month(date)-1, 1)'上上个月第一天DateSerial(year(date), month(date)- 阅读全文

摘要： 方法如下:一、为 SQL Server 2005 启用远程连接1. 单击"开始"，依次选择"程序"、"Microsoft SQL Server 2005"、"配置工具"，然后单击"SQL Server 外围应用配置器"。 2. 在"SQL Server 外围应用配置器"页上，单击"服务和连接的外围应用配置器"。 3. 在"服务和连接的外围应用配置器"页上，展开"Database Engine"(数据库引擎)，单击&q 阅读全文

摘要： Sql server 2005重装心得（XP系统）初装Sql server 2005的时候基本上没啥好说的。当你误删、误卸载了Sql server 2005，再重装它的时候就麻烦了，最后实在没办法只好重装系统了。当你系统东西太多，太重要，不想且不能重装时，按下面的方法就可以搞定Sql server 2005重装。Sql server 2005重装的关键在于彻底卸载。1.利用安全卫士里面的软件卸载，把Sql server 2005相关的程序全部卸载掉。不用说，卸载干净。2.利用安全卫士里面的垃圾清理把注册表全选，清干净。3.控制面板——添加删除程序，所有Sql server 2005的东西卸载干 阅读全文