Hình như tình cờ vào nhóm Bản đồ lâm nghiệp thấy bạn Nắng lên nào đăng code cái này hay sao í nhỉ: (Nguồn: Facebook: Nắng Lên Nào)
Include "mapbasic.def" 'Khai báo thư viện Mapbasic
Include "Menu.def" 'Khai báo thư viện để lúc tạo MENU
Declare sub main 'Khai báo hàm Main chương trình chính
Declare sub TCVN 'Khai báo hàm TCVN
sub Main 'Bắt đầu với hàm Main.
Create menu "font" as 'Tạo menu FONT với
"TCVN3" CALLING TCVN 'TCVN3 và gọi lệnh TCVN
Alter menu bar add "font" 'Thêm Menu FONT trên thanh MENU
end sub 'Kết thúc hàm Main.
Sub TCVN 'Bắt đầu hàm TCVN
'Thiết lập phần Info với định dạng FONT TCVN3
Set Window Info Font (".VnTime",0,10,0)
'Giải thích như sau:
'.VNTIME là dạng font muốn chuyển.
'0 là kiểu dáng cho chữ
'Có 1 số dạng kiểu font như sau:
'0 là bình thường
'1 là dạng đậm
'10 là kích thước chữ
'Sẽ thiết lập cho nó với định dạng font là như phía dưới.
If WindowInfo(CommandInfo(CMD_INFO_WIN),WIN_INFO_TYPE) = WIN_BROWSER
''Nếu cửa sổ đang hiện thị mở ở cửa sổ có dạng browser
Then 'thì
Set Window FrontWindow() Font(".VnTime",0,11,0)
'thiết lập với định dạng Font .VNtime
End If 'kết thúc hàm nếu
End sub 'Kết thúc hàm TCVN