Trang chủ MapBasic nâng cao Bài 3: Hộp thoại tiêu chuẩn và tùy chỉnh trong MapBasic

Bài 3: Hộp thoại tiêu chuẩn và tùy chỉnh trong MapBasic

- Quảng cáo -

Nếu bạn tìm kiếm Dialog Statement trong MapBasic Help, bạn sẽ thấy mục đích của nó là tạo các hộp thoại tùy chỉnh. Trong một bài viết trước, chúng tôi đã sử dụng câu lệnh Note, đây là câu lệnh cơ bản nhất trong các hộp thoại tiêu chuẩn MapInfo. Phần Trợ giúp trên các hộp thoại cho biết: “The Dialog statement lets you create a custom dialog box. If you want to display a standard dialog box (for example, a File>Open dialog box), use one of the following statements or functions: Ask() function, Note statement, ProgressBar statement, FileOpenDlg() function, FileSaveAsDlg() function, or GetSeamlessSheet() function).”

Hàm Ask() hiển thị hộp thoại hỏi người dùng câu hỏi hay không.
Ví dụ:

Dim more As Logical
more = Ask(“Do you want to continue?”, “OK”, “Stop”)

Xem thêm đoạn code sau:

Include “MAPBASIC.DEF”
Include “ICONS.DEF”
Include “MENU.DEF”

Declare Sub Main
Declare Sub About
Declare Sub End_Program

Define AppName “Ask Function Example”
Define AppVersion 1.0

‘Defining Dialog Width and Height
‘This allows you to specify width and height clauses in terms of characters (i.e., Width 30dW, Height 10dH).
Define dW *4 ‘Four dialog units equals one character in width
Define dH *8 ‘Eight dialog units equals one character in height

‘********************
Sub Main
‘*********************

Call About

End Sub Main

‘********************
Sub About
‘********************
Dialog 
Title “About ” + AppName + ” (Version ” + AppVersion + “)” 
Control StaticText title “This simple application demonstrates how the Ask function works.” Position 3dW, 1dH
Control StaticText title “To see how it works:” Position 3dW, 3dH
Control StaticText title “- Look at the Sub End_Program section of the code” Position 3dW, 4dH
Control StaticText title ” You have the option of closing the application ” Position 3dW, 5dH
Control StaticText title “If you select Cancel the program closes” Position 3dW, 7dH
Control StaticText title “If you select Exit the application will display the Ask dialogue box” Position 3dW, 8dH
Control StaticText title “This gives you the option of cancelling or continuing the program” Position 3dW, 9dH
Control StaticText title “This is a simple example of how to use the Ask() function” Position 3dW, 10dH
Control StaticText title Chr$(169) + ” 2016 – Joe Short” Position 50dW, 14dH
Control OKButton Title “&Exit” Calling End_Program
Control CancelButton

End Sub About

‘********************
Sub End_Program
‘********************

Dim Finished as Logical

Finished = Ask(“Are you sure you want to remove the application ” + AppName + “?”, “&Yes”, “&No”)

If not Finished then Dialog Preserve

Else

End Program

End if

End Sub End_Program

‘*********************

Đọan code gọi thủ tục Sub About hiển thị hộp thoại chứa tiêu đề và ba loại điều khiển (control): StaticText, OKButton và CancelButton.

Một số điểm cần lưu ý là cách xác định các câu lệnh Define cho phép cập nhật các thông tin thông qua biến mà không cần phải thực hiện nhiều thay đổi trong mã code. Tiêu đề “About ” + AppName + ” (Version ” + AppVersion + “)” và dWdH là những ví dụ về cách sử dụng điều này. Biểu tượng bản quyền © được tạo bằng cách sử dụng Chr $ (169) trong đoạn lệnh ở trên.

Nếu bạn nhấp vào nút Exit, hộp thoại sẽ xuất hiện như dưới đây:

Nhấp vào nút No sẽ đưa bạn trở lại hộp thoại thông tin. Nhấp vào nút Yes sẽ xóa chương trình khỏi MapInfo.

Nếu bạn tra cứu câu lệnh Dialog Preserve trong MapBasic Help sẽ thấy đạon mã code như sau:

Sub confirm_cancel

              If  Ask(“Do you really want to lose your changes?”,

                      “Yes”, “No” ) = FALSE  Then

                        Dialog Preserve

               End If

​End Sub 

Mã này kiểm tra xem người dùng có muốn mất bất kỳ thay đổi nào không. Nếu phản hồi là No (FALSE) thì câu lệnh Dialog Preserve sẽ kích hoạt lại hộp thoại gốc. Để biết thêm thông tin các lệnh trên, xem câu lệnh Dialog trong MapBasic Help.

Bình luận bằng Facebook Comments

MẠNG XÃ HỘI

1,010ThíchThích
170Đăng kýĐăng Ký

TOOL PXTmap.com

BÀI VIẾT LIÊN QUAN

Hàm FileOpenDlg() trong MapBasic

Hàm FileOpenDlg() không thực sự mở tệp, thay vào đó hàm cung cấp cho người dùng tùy chọn mở tệp. Hàm này...

Hàm FileSaveAsDlg() trong MapBasic

Giống như hàm FileOpenDlg(), FileSaveAsDlg() có bốn đối số chuỗi: đường dẫn mặc định, tên mặc định, loại tệp và dấu nhắc...

Lấy danh sách thư mục & thư mục con bằng Mapbasic và Windows API

Hàm GetFileList mà bạn có thể sao chép vào Project của MapBasic (lưu ý: cần sao chép các phần: delarations, type, defines…)

Bài 4: Dialog nâng cao trong MapBasic

Cách dễ dàng nhất để thêm các tùy chọn bổ sung vào các ứng dụng MapBasic là chuyển từ việc sử dụng...