VB .net、VB、VBA
Visual Basic .net、VB、VBA编程知识
测量老覃
爱好编程的测量人,高工、注册测绘师。微博/抖音:@测量老覃 电邮:qindong@email.cn
展开
-
Testing Form Text Entries
When using VBA forms for gathering text inputs you may want to test the values. This is particularly true when your application is expecting numeric text inputs. The examples below show two TextBox events that can be used to validate numeric entries.原创 2023-09-21 20:32:09 · 37 阅读 · 0 评论 -
Use Constants For Common Values
Some developers will calculate common values in code every time they are needed in an application. This slows down your application as it has to calculate the value every time.Others will enter in the straight numeric value, which is just frowned upon pr原创 2023-09-20 15:29:28 · 42 阅读 · 0 评论 -
VBA 64位windows操作系统通用文件对话框代码
64位Windows操作系统下VBA打开文件通用对话框,返回文件名。原创 2023-09-20 15:25:30 · 216 阅读 · 0 评论 -
VBA Processing Status With a Cancel Option
Many applications provide a progress bar with a Cancel option for long running processes. VBA does not have a native progress bar control, but you can provide the same type of information with your own “Status” UserForm containing an informational label an原创 2023-09-20 15:11:57 · 31 阅读 · 0 评论 -
VBA Processing Status With a Cancel Option
Many applications provide a progress bar with a Cancel option for long running processes. VBA does not have a native progress bar control, but you can provide the same type of information with your own “Status” UserForm containing an informational label an原创 2023-09-12 10:59:05 · 54 阅读 · 0 评论 -
Excel VBA表中添加打开文件夹按钮
Private 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...原创 2019-07-13 07:58:47 · 2400 阅读 · 0 评论 -
64位Windows操作系统下Autocad VBA通用文件夹对话框代码
以下代码为浏览文件夹对话框通用代码,返回文件夹。转载 2019-07-12 11:17:22 · 2850 阅读 · 5 评论 -
Excel-测量公式及格式设置
1、生成指定范围的随机数在0.45~0.49间随机=CHOOSE(INT(5*RAND()+1),0.45,0.46,0.47,0.48,0.49)生成大于3小于5的随机数=CHOOSE(INT(3*RAND()+1),3,4,2)+CHOOSE(INT(9*RAND()+1),1,2,3,4,5,6,7,8,9,0)/10+CHOOSE(INT(9*RAND()+1),1,2,3...原创 2019-07-13 09:32:34 · 1152 阅读 · 0 评论 -
利用VBA给Excel或WPS表格添加自定义函数(如方位角函数)
在Excel或WPS表格中要使用VBA需要先打开“开发工具”菜单,打开方式请在网上度一下:点击“开发工具”菜单,在“开发工具”工具栏上点击“VB编辑器”:在“VB编辑器”内添加一模块文件(名称任意),在代码区添加函数代码:如添加一个测量方位角计算的函数,代码如下:Function Azimuth(Sx As Double, Sy As Double, Ex As D...原创 2019-06-05 08:34:19 · 4133 阅读 · 0 评论 -
Excel批量按页自动打印南方CASS格式测量地形数据的VBA宏
近期将对其进行一些修改,将施工坐标系、桩号前缀、页脚等参数设置放到一特定的表格里,使本工具更具通用性。测量数据(仅指测量坐标成果数据,一般为南方CASS格式,参见下表)从仪器下载下来后,都需要打印出来签字存档,如果手动排版将是一项繁琐的工作。可在Excel中添加一个宏,将数据读出按格式分页排版,不管有多少数据,都可以快速搞定。对于有大量测量数据需要打印的工程项目,可显著提高工作效率。...原创 2019-06-08 11:34:02 · 1302 阅读 · 0 评论 -
Excel和WPS表格下CASS格式测量地形文件点按距离过滤抽稀
文件名:CASS格式地形文件点抽稀(Excel).rar Excel下的VBA程序,在WPS下也可以使用,打开此表格后点击表中按钮,选择CASS格式测量地形点文件,指定抽稀间距即可按距离进行点抽稀过滤。表格见下载中心。Private Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hwnd ...原创 2019-06-02 14:53:52 · 1724 阅读 · 1 评论 -
测量计算方位角万能公式及VB、VBA源代码
使用该公式不用判断象限,直接得出方位角值设有两点A、B,坐标分别为A(Xa,Ya)、B(Xb、Yb),则$\Delta X=X_b-X_a $$\Delta Y=Y_b-Y_a $$\Delta Y=\Delta Y+1^{-10} $ 为了使除数不为零而加一个很小的数(注:在参与计算前加一个极小值后参与sign函数计算,这样sign(ΔY\Delta YΔY)就只会出现1或-1两种情况...原创 2019-06-02 11:13:21 · 2408 阅读 · 0 评论 -
VB环境下的矢量绘图控件Vecad介绍
更多文章请访问:http://www.SurMap.com 最近为了在程序中添加绘图功能,需要找一个矢量绘控件,在网上找了很久,国内也有几家正在编这个东西的公司,但他们的产品不是我们这等人能用得起的,比如MicroDraw的开发版要三万多一套,我简直是闻风而逃。另一个梦想绘图控件,虽然不算完美,但编得也不错,不过也要六千多一个,而且有没有限制也不清楚,因我根本就没有继续谈下去的兴趣了原创 2009-07-17 15:56:00 · 2444 阅读 · 3 评论 -
Vecad控件添加样条曲线(Spline)
更多文章请访问:http://www.SurMap.com vecad控件中添加样条曲线需要使用到三个函数:AddVertex、ClearVertices、AddPolyline在创建样条曲线前需要将样式曲线的各个节点用AddVertex依次添加,然后用AddPolyline创建样条曲线:Vecad1.AddVertex 0, 0, 0Vecad1.AddVertex 2, 2原创 2009-07-18 10:58:00 · 1151 阅读 · 0 评论