Tùy chọn
Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
- Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
-
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
paulsteigel > 06-08-15, 10:41 AM
Thực ra phần thêm tiếng Việt thì không phải là cái gì đặc biệt. Quan trọng là thủ tục có ngắn gọn để dùng lẫn trong các ứng dụng của ta không. Làm sao chỉ cần gắp mô đun và thả vào ứng dụng là dùng được.
Về vấn đề thêm tiếng Việt thì các bạn cần chú ý đến một thủ thuật gọi là Hook - Câu móc.
Kỹ thuật này được áp dụng khi ta cần thiết muốn thay đổi một số nội dung nào đó của các hộp thoại do hệ thống/ ứng dụng nào đó cung cấp. Trên thực tế, các hộp thoại đều gồm các điều khiển với các thông tin có thể điều khiển được.
Ta hãy hiểu cơ chế hoạt động của Windows như thế này:
1. Gọi lệnh hiển thị cái gì đó (thông điệp, hộp thoại).
2. Đầu tiên đối tượng đó được nạp vào bộ nhớ và đăng ký một thẻ (thường Windows gọi là Handle) sau đó nó sẽ đăng ký chuỗi các thông điệp/ lệnh cần thực hiện để có thể xuất hiện trên màn hình.
3. Windows sẽ lần lượt thực hiện các thông điệp đó và kết thúc chu trình.
Vậy kỹ thuật câu móc sẽ được can thiệp vào bước 2 theo đó ta sửa đổi vài thông tin trong các thông điệp để nó hiển thị theo ý mình. Đến đây có 2 kỹ thuật hiểu một cách nôm na như sau:
+ Chèn nội dung thông điệp chút ít để nó có các thông điệp ta cần- cái này gọi là Hook
+ Thêm vào vài lệnh theo yêu cầu - cái này gọi là SubClass.
Như thế thì ta có thể can thiệp vào hầu hết các hoạt động của hệ thống với bộ võ này.
Trở về thông điệp msgBox. Tôi dùng ngay thủ tục MsgBox để tiện dụng cho việc gọi thông điệp MsgBox. Vì tôi dùng tiếng Việt nên không cần phải dự phòng cho tình huống dùng tiếng Anh nữa.
Bước 1: Thiết lập cách hiển thị MsgBox
Xác định xem tham số truyền vào là gì để biết loại ứng dụng. Vì thường người ta sẽ truyền vào dạng tham số có Loại thông tin kết hợp luôn với loại thông điệp
các tham số vbCritical, vbYesNo ... chẳng qua chỉ là các hằng số và nó được gắn với giá trị nhất định tương đối nhất quán và thống nhấtMã:MsgBox "Hi", vbCritical + vbYesNo, "xxxx"
Ở đây tôi không thiết kế phần xác định nút nào là mặc định vì mất thời gian và cũng không quá cần thiết
Bước 2: Khởi tạo thủ tục câu móc
Để dùng được các hàm câu móc, chúng ta phải khai báo thêm các hàm API của hệ thống để sử dụng trong đoạn đầu Module
Hàm này để lấy thẻ đăng ký của ứng dụng gọi thông điệp
Mã:Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Hàm này để thiết lập các giá trị vào đối tượng trong hộp thoại
Mã: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 để thiết lập chế độ câu móc vào đối tượng nào của ứng dụng gọi hộp thoại
Mã: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 để kết thúc quá trình câu móc
Mã:Private Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
Sau khi khai báo xong, chúng ta bắt đầu gọi thủ tục Hook bằng cách
Mã:hHook = SetWindowsHookEx(WH_CBT, AddressOf MsgBoxHookProc, 0, GetCurrentThreadId)
Có 4 tham số, ta chỉ cần chú ý đến:
+ AddressOf MsgBoxHookProc: Địa chỉ của thủ tục câu móc trong bộ nhớ
+ GetCurrentThreadId: thẻ đăng ký của ứng dụng gọi thủ tục
Ở đây do hàm MsgBox được gọi ở chế độ Modal nên nó nổi lên trên cùng của ứng dụng và hệ thống dừng ở đó để chờ đợi thao tác do đó chỉ cần trả về thẻ Ứng dụng gọi hàm MsgBox là có thể lấy ngay được hộp thoại đang nổi lên. Với những hộp thoại không ở chế độ Modal thì phải dùng thêm một số tham số khác như Caption của hộp thoại, thẻ phụ ...vv
Đại loại hàm này sẽ đăng ký là: Khi hộp thoại đưa vào bộ nhớ thì thủ tục MsgBoxHookProc sẽ được kích hoạt và sửa đổi thông tin.
Sau khi gọi xong thì bỏ chế độ câu móc bằng
Mã:UnhookWindowsHookEx hHook
Và tiếp tục với việc hiển thị thông điệp ra màn hình
Mã:MsgBox = Application.Assistant.DoAlert(IIf(DlgCaption <> "", DlgCaption, App_Title), _
MessageTxt, msgButton, msgBoxIcon, ButtonDefault, msoAlertCancelDefault, True)
Thủ tục MsgBox này có thể áp dụng được với bất kỳ ứng dụng Office nào vì nó dùng thông điệp của Office Application.Assistant.DoAlert
Cái này tôi chộp được của Hoàng Trọng Nghĩa ở Giải pháp Excel (trước đây tôi dùng MsgBox của Hệ thống thấy nó xấu nên cuối cùng áp dụng cái Assistant của Nghĩa).
Đấy đơn giản thế thôi.
Nếu các bạn muốn tìm hiểu về Hook và SubClass thì có cả biển tài liệu để nghiên cứu nhờ dùng bác Gúc Gồ
Chúc các Cụ một ngày mới vui vẻ và hiệu suất cao -
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
kieu manh > 06-08-15, 07:44 PM
Mình nghĩ mấy hàm đó Thì InputBox Tiếng việt có dấu chắc Tịt Quá
Xài mấy hàm API nó hay chứng giữa Win32 và 64 lắm nhiều lúc nó chứng hết xài hông biết lý do tại sao nữa -
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
kieu manh > 06-08-15, 09:42 PM
Hàm VbaUni chữ : đã = ChrW(273) & "ã"
Thay vì nó phải vậy : đã = ChrW(273) & ChrW(227)
Vì vậy Hàm VbaUni một số máy hiểu sai từ đó
Một bộ siêu tập Msgbox khá đầy đủ nhưng còn thiếu một cái InputBox tiếng việt có dấu ...phải chăng nó khó làm quá.... -
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
MTNQ > 07-08-15, 10:21 PM
(06-08-15, 09:42 PM)kieu manh Đã viết: ...
Một bộ siêu tập Msgbox khá đầy đủ nhưng còn thiếu một cái InputBox tiếng việt có dấu ...phải chăng nó khó làm quá....
Cũng không đến nỗi "khó quá", chỉ cần bứt râu của bác Ân, cắm vào cằm bác Ngọc là có ngay một cái hàm InputBox TV
Mã:Function InputBox(ByVal Prompt As String, Optional ByVal Title As String = "", Optional ByVal DefaultResponse As String = "") As String
Title = IIf(Title <> "", Title, Application.Name)
hHook = SetWindowsHookEx(WH_CBT, AddressOf MsgBoxHookProc, 0, GetCurrentThreadId)
InputBox = Eval("InputBox(""" & Prompt & _
""", """ & Title & """, """ & DefaultResponse & """)")
End Function
Demo MsgBox va InputBox TV.rar -
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
MTNQ > 08-08-15, 09:09 AM
Nếu bạn nào không thích câu móc vào hệ thống thì chỉ cần đơn giản như sau:
Mã:Function fInputBox(ByVal Prompt As String, Optional ByVal Title As String = "", Optional ByVal DefaultResponse As String = "") As String
Title = IIf(Title <> "", Title, Application.Name)
fInputBox = Eval("InputBox(""" & Prompt & _
""", """ & Title & """, """ & DefaultResponse & """)")
End Function
Thực ra cú pháp đầy đủ của hàm InputBox như sau:
Mã:InputBox ( prompt [, title ] [, default ] [, xpos ] [, ypos ] [, helpfile ] [, context ] )
Link tham khảo hàm InputBox
P/S: MTNQ mới up lại Demo ở bài #14 (Lý do: sửa hàm fTXT và fTitle, thêm vào hàm ở bài này) -
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
chigonvh > 01-10-15, 10:05 PM
(31-07-15, 10:10 PM)maidinhdan Đã viết: Còn 1 cách nửa mà mình chưa trình bày, nhưng cũng có đã sử dụng trong demo trên. Nên mình xin trình bày dưới đây luôn.
Tên gọi: Hàm chuyển chuỗi Unicode tiếng Việt thành Chuỗi mã Unicode trong VBA
Tác giả: Noname
Link liên kêt để trao đổi: http://thuthuataccess.com/forum/thread-4302.html
Tên hàm sử dụng: Chrw( mã unicode)
Cách thức sử dụng:
![[Hình: vbaunicode.png]](http://dl.dropbox.com/u/38360355/pic/vbaunicode.png)
Bước 1: Bạn viết tiếng việt vào ô như hình phía trên, sau đó ta nhấn nút chuyển, Sau đó copy đoạn chữ mới tạo ra.
Bước 2: Viết hàm MsgBox bình thường trong VBA
Ví dụ: Tôi rất yêu em ======> "Tôi r" & ChrW(7845) & "t yêu em"
=> MsgBox ("Tôi r" & ChrW(7845) & "t yêu em")
Chúc các bạn thành công.
Phần này mình cũng đã bổ sung vào file đính kèm thứ 2 ở bài đầu tiên.
Tôi xin góp ý chút xíu nha:
Bước 2: Sử dụng hàm TBtiengviet của bác tranthanhan1962 thì chuẩn hơn.
Mình đã thử xài Msgbox nhưng vẫn lỗi.
![[Hình: univba1.jpg]](http://i193.photobucket.com/albums/z285/chi_go_nvh/univba1.jpg)
Nhưng thay bằng TBtiengviet thì ok:
![[Hình: univba2.jpg]](http://i193.photobucket.com/albums/z285/chi_go_nvh/univba2.jpg)
Demo của em đây
Múa rìu qua mắt thợ tí nha các bác...
-
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
tranthanhan1962 > 02-10-15, 01:24 AM
Còn một cách nữa là dùng bàn phím tiếng Việt của Windows để gõ tiếng Việt (VIE - keyboard Vietnamese). Cách này sử dụng trực tiếp hàm Msgbox của VBA mà không cần viết thêm code nào cả.
Lưu ý:
1/ Khi sử dụng bàn phím VIE phải tắt hết các bộ gõ tiếng việt khác như vietkey, unikey.
2/ Khi gõ trong giao diện module cứ mỗi dấu giọng sẽ chạy ký tự một khoảng trắng, vì vậy sau khi gõ một đoạn con trỏ chạy tuốt ra đằng sau cách xa đoạn văn, chỉnh sửa rất khó. Mẹo: gõ trong word rồi dán vào giao diện module - trong word không bị lỗi chạy khoảng trắng. Muốn chỉnh sửa cũng copy sang word chỉnh sửa rồi copy dán ngược trở lại.
3/ Khi copy, paste đoạn mã có ký tự tiếng việt cũng phải tắt hết các bộ gõ tiếng việt, chọn bàn phím VIE dưới thanh taskbar mới thực hiện copy, paste. Nếu không sẽ bị lỗi font.
4/ Kiểu gõ của phím VIE không giống ai. 1 - ă, 2 - â, 3 - ê, 4 - ô, 5 - dấu huyền, 6 - dấu hỏi, 7 - dấu ngã, 8 - dấu sắc, 9 - dấu nặng, 0 - đ, [ - ư, ] - ơ. Bỏ dấu ngay sau nguyên âm, xóa dấu dùng phím backspace. -
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
MTNQ > 17-03-16, 05:00 PM
Minh Tiên Đã viết:Chào cả nhà !
Tiên có một vấn đề phát sinh lỗi những không viết lý do là gì ? Nhờ các Pro chỉ giáo giúp !
Tiên có 1 File Access sử dụng "Msgbox thông báo lỗi bằng tiếng Việt của bạn "pausteigel" trên diễn đàn", khi chạy trên PC có office 2007 hoặc 2013 thì chạy OK. Nhưng khi gỡ office và chạy Access Runtime 2007 hoặc Access Runtime 2013 thì không chạy được và thông báo lỗi: "Đã dừng thực thi do lỗi thời gian chạy".
Nhờ các pro chỉ giáo cách khắc phục lỗi ! Hoặc hướng dẫn cách sử dụng code để khi chạy Access Runtime ko bị lỗi !
Thanks !
Sau khi test trên Access Runtime, MTNQ xin góp ý sửa module của bác Ngọc (paulsteigel) lại như sau:
Mã:Option Explicit
'=======================================================
' Module for Vietnamized MsgBox function
' This overide default VBA MsgBox function with some small
' modifications of text, button caption....
' Use this MsgBox function like it is in default VBA IDE
'=======================================================
' Import
#If VBA7 Then
Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As LongPtr
Private Declare PtrSafe Function SetDlgItemText Lib "user32" _
Alias "SetDlgItemTextW" _
(ByVal hDlg As LongPtr, _
ByVal nIDDlgItem As LongPtr, _
ByVal lpString As String) As LongPtr
Private Declare PtrSafe Function SetWindowsHookEx Lib "user32" _
Alias "SetWindowsHookExA" _
(ByVal idHook As LongPtr, _
ByVal lpfn As LongPtr, _
ByVal hmod As LongPtr, _
ByVal dwThreadID As LongPtr) As LongPtr
Private Declare PtrSafe Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As LongPtr) As LongPtr
' Handle to the Hook procedure
Private hHook As LongPtr
#Else
Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Private Declare Function SetDlgItemText Lib "user32" _
Alias "SetDlgItemTextW" _
(ByVal hDlg As Long, _
ByVal nIDDlgItem As Long, _
ByVal lpString As String) As Long
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
Private Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
' Handle to the Hook procedure
Private hHook As Long
#End If
' Hook type
Private Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5
' Constants
Private Const IDOK = 1
Private Const IDCANCEL = 2
Private Const IDABORT = 3
Private Const IDRETRY = 4
Private Const IDIGNORE = 5
Private Const IDYES = 6
Private Const IDNO = 7
' Modify this code for English
Private StrYes As String
Private StrNo As String
Private StrOK As String
Private StrCancel As String
Private StrRetry As String
Private StrIgnore As String
Private StrAbort As String
Private Function MsgBoxHookProc(ByVal lMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If lMsg = HCBT_ACTIVATE Then
StrYes = "&C" & ChrW(243)
StrNo = "&Kh" & ChrW(244) & "ng"
StrOK = "Ch" & ChrW(7845) & "p nh" & ChrW(7853) & "&n"
StrCancel = "&H" & ChrW(7911) & "y"
StrRetry = "&Th" & ChrW(7917) & " l" & ChrW(7841) & "i"
StrAbort = "&D" & ChrW(7915) & "ng"
StrIgnore = "&B" & ChrW(7887) & " qua"
SetDlgItemText wParam, IDYES, StrConv(StrYes, vbUnicode)
SetDlgItemText wParam, IDNO, StrConv(StrNo, vbUnicode)
SetDlgItemText wParam, IDCANCEL, StrConv(StrCancel, vbUnicode)
SetDlgItemText wParam, IDOK, StrConv(StrOK, vbUnicode)
SetDlgItemText wParam, IDABORT, StrConv(StrAbort, vbUnicode)
SetDlgItemText wParam, IDRETRY, StrConv(StrRetry, vbUnicode)
SetDlgItemText wParam, IDIGNORE, StrConv(StrIgnore, vbUnicode)
' Release the Hook
UnhookWindowsHookEx hHook
End If
MsgBoxHookProc = False
End Function
Function MsgBox(MessageTxt As String, Optional msgStyle As VbMsgBoxStyle, Optional DlgCaption As String = "") As VbMsgBoxResult
DlgCaption = IIf(DlgCaption <> "", DlgCaption, Application.Name)
hHook = SetWindowsHookEx(WH_CBT, AddressOf MsgBoxHookProc, 0, GetCurrentThreadId)
MsgBox = Eval("MsgBox(""" & MessageTxt & _
""", """ & msgStyle & """, """ & DlgCaption & """)")
End Function
-Phần chỉnh sửa: hàm MsgBox
-Kết hợp thủ thuật câu móc của bác Ngọc để hiển thị Tiếng Việt cho các nút nhấn (yes no,cancel,...) và phát hiện về hàm Eval của bác Ân
Như vậy ta vừa có thể chuyển hoàn toàn MsgBox sang Tiếng Việt như bác Ngọc, vừa hiển thị phần cần tô đậm như bác Ân chia sẻ trong chủ đề Msg Box tiếng Việt Unicode có định dạng chữ đậm -
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
DooHoaangPhuuc > 23-04-18, 10:59 PM
Xin chào Các Bác, Các Chú cùng Anh Chị,
Như dòng code trong VBA bên dưới :
MsgBox "Theo các tiêu chuẩn, văn bản : " & Me.TieuchuanID & ", " & Me.VanbanID & " !. Sản phẩm chưa đạt chuẩn.", vbInformation, "Thông báo"
Trong đó :
+ TieuchuanID : Là trường chứa các tiêu chuẩn kỹ thuật
(ví dụ : Tiêu chuẩn kỹ thuật TCVN 8-30 -2003
Tiêu chuẩn kỹ thuật TCVN 8-21 -2005
......... )
+ VanbanID : Là trường chứa các văn bản kỹ thuật
(ví dụ : Văn bản kỹ thuật vật liệu WI-8825-2003
Văn bản kỹ thuật tôi cao tần WI-2441-2015
......... )
Các dòng text trong VBA (các dòng màu xanh) có thể dùng mã chuyển đổi Unicode sang Tiếng Việt.
Còn các trường TieuchuanID, VanbanID, có thể dùng code Function để tự chuyển đổi sang Tiếng Việt được không. Nếu có thể được, giúp cho cháu xin code. Cảm ơn các Bác, các Chú cùng Anh Chị thật nhiều
Ví dụ như trên, Mesagebox thông báo :
"Theo các tiêu chuẩn, văn bản : Tiêu chuẩn kỹ thuật TCVN 8-30 -2003, Văn bản kỹ thuật vật liệu WI-8825-2003 !. Sản phẩm chưa đạt chuẩn.
DooHoaangPhuuc -
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
ongke0711 > 23-04-18, 11:33 PM
Theo tôi bạn nên dùng hàm MsgBoxUni() - trong cách số 4 là đơn giảm nhất. Tất cả các ứng dụng tôi làm demo post lên đây đều dùng module hàm này.
Mã PHP:Option Compare Database
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function MessageBoxW Lib "user32" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Function MsgBoxUni(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult
Dim BStrMsg, BStrTitle
'Hàm StrConv Chuyen chuoi ve ma Unicode'
BStrMsg = StrConv(PromptUni, vbUnicode)
BStrTitle = StrConv(TitleUni, vbUnicode)
MsgBoxUni = MessageBoxW(GetActiveWindow, BStrMsg, BStrTitle, Buttons)
End Function
Khi sử dụng:
- Chuyển đổi câu thông báo TV bằng cái ứng dụng bạn maidinhdan đã post luôn trong đây: "HamChrTo VBA Uni". Sau đó copy chuỗi mã này vào hàm MsgBoxUni()
Vd:
MsgBoxUni "Theo các tiêu chu" & ChrW(7849) & "n, v" & ChrW(259) & "n b" & ChrW(7843) & "n" & ChrW(8230), vbInformation, "C" & ChrW(7843) & "nh báo"
![[Hình: 26781373887_a8482c3b56_o.png]](https://farm1.staticflickr.com/827/26781373887_a8482c3b56_o.png)
- Còn các tham số đưa vào hàm MsgboxUni như: TieuChuanID...thì nó đã là tiếng Việt lưu trong table rồi thì nó sẽ hiển thị bình thường, không cần dùng hàm chuyển đổi gì cả.