Tùy chọn
Msgbox dùng Unicode Tiếng việt
- Msgbox dùng Unicode Tiếng việt
-
Msgbox dùng Unicode Tiếng việt
Noname > 13-08-10, 10:10 PM
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 -
RE: Msgbox dùng Unicode Tiếng việt
n_gel > 02-04-11, 08:21 PM
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? -
RE: Msgbox dùng Unicode Tiếng việt
Noname > 03-04-11, 09:52 PM
Đã sửa link, bạn down lại đi! -
RE: Msgbox dùng Unicode Tiếng việt
mrchau911 > 03-04-11, 10:03 PM
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 -
RE: Msgbox dùng Unicode Tiếng việt
hoangthanhhai > 27-04-11, 11:24 AM
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! -
RE: Msgbox dùng Unicode Tiếng việt
thang2301 > 16-06-11, 09:55 AM
Cảm ơn nhiều nhé Noname. Giải pháp của bạn hay quá, rất đơn giản -
RE: Msgbox dùng Unicode Tiếng việt
quanghoasla > 16-06-11, 01:55 PM
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.
-
RE: Msgbox dùng Unicode Tiếng việt
bauauto > 20-06-11, 10:51 PM
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 ! -
RE: Msgbox dùng Unicode Tiếng việt
hienchuoi9 > 25-08-11, 04:36 PM
Ui link down bi lỗi rồi, bác noname post lại link cho AE tham khảo với. thanks -
RE: Msgbox dùng Unicode Tiếng việt
Minh Tiên > 15-12-12, 01:00 PM
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:
MsgboxTiengViet.zip (Kích cỡ: 34.64 KB / Tải về: 129)