安仔的专栏

原创 VB/VBA通用路径选择对话框

Option ExplicitPrivate Type BROWSEINFO hOwner As Long pidlRoot As Long pDisplayName As String lpTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long

转载 VB6.0 鼠标滚轮滑轮解决方法

 下载 VB 6 鼠标 Wheel.exe 文件， 包括加载 DLL 和代码用于创建加载项 DLL。 1.下载 VB 6 鼠标 Wheel.exe 文件，应运行。 可用于从 Microsoft 下载中心下载下列文件：　　Download the VB6MouseWheel.EXE package now. (http://download.microsoft.com/download/e/f/

原创 modelList

mdlSelectFolder 模块名称：SelectFolder 模块功能: 选择文件夹 创建者: Andy 创建时间: 2009年6月20日 输出: 所选文件夹的路径

原创 Application.CopyDesignFile

Sub Main() Dim txtOldDesignFileName As String Dim txtNewDesignFileName As String txtOldDesignFileName = "D:/roads_old.dgn" txtNewDesignFileName = "D:/roads_new.dgn"

原创 Application.Close

Sub Main() 关闭当前文件 On Error GoTo Err Application.ActiveDesignFile.Close On Error GoTo 0 Exit Sub Err: MsgBox Err.Description Resume NextEnd S

原创 Application.CreateDesignFile

Sub Main() Dim txtNewDesignFileName As String 新文件的文件名 txtNewDesignFileName = "D:/roads.dgn" 创建新文件 参数 False - 只是创建文件而不打开文件 True - 关闭当前文件,打开新建的文件

原创 Application.OpenDesignFile

  用OpenDesignFile方法打开文件Sub main() 声明文件路径及文件名字符串 Dim txtFileName As String txtFileName = "D:/road.dgn" 打开文件 On Error GoTo Err

原创 MCUS.SettingOutData

Declare Function mdlDialog_fileOpen Lib "stdmdlbltin.dll" (ByVal _ fileName As String, ByVal rFileH As Long, ByVal _ resourceId As Long, ByVal suggestedFileName As String, _ ByVal filte

转载 AutoCAD中计算线加总长度

;;;----------------------------------------------------- ;;;计算线加总长度 ;;;使用方法:命令行中输入:countl;;;----------------------------------------------------- (defun C:COUNTL (/ CURVE TLEN SS N SUMLEN)   (vl-load-

原创 Microstation VBA创建圆弧的五种方法

----------------------------------------- 使用三点创建圆弧 CreateArcElement1() ----------------------------------------- Sub CreateArc1() 定义圆弧的三个点以及一个元素 Dim pntStart As Point3d

原创 MicroStation VBA创建直线的三种方法

  ----------------------------------------- 使用二维数组点创建直线 CreateLineElement1() ----------------------------------------- Sub CreateLine1() 定义一个点数组以及一个元素变量 Dim pntLine(0 To

转载 MicroStation VBA程序软件发布注意事项

辛辛苦苦编出来的软件不仅要自己用，而且要发布给广大有相同需要的朋友使用。软件开发者总是希望自己的成果传播得越广越好，这样可以把科技成果转换成生成力，如果能换成银子，那是最好不过了的。MicroStation VBA虽然是VB的一种，但VBA通常都不带软件打包程序，这就给VBA程序编制者发布VBA软件带来了麻烦。在VB中我们可以用VB带的打包程序先打包，当然不是将VB生成的安装程序来发布，使用过

转载 Excel之VBA编程常用语句300句

定制模块行为(1) Option Explicit 强制对模块内所有变量进行声明 Option Private Module 标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示     Option Compare Text 字符串不区分大小写     Option Base 1 指定数组的第一个下标为1 (2) On Error Resume Ne

原创 (1) 创建新图层

Sub AddNewLevel()         Function:    创建新层      Creater:       anzi     Create Time: 2008年10月12日      Description: 包括一下功能:                   (1) 层名转化为大写字母;                  

原创 在C#2005中添加关闭页面脚本的方法

 //页面加载事件    protected void Page_Load(object sender, EventArgs e)    {        // 页面第一次加载时清空文本框的内容        if (!Page.IsPostBack)        {            this.txtName.Text = "";            this.txtPwd.Text =

原创 计算复利率小程序(C#版)

程序代码如下(有许多需要修改的地方没有做好):using System;using System.Collections.Generic;using System.Text;namespace interest{    // 计算复利率;    class interest    {        static void Main(string[] args)        {      

原创 C#高级编程(第四版)完整较清晰版下载

今天终于找到了 完整版了,而且是比较清晰的版本,喜欢的朋友看看.地址:http://www.infoxa.com/asp/book_file/xxnr_book_4750.htm大小:121MB另外还有一个是bt的,需要的给我邮箱,俺不知道怎么上传,那bt文件的下载地址也找不到了.

转载 SQL Server 查询分析器所有键盘快捷方式

  SQL Server 查询分析器所有键盘快捷方式下表列出 SQL Server 查询分析器提供的所有键盘快捷方式。 　　活动 快捷方式 　　书签：清除所有书签。 CTRL-SHIFT-F2 　　书签：插入或删除书签(切换)。 CTRL+F2 　　书签：移动到下一个书签。 F2 功能键 　　书签：移动到上一个书签。 SHIFT+F2　　取消查询。 ALT+BREAK

原创 《21天学通C#》笔记_程序清单9.2_构造函数重载

《21天学通C#》笔记_程序清单9.2_构造函数重载1. 名词解析:     (1) 重载: 是指创建多个名称相同的方法,其中每个方法都有区别于其他方法的特征,以便编译器区别和调用.2. 程序清单如下:// 通过构造函数重载实现多态;// circle1.cs A simple circle class with overload constructors.// -------

原创 《21天学通C#》笔记_程序清单9.1_重载方法

《21天学通C#》笔记_程序清单9.1_重载方法1. 名词解析:     (1) 重载: 是指创建多个名称相同的方法,其中每个方法都有区别于其他方法的特征,以便编译器区别和调用.2. 程序清单如下:// 通过重载方法来说明多态;// 9_1_circle1.cs - polymorphic area method.// -------------------------------

转载 《Photoshop CS3专家讲堂视频教程》(个人收集)

《Photoshop CS3专家讲堂视频教程》(个人收集)eMule资源 下面是用户共享的文件列表，安装eMule后，您可以点击这些文件名进行下载 Photoshop.CS3专家讲堂系列教程.rar 详情 177.5MB

转载 修改XP注册到用户名和公司组织名

修改XP注册到用户名和公司组织名

转载 经典正则表达式(转载)

经典正则表达式 匹配中文字符的正则表达式： [/u4e00-/u9fa5] 匹配双字节字符(包括汉字在内)：[^/x00-/xff] 应用：计算字符串的长度（一个双字节字符长度计2，ASCII字符计1） String.prototype.len=function(){return this.replace(

转载 世界著名的桥梁(转贴)

世界著名的桥梁(转贴) 　　举世闻名的赵州桥 　　　　南京长江大桥 　　图片描述： 位于江苏省南京市，跨越长江的公路铁路两用钢桁架桥。上层为公路，行车道宽15m，两侧人行道各宽2.25m。下层为双线铁路。正桥有10孔，共长1576m，包括1孔128m简支桁架梁和3联3孔各160m连续桁架梁。正桥为公路铁路双层钢连续桁梁桥，上层为四车道公路桥，下层为双线铁路桥。　　原图:http:/

原创 精美图片0001--张娜拉,个人认为最好看的一张,可爱至极!

原创 Adobe Acrobat 8.1 Pro简体中文版下载及安装图解

Adobe Acrobat 8.1 Pro简体中文版下载及安装图解 一. 介绍Adobe Acrobat 8.1 Professional软件可以使商业人士能够可靠地创建、合并和控制 Adobe PDF 文档, 以便轻松且更加安全地进行分发、协作和数据收集。制作PDF文档的利器，办公必备。近年来，Adobe公司一直在努力使Acrobat从一款简单的PDF软件软件发展成一个完整的数码发布

原创 VB 财务函数

 1.IPmt 函数      返回一个 Double，指定在一段时间内对定期定额支付且利率固定的年金所支付的利息值。语法IPmt(rate, per, nper, pv[, fv[, type]])IPmt函数有下列命名参数： 部分

原创 VB 处理对数Log()问题

Vb 处理对数Log()问题若有任何问题及建议,请与我联系.QQ:601373891 Email:57066381@163.com 两个有用的函数,使用时直接调用1. 求以10为底的对数值的函数,如下:   Private Function LogTen(X As Double) As Double                  * 检验真数数有效性        

转载 关于爱情的五十句经典名言

  关于爱情的五十句经典名言1、如果一个人值得你去爱，那么这份爱情就值得你去等。2、一个人的悲剧不是悲剧，众人的悲剧才是真正的悲剧。3、理智和情感的天平上，并不是每次理智都占上风，相反的，感情却有更重要的砝码。4、离开自己曾爱的人，不是逃避，而是给自己一个崭新的空间去创造属于彼此的奇迹。5、当依赖成为了一种负担，无论是自己还是别人，都会对这种变味的感觉产生厌烦。6、一直有句话没有对你说，有一些

原创 VB计算圆周率的方法

VB计算圆周率的方法 方法有二:1.  利用迭代公式进行计算,如下:     Private Sub Command1_Click()       Dim pi As Double, n As Long       pi = 2       For n = 1 To 10000          pi = pi * ((2 * n) / (2 * n - 1)) * ((2 * n

原创 软件业里成功未必考研

       原文地址:http://blog.csdn.net/shuangtixi/archive/2007/10/08/1814774.aspx       考研热持续多年后，终于在2006年有所降温，于社会、于学生都可谓幸事。       对部分专业而言，硕士学历是必要的，基础研究、高等教育等职业方向若没有硕士学位支撑，是很难有好前途的。但对大部分专业而言，拥有一份成功、幸福，却未

转载 马占凯：Sogou输入法之父的故事

马占凯：Sogou输入法之父的故事原文地址:http://news.csdn.net/n/20071011/109468.html 中文输入法这样亟待改善但缺乏商机的“荒原”，如何成为一个创新主战场 经过几个月前搜狐与谷歌那场声势浩大的“抄袭风波”，现在你 已经可以重新估量输入法对于一家网络公司的价值：从4月8日搜狐公司发布声明称，谷歌拼音抄袭了搜狗输入法词库，至今搜狐的股价已经增

原创 3DMAX9.0 简体中文正式版&VRay Adv V1.5 RC3简体中文版 下载

 http://flash.zgcren.com/bbs/ruanjian/Autodesk%203ds%20Max9.rar 3DMAX9.0 简体中文正式版 电螺下载连接: ed2k://|file|[Autodesk.Max9.0.%E7%AE%80%E4%BD%93%E4%B8%AD%E6%96%87%E7%89%88].3dsmax9.0cn.iso |484626432|90978

原创 北大青鸟 基于.NET的WEB程序设计 视频教程

《北大青鸟 基于.NET的WEB程序设计 视频教程》2005-9-10, 12:19 PMeMule资源 下面是用户共享的文件列表，安装eMule后，您可以点击这些文件名进行下载 ScenicPlayer.exe

原创 浙江大学 数据挖掘 视频版

浙江大学-数据挖掘 视频教程2006-1-14, 21:42 PMeMule资源 下面是用户共享的文件列表，安装eMule后，您可以点击这些文件名进行下载 浙大-数据挖掘1-10.rar 363.6MB