myView=av.GetProject.FindDoc(“bản đồ”)  ‘ tìm khung nhìn có tên “bản đồ”

theSrcName=SrcName.Make(“D:\dulieu\hchinh.shp”)

      ‘ D: \dulieu\hchinh.shp là vị trí tệp tin dữ liệu dạng shapefile

      if (theSrcName=nil) then

                  Msgbox.Info(“Không tồn tại tệp tin”, “Thông báo”)

                  exit

      end

theTheme = Theme.Make(theSrcName)   ‘ tạo lớp dữ liệu

myView.AddTheme(theTheme)               ‘ đưa dữ liệu vào khung nhìn

theTheme.SetVisible (true)                       ‘ cho hiển thị lên bản đồ 

Tài liệu tham khảo: Giáo trình lập trình GIS - Lê Đức Trị

TRUNG TÂM GIS ỨNG DỤNG MỚI

Trụ sở: 72/8K Nhiêu Tứ, P7, Q. Phú Nhuận; VP: 120A Trần Kế Xương, P. 7, Q.  Phú Nhuận;

Điện thoại: 028. 62943959 – Fax: 028. 62943959; Email: ungdunggis@gmail.com; Hotline: 0908569935

mua bán iphone cũ | iphone 4 | iphone 4s | iphone 5 | sua chua dien thoai | miếng dán cường lực | hoc sua chua dien thoai | pin dien thoai | sửa chữa iphone | samsung galaxy s3 | Tìm gia sư với http://giasu24h.com | sửa nhà | Đơn vị cung cấp dịch vụ thue cau và xe cau | xây nhà | xây nhà đẹp |cung cấp dịch vụ ep coc be tong | Công ty cung cấp dịch vụ son nha | tao web mien phi , web gia re | tai nghe |