Jump to content

Search the Community

Showing results for tags 'programming .net'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


  • General
    • Feedback and Introduction
    • Off Topic
    • Geography
  • Geographic Information Science News and Discussions
    • General
    • GeoData
    • GeoHardware
    • WebGIS
    • Analysis and Geoprocessing
    • Cartography Design
    • Spatial Programming
    • Remote Sensing
    • Mobile GIS
    • Applied GIS
    • Jobs and Schedules
  • GIS Around The World
    • Language Specific Room
  • RS-GIS Sharing Area

Find results in...

Find results that contain...

Date Created

  • Start


Last Updated

  • Start


Filter by number of...


  • Start



Website URL









Found 1 result

  1. Hi! I've started to make a model in software IDRISI SELVA, I’ve installed VS2012. I've made a model automated to realize multi maps. For example, I’m using model ShapeIdr and I’ll developed. First must use library Idrisi32.dll. Then make like the following form and copy past the following code for importing library Idrisi32.dll Imports idrisi32 Dim x As New idrisi32.IdrisiAPIServer Private Sub SelectFolder_Click(sender As Object, e As EventArgs) Handles SelectFolder.Click Dim WrkPath As String WrkPath = x.GetWorkingDir FolderBrowserDialog1.SelectedPath = WrkPath If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then TextBox2.Text = FolderBrowserDialog1.SelectedPath End If End Sub this code for select folder name or path. then copy this code for run procssing in IDRISI Selva Private Sub ButtonOK_Click(sender As Object, e As EventArgs) Handles ButtonOK.Click Dim CmdStr, WrkPath As String Dim i As Integer = 0 WrkPath = x.GetWorkingDir For Each File As String In IO.Directory.GetFiles(TextBox2.Text, "*.vlx", IO.SearchOption.AllDirectories) Dim Extension As String = IO.Path.GetExtension(File) Dim Name As String = IO.Path.GetFileNameWithoutExtension(File) CmdStr = "2*1*" + TextBox3.Text + "\" + Name + ".vlx*" + TextBox3.Text + "\" + Name + ".shp" x.RunModule("ShapeIdr", CmdStr, True, "", "qual", "", "", 1) i = i + 1 Label1.Text = "Working " & i.ToString & " ..." Next Label1.Text = "Finiched " & i.ToString End Sub finally you can run your application in IDRISI SELVA any question i'm here
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.



If you enjoy our contents, support us by Disable ads Blocker or add GIS-area to your ads blocker whitelist