Surfer 8 scripter Study Notes (9) VB source code used by surfer and VB

Write one at a time.

It is found that surfer 8 is deleted and surfer11 is installed, and the program can still run.

'2017. 05.19 'vernacular magician option explicitprivate sub command1_click () dim SRF as new surfer. application dim poltdoc as surfer. iplotdocument dim mapframe as surfer. imapframe dim mapcontour as surfer. icontourmap dim colorscale as surfer. idiscretecolorscale dim mapbase as surfer. ibasemap dim shptext as surfer. itext dim axis as surfer. iaxis 'show surfer interface SRF. visible = false 'add the Drawing Document Set poltdoc = SRF. documents. add (srfdocplot) 'gridded SRF. griddata datafile: = app. path & "\ 1.xls", xcol: = 1, ycol: = 2, zcol: = 3, numcols: = 200, numrows: = 200, xmin: = 106.6333, xmax: = 108.5333, _ ymin: = 30.3333, Ymax: = 32.35, showreport: = false, outgrid: = app. path & "\ 1.grd" doevents 'White SRF. gridblank INGRID: = app. path & "\ 1.grd", blankfile: = app. path & "\ cityblank. bln ", outgrid: = app. path & "\ out. GRD "'contour set mapframe = poltdoc. shapes. addmediamap (App. path & "\ out. GRD ") 'axis for each axis in mapframe. axes axis. visible = false next 'set mapcontour = mapframe. overlays (1) with mapcontour. fillcontours = true. blankline. style = "solid "'. blankline. width = 0.015. smoothcontours = srfconsmoothhigh. levels. loadFile app. path & "\ r24level. LVL "end with 'load the basemap set mapframe = poltdoc. shapes. addbasemap (App. path & "\ midcountry. BNA ") set mapbase = mapframe. overlays (1) mapbase. line. width = 0.01 'set mapframe = poltdoc. shapes. addbasemap (App. path & "\ cityblank. bln ") 'set mapbase = mapframe. overlays (1) 'mapbase. line. width = 0.015 'stacked poltdoc. shapes. selectall poltdoc. selection. overlaymaps mapcontour. showcolorscale = true set colorscale = mapcontour. colorscale with colorscale. labelfont. size = 22. top = 4. left = 6.2. height = 1.2. width = 0.5 end with 'load text -- title set shptext = poltdoc. shapes. addtext (1, 1, "Distribution of unknown substances") with shptext. maximum = 2.2. left = 4.3. font. valign = srftavcenter. font. halign = srftacenter. font. bold = true. font. size = 12 end with 'load text -- legend set shptext = poltdoc. shapes. addtext (1, 1, "legend") with shptext. maximum = 4.2. left = 6.4. font. valign = srftavcenter. font. halign = srftacenter. font. bold = true end with 'output image, loaded into the program poltdoc. export app. path & "\ p1.emf" image1.picture = loadpicture (App. path & "\ p1.emf") SRF. documents. closeall srfsavechangesno SRF. quitend sub

-----------------------

There are some settings on the right, which are both complete and self-made.

For example:

1. Set the text content so that you can customize the text.

2. Select whether to display the boundary and site name (that is, to load the post graph, which is not compiled in the program)

3. You can also set custom color bars.

Wait. This is done based on your own needs.

I feel that all English is indeed laborious. Fortunately, scripter is relatively simple, coupled with Microsoft's translation.

We recommend that you use Bing translation, because the programming translation is stronger than Kingsoft and youdao (for other classes, use Kingsoft and youdao)