- 博客(5)
- 资源 (1)
- 问答 (1)
- 收藏
- 关注
RSS订阅原创 2021-01-14
Vb.net InitializeComponent 具有多个带有相同签名的定义 :解决方案一、原理： form窗口双击时，又自动生成了 InitializeComponent（）方法。与 form1Designer.vb 中冲突，如图1所示。图1二、解决方法 在项目上，点右键，选择增加 现有文件，增加：此form的 form1Designer.vb,form1.resx 2个文件，注意不要增加 form1.vb ，因此文件本已经有了。上面2个文件存在项目中，2者不能关连起...
2021-01-14 15:37:49
454
原创 Surfer13 自动绘图之绘制张贴图
Surfer绘制张贴图，与工程制图中点位图类似，如何实现呢，请见如下代码： '开始调用surfer绘制张贴图 Dim SurferApp As Object SurferApp = CreateObject("Surfer.Application") SurferApp.Visible = True Di
2018-01-11 21:31:36
4300
原创 Surfer13自动绘图之制作责任表
责任表，在工程制图中必不可少，下面将介绍如何使用Surfer绘制标准的责任表。责任表的距离见下图（单位mm）:实现代码如下： '制作责任表 Dim XOffset, YOffset As Double '责任表偏移距 Dim XBasePosRspTalbe, YBasePosRspTal
2018-01-10 16:43:24
2084
原创 Surfer13如何实现自动白化
对网格化后的grd数据进行白化，可以实现对图形的剪裁效果，通过Surfer自动化也可以实现，代码如下： Dim SurferAppBHGRD As Object SurferAppBHGRD = CreateObject("Surfer.Application") SurferAppBHGRD.Visible = False Dim I
2018-01-09 16:17:41
5265
原创 Surfer13 自动实现网格化
Surfer作为一款强大的绘图软件，被广泛应用于地质地球物理及气象等领域。Surfer不仅界面友好，操作简单，同时提供了程序自动化功能，下面介绍如何通过程序实现自动实现网格化。 本次编程开发环境采用VB2010，Surfer版本为Surfer13，需要事先在引用中添加Surfer。具体代码如下： Dim SurferAppMapGRD As Object
2018-01-08 16:23:01
3860
2
Occam 反演: 一种由电磁测深数据 产生光滑模型的实用算法
2017-09-04
VB 调用fortran函数（已经生成dll），怎么实现数组的传递？
2016-03-03
TA创建的收藏夹 TA关注的收藏夹
TA关注的人