4. KẾT QUẢ NGHIÊN CỨU VÀ THẢO LUẬN 1 Tổng quan về khu vực nghiên cứu
4.3.2.Chức năng của một số Sub và Function chính
4.3.2.1. Các Sub và Function trong các module
- Sub Main(): Khởi tạo một số tham số sử dụng trong chương trình và thiết lập ñường dẫn tới CSDL.
- Function AddImage(): Có chức năng thêm ảnh vào bản ñồ.
- Function AddShapeFile(): Có chức năng thêm vào một lớp bản ñồ dưới ñịnh dạng Shapfile.
- Sub FullExtent(): Có chức năng giúp cho việc mở rộng bản ñồ. - Function dataPath(): Thiết lập ñường dẫn tới nơi chứa CSDL.
Trường ðại học Nông nghiệp Hà Nội – Luận văn thạc sĩ nông nghiệp ... 75
- Function shpPath() As String: Hàm này có chức năng lấy ra dữ liệu dạng Shapfile.
- Function twoShapesBounds (ByVal shpOne As Object, ByVal shpTwo As Object) As MapObjectsLT2.Rectangle: Chức năng này cho phép sử dụng hình chữ nhật trong thư viện MapObject.
- Function returnRGB(ByVal cv As Long) As Long(): Chức năng này cho phép ñưa ra một mảng chứa ba màu ñỏ, xanh lá cây, xanh da trời.
4.3.2.2. Các Sub và Function trong các form
- Sub Form_Load(): Chức năng của Sub này bao gồm các công việc khai báo biến, ñưa dữ liệu lên bản ñồ.
- Sub cmdExport_Click(): Chức năng xuất bản ñồ ra file ảnh.
- Sub VSFGridCurrPDLoad (ByVal m_currRow As Byte): Hiển thị ra bảng các dữ liệu là các tính chất của phẫu diện.
- Sub DBConnection (ByVal strFieldName As String): Thực hiện chức năng kết nối CSDL.
- Sub MapMain_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single): Cho phép thao tác với các dữ liệu bản ñồ như phóng to, thu nhỏ hoặc di chuyển bản ñồ...
- Sub XYLocate (Xmouse, YMouse As Single): Sub này có chức năng xác ñịnh vị trí các phẫu diễn trên bản ñồ.