Tùy chọn
Msgbox dùng Unicode Tiếng việt
- Msgbox dùng Unicode Tiếng việt
-
RE: Msgbox dùng Unicode Tiếng việt
khaccuong > 15-12-12, 10:38 PM
Bạn Noname ơi post lại cho anh tham khảo với. Link không download được -
RE: Msgbox dùng Unicode Tiếng việt
Minh Tiên > 11-05-13, 12:40 PM
Bác NoName ơi !
Tôi đã áp dụng Msgbox tiếng Việt của Bác chạy rất OK. Nhưng hiện nay không biết khai báo lỗi hay con Vi cái Rus nó cắn cai gì của máy mà ko hiển thị trọn vẹn Tiếng Việt trong msgbox được. Một số chữ thì OK, một số chữ thì No OK như: Các chữ đ, ợ ... không hiển thị được.
Bác Noname hay các Pro nào gặp trường hợp này chỉ giúp tmtien cách khắc phục với !
Cảm ơn nhiều ! -
RE: Msgbox dùng Unicode Tiếng việt
bomnhauag > 11-05-13, 01:02 PM
(11-05-13, 12:40 PM)tmtien261 Đã viết: Bác NoName ơi !
Tôi đã áp dụng Msgbox tiếng Việt của Bác chạy rất OK. Nhưng hiện nay không biết khai báo lỗi hay con Vi cái Rus nó cắn cai gì của máy mà ko hiển thị trọn vẹn Tiếng Việt trong msgbox được. Một số chữ thì OK, một số chữ thì No OK như: Các chữ đ, ợ ... không hiển thị được.
Bác Noname hay các Pro nào gặp trường hợp này chỉ giúp tmtien cách khắc phục với !
Cảm ơn nhiều !
Theo Bợm nghĩ, có thể khi bạn gõ nội dung Message đã chỉnh Unicode tổ hợp trong bộ gõ rồi, chỉnh sang Unicode dựng sẵn và gõ lại thử xem sao nhé!
Thân!
-
RE: Msgbox dùng Unicode Tiếng việt
Minh Tiên > 12-05-13, 10:31 AM
(11-05-13, 01:02 PM)bomnhauag Đã viết: Theo Bợm nghĩ, có thể khi bạn gõ nội dung Message đã chỉnh Unicode tổ hợp trong bộ gõ rồi, chỉnh sang Unicode dựng sẵn và gõ lại thử xem sao nhé!
Thân!
Cảm ơn "bomnhauag" nhiều ! Đúng là bị lỗi font Unicode. Nhưng không phải như bạn nói mà là ngược lại. Tức phải chuyển từ Unicode dựng sẳn ---> Unicode tổ hợp thì Msgbox hiển thị OK.
Ko biết các PC khác thế nào. Nhưng PC của mình là thế ! -
RE: Msgbox dùng Unicode Tiếng việt
paulsteigel > 13-05-13, 09:27 AM
Đây là một phiên bản hiển thị thông điệp bằng tiếng Việt Unicode.
Cách sử dụng như sau: các bạn thêm vào 1 Module và copy đoạn code sau vào Module. Thông điệp hiển thị được với MSGBOX này có thể viết bằng tiếng việt Unicode thông thường (dựng sẵn hoặc tổ hợp).
Khi sử dụng chỉ cần gọi Msgbox như thông thường. Ngoài ra, các bạn có thể làm 1 bảng chưa các thông điệp, sau đó viết 1 hàm để tải ra thông điệp và truyền cho MsgBox. Khi thiết kế thông điệp, chúng ta tránh viết hẳn trong Code (hardCode) mà nên đặt tên chuỗi ứng với thông điệp rồi dùng 1 hàm để lấy giá trị theo chuỗi đó.
Ví dụ Msgbox MSG("MSG_CANCEL_CONTRACT"),VbCritical
Trong đó MSG("MSG_CANCEL_CONTRACT") sẽ trả về 1 giá trị có trong CSDL để nói về việc hủy hợp đồng chẳng hạn.
Bài này tôi cũng đã chia sẻ bên GiaiphapExcel.com.
Xin chia sẻ cùng các bạn.
Mã PHP:Option Explicit
' Hàm này để lấy tham chiếu hộp thoại MsgBox của Hệ thống
Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
' Hàm này để thiết lập tiếng việt cho hộp thoại
Private Declare Function SetDlgItemText Lib "user32" _
Alias "SetDlgItemTextW" _
(ByVal hDlg As Long, _
ByVal nIDDlgItem As Long, _
ByVal lpString As String) As Long
' Hàm này để móc vào hàm hệ thống
Private Declare Function SetWindowsHookEx Lib "user32" _
Alias "SetWindowsHookExA" _
(ByVal idHook As Long, _
ByVal lpfn As Long, _
ByVal hmod As Long, _
ByVal dwThreadId As Long) As Long
' Hàm này bỏ chế độ câu móc hàm hệ thống
Private Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
' Handle to the Hook procedure
Private hHook As Long
' Hook type
Private Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5
' Constants
Public Const IDOK = 1
Public Const IDCANCEL = 2
Public Const IDABORT = 3
Public Const IDRETRY = 4
Public Const IDIGNORE = 5
Public Const IDYES = 6
Public Const IDNO = 7
' Modify this code for English
Private StrYes As String
Private StrNo As String
Private StrOK As String
Private StrCancel As String
' Application title
Private Const xApp_Title = "SEDP Manager"
Function MsgBox(MessageTxt As String, Optional msgStyle As VbMsgBoxStyle) As VbMsgBoxResult
Beep
Dim iVal As VbMsgBoxStyle, msgBoxIcon As MsoAlertIconType, msgButton As MsoAlertButtonType
iVal = msgStyle
Select Case msgStyle
Case 20, 19, 17, 16: ' Critical case
iVal = iVal - 16
msgBoxIcon = msoAlertIconCritical
Case 36, 35, 33, 32: ' Question case
iVal = iVal - 32
msgBoxIcon = msoAlertIconQuery
Case 52, 51, 49, 48: ' Exclamation case
iVal = iVal - 48
msgBoxIcon = msoAlertIconWarning
Case 68, 67, 65, 64: ' Information case
iVal = iVal - 64
msgBoxIcon = msoAlertIconInfo
End Select
Select Case iVal
Case 4:
msgButton = msoAlertButtonYesNo
Case 3:
msgButton = msoAlertButtonYesNoCancel
Case 1:
msgButton = msoAlertButtonOKCancel
Case 0:
msgButton = msoAlertButtonOK
End Select
' Set Hook
hHook = SetWindowsHookEx(WH_CBT, AddressOf MsgBoxHookProc, 0, GetCurrentThreadId)
' Hien thi thong diep...
MsgBox = Application.Assistant.DoAlert(App_Title, MessageTxt, msgButton, msgBoxIcon, msoAlertDefaultFirst, msoAlertCancelDefault, True)
End Function
Private Function MsgBoxHookProc(ByVal lMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If lMsg = HCBT_ACTIVATE Then
' Sua cac thong diep tren nut bam (nut Yes, No, OK, Cancel....
StrYes = "&C" & ChrW(243)
StrNo = "&Kh" & ChrW(244) & "ng"
'StrOK = ChrW(272) & ChrW(7891) & "&ng " & ChrW(253)
StrOK = "Ch" & ChrW(7845) & "p nh" & ChrW(7853) & "&n"
StrCancel = "&H" & ChrW(7911) & "y"
'//// Cau vao he thong de dua gia tri tieng Viet
SetDlgItemText wParam, IDYES, StrConv(StrYes, vbUnicode)
SetDlgItemText wParam, IDNO, StrConv(StrNo, vbUnicode)
SetDlgItemText wParam, IDCANCEL, StrConv(StrCancel, vbUnicode)
SetDlgItemText wParam, IDOK, StrConv(StrOK, vbUnicode)
' Release the Hook
UnhookWindowsHookEx hHook
End If
MsgBoxHookProc = False
End Function -
RE: Msgbox dùng Unicode Tiếng việt
changkhoonline77 > 16-08-14, 10:23 AM
Cho mình hỏi mình cần dùng thông báo 3 nút yes no cancel thì làm sao?
ví dụ như
If MsgBox ("ban muon dong va luu lai", vbYesNoCancel, "thong bao") = vbYes Then
DoCmd.Close
vb=No với vb=cancel thì khai như thế nào mọi người? -
RE: Msgbox dùng Unicode Tiếng việt
Minh Tiên > 16-08-14, 12:45 PM
Chào bạn.
Bạn tạo 1 biến strMsg as string
Gán strMsg = Msgbox...
If strMsg=yes then
...
If strMsg=no then
..
Else
...
Chúc thành công -
RE: Msgbox dùng Unicode Tiếng việt
changkhoonline77 > 16-08-14, 06:24 PM
để mình thử xem. cám ơn bạn trước -
RE: Msgbox dùng Unicode Tiếng việt
hanyoungmine > 17-08-14, 09:58 PM
Còn cách 4 nữa. Thiết kế form mô phỏng kiểu msgbox. Vào dùng table lưu trữ câu thông báo. Như trong clip này. http://youtu.be/3Mn9n5h4Ow8 -
RE: Msgbox dùng Unicode Tiếng việt
tranthanhan1962 > 30-10-14, 05:08 PM
Lâu lắm không vào "THỦ THUẬT ACCESS" bị xóa nick. Đăng ký lại với tên cũ, không ngờ lại được. Trước đây mình cũng tham gia diễn đàn viết vài bài nhưng chắc mất theo nick rồi. Mình có một cách rất cực đơn giản để viết Mgbox Unicode tương thích với mọi Windows mà không phải dùng hàm nào cả. Các bạn chỉ cần sử dụng hàm Msgbox và cú pháp thông thường của nó. Điều quan trọng là các bạn phải thiết đặt vietnamese keyboard cho Windows để đánh các ký tự Unicode (Nhớ tắt tất cả bộ gõ tiếng Việt khác). Đều kỳ cục là nếu các soạn thảo Unicode trong giao diện viết code của Access Con trỏ sẽ chạy bậy, không đúng vị trí của ký tự đang gõ. Vì vậy các bạn cứ soạn thảo dòng lệnh trên word hay notepad rồi dán vào là chắc ăn. Nếu các bạn sử dụng nhiều Msgbox và lưu biến của hàm trên table, các bạn vẫn sử dụng vietnamese keyboard để soạn thảo để không bị lỗi Font
Đây là đoạn mã mình đã soạn thảo bằng cách này các bạn có thể copy để test. Mình cũng thử copy dán trở lại vẫn chạy tốt. nhưng qua mạng thì không biết như thế nào.
Private Sub Command0_Click()
MsgBox "THỦ THUẬT ACCESS là trang web cực kỳ bổ ích", , "Không lỗi Font Unicode"
End Sub
Cũng bằng cách này ta có thể thiết kế các inputbox Unicode