Ví dụ này cho phép người dùng chọn các đối tượng trên bản đồ bằng chuột, có 2 trường hợp xảy ra: người dùng nhấn chuột ở một điểm hoặc người dùng vẽ một vùng để chọn đối tượng.

      myView = av.GetProject.FindDoc(“Ban do”)

      theRect = myView.ReturnUserRect  ' lay ve vung hinh chu nhat

      if ( theRect.IsNull) then   ' xet cho truong hop chi nhan chuot

                  thePoint=myView.GetDisplay.ReturnUserPoint  ' vi tri nhan chuot

                  listActiveThemes=myView.GetActiveThemes

                  For each theTheme in listActiveThemes

                      theTheme.SelectByPoint(thePoint, #VTAB_SELTYPE_NEW)

                  end

      else                              ' xet cho truong hop ve vung de chon

                  For each theTheme in listActiveThemes

                     theTheme.SelectByRect(theRect, #VTAB_SELTYPE_NEW)

                  end

     end

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 |