Đánh giá chủ đề:
  • 5 Votes - 4 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Msgbox dùng Unicode Tiếng việt
#1
Gần đây 1 số bạn ở các forum hay hỏi làm cách nào để hiện câu thông báo kiểu msgbox bằng tiếng Việt.
Có 1 số bạn hướng dẫn theo nhiều cách, tuy nhiên mình thấy vẫn chưa hợp lý:
- Cách 1: chỉnh Regional and Language Options thành Tiếng Việt.
Cách này chưa hợp lý ở kiểu gõ và sẽ bị lỗi ở hệ thống bàn phím dùng số.
- Cách 2: thay đổi font hệ thống trong thẻ Appearance. Chuyển thành font TCVN3 hay VNI. Sau khi đóng chương trình, hệ thống sẽ trả về lại như cũ.


Cách này đáp ứng được nhu cầu gõ tếng Việt. Nhưng các ứng dụng khác của toàn windows có liên quan msgbox sẽ bị ảnh hưởng.( thường là Unicode tiếng Việt không đọc được hoặc xấu hoắc). Mặc dù đây là giải pháp được nhiều lập trình viên lựa chọn vì có thể dùng Code tự động, tuy nhiên mình đánh giá rất thấp vì nó ảnh hưởng hệ thống.
- Cách 3: gọi Code của các ký tự có dấu. Cách này hơi phức tạp mỗi khi gọi 1 thông báo.

Và sau đây mình xin giới thiệu 2 phương pháp để có thể có msgbox bằng tiếng Việt Unicode mà không phải thay đổi hệ thống hay phức tạp gì. Mời bạn xem ứng chương trình demo.
Có thắc mắc gì xin hỏi tại đây!
download
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
#2
Bạn ơi, sao ko thấy chương trình demo? Nhấp vô download thì chỉ xuất hiện trang Khoa hoc pho thong?
Chữ ký của n_gel Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#3
Đã sửa link, bạn down lại đi!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn mrchau911 , n_gel
#4
chuẩn không cần chỉnh .
áp dụng thành công .
còn các bạn thế nào .
thứ đi nhé ... goodLuck
ღღღღღTài sản của mrchau911 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#5
Cám ơn bác Noname nhé, mình đã áp dụng thành công.

Tiện đây bác Noname cho hỏi, Mình có tích hợp Access với Microsoft Oulook được không nhỉ? Nếu được bác có thể chỉ mình cách làm được không. Thanks!
Chữ ký của hoangthanhhai Xin chào, mình là hoangthanhhai, Tham gia http://thuthuataccess.com/forum từ ngày 20-04 -11.
Reply
Những người đã cảm ơn
#6
Cảm ơn nhiều nhé Noname. Giải pháp của bạn hay quá, rất đơn giản
Chữ ký của thang2301 Xin chào, mình là thang2301, Tham gia http://thuthuataccess.com/forum từ ngày 16-06 -11.
Reply
Những người đã cảm ơn
#7
Cám ơn noname nhé. phần làm thông báo msbox bằng macro thì trước kia mình đã giới thiệu rồi. nhưng cách gọi msgbox ở table ra thì quả là hay. và rất rễ kiểm soát các thông báo trong chương trình hệ thống.Gathering
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
hic! công nhận code của bác Noname hay vãi...áp dụng rất tiện...
nhưng Bác cho e hỏi...bây giờ e muốn gõ tiếng việt ở caption của button trong code thì làm thế nào...

ví dụ: button.caption = "CẬP NHẬT"
....
Mong Bác chỉ bảo...
tks !
Chữ ký của bauauto Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#9
Ui link down bi lỗi rồi, bác noname post lại link cho AE tham khảo với. thanks
Chữ ký của hienchuoi9 Xin chào, mình là hienchuoi9, Tham gia http://thuthuataccess.com/forum từ ngày 25-08 -11.
Reply
Những người đã cảm ơn
#10
Tôi có một cách tạo Msgbox tiếng Việt theo kiểu củ chuối, đơn giản không cần khai báo Function hay Private jj gì cả. Chắc là đã có nhiều bạn làm rồi nhưng chưa chia sẽ nên tôi Post lên. Xin các pro cùng các bạn đừng cười nhé !

1. Tạo table "tblMsgbox(MsgID,MsgDes)
2. Tạo Form "frmMsgbox" gồm 2 textbox: txtMsgID và txtMsgDes
- Form có: Record Source = tblMsgbox
- txtMsgID có Control Source = MsgID
- txtMsgDes có Control Source = MsgDes
3. Tạo form "MsgboxControl" gồm 3 button box: Hienthi1, Hienthi2, Hienthi3:
- Sự kiện cho Hienthi1:
Private Sub hienthi1_Click()
DoCmd.OpenForm "frmMsgbox", acNormal, , "[MsgID]=1"
End Sub
- Sự kiện cho Hienthi2:
Private Sub hienthi2_Click()
DoCmd.OpenForm "frmMsgbox", acNormal, , "[MsgID]=2", , acDialog
End Sub
- Sự kiện cho Hienthi3:
Private Sub hienthi2_Click()
DoCmd.OpenForm "frmMsgbox", acNormal, , "[MsgID]=3", , acWindowNormal
End Sub

Nếu muốn Msgbox hiện lên rồi tắt trong 1 thời gian nào đó thì thêm sự kiện cho "frmMsgbox" gồm:
Private Sub Form_Load()
Me.TimerInterval = 1000
End Sub
và:
Private Sub Form_Timer()
DoCmd.Close
End Sub

Thế là có Msgbox Tiếng Việt 100%. Đơn giản như đang giỡn !
Demo:
.zip   MsgboxTiengViet.zip (Kích cỡ: 34.64 KB / Tải về: 106)
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] Demo_Chọn ngày tháng bằng nút (No Calender Tiếng việt) maidinhdan 7 1,404 25-06-16, 12:44 AM
Bài mới nhất: zinzin8x
  Hàm đọc số dùng mã Unicode trong Access Noname 28 11,710 23-03-16, 11:45 PM
Bài mới nhất: thiennamlong
  Msg Box tiếng Việt Unicode có định dạng chữ đậm tranthanhan1962 13 2,275 30-01-16, 12:39 AM
Bài mới nhất: khanghychu
  [Thủ Thuật] Hỏi_Xác định phiên bản Access đang dùng maidinhdan 1 380 18-12-15, 08:43 AM
Bài mới nhất: ongke0711
  [Thủ Thuật] 25 thủ thuật sử dụng Combobox, ListBox, Option group (Sưu tầm) ongke0711 0 562 03-12-15, 05:06 PM
Bài mới nhất: ongke0711

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ