- 博客(5)
- 资源 (1)
- 问答 (1)
- 收藏
- 关注
原创 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 532
原创 Surfer13 自动绘图之绘制张贴图
Surfer绘制张贴图,与工程制图中点位图类似,如何实现呢,请见如下代码: '开始调用surfer绘制张贴图 Dim SurferApp As Object SurferApp = CreateObject("Surfer.Application") SurferApp.Visible = True Di
2018-01-11 21:31:36 4518
原创 Surfer13自动绘图之制作责任表
责任表,在工程制图中必不可少,下面将介绍如何使用Surfer绘制标准的责任表。责任表的距离见下图(单位mm):实现代码如下: '制作责任表 Dim XOffset, YOffset As Double '责任表偏移距 Dim XBasePosRspTalbe, YBasePosRspTal
2018-01-10 16:43:24 2253
原创 Surfer13如何实现自动白化
对网格化后的grd数据进行白化,可以实现对图形的剪裁效果,通过Surfer自动化也可以实现,代码如下: Dim SurferAppBHGRD As Object SurferAppBHGRD = CreateObject("Surfer.Application") SurferAppBHGRD.Visible = False Dim I
2018-01-09 16:17:41 5407
原创 Surfer13 自动实现网格化
Surfer作为一款强大的绘图软件,被广泛应用于地质地球物理及气象等领域。Surfer不仅界面友好,操作简单,同时提供了程序自动化功能,下面介绍如何通过程序实现自动实现网格化。 本次编程开发环境采用VB2010,Surfer版本为Surfer13,需要事先在引用中添加Surfer。具体代码如下: Dim SurferAppMapGRD As Object
2018-01-08 16:23:01 4064 2
Occam 反演: 一种由电磁测深数据 产生光滑模型的实用算法
2017-09-04
VB 调用fortran函数(已经生成dll),怎么实现数组的传递?
2016-03-03
TA创建的收藏夹 TA关注的收藏夹
TA关注的人