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
maidinhdan > 09-05-20, 03:29 PM
* Bổ sung Modules ngày 9/5/2020: ModViethoaThongbao.bas chỉ cần import vào ứng dụng của mình. và gọi hàm MsgBox hoặc Inputbox như bình thường là hiển thị tiếng viết 100%
Nhớ kết hợp chuyển chữ từ UNI to Chr (tại bài #2: HamChr to VBA Uni.zip ).
Lý do bổ sung: chỉnh cụm từ Private trước mỗi hàm để trên form gọi mới hiển thị được tiếng việt.
Link download thứ 3, tại bài #1 của chủ đề 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
ongke0711 > 09-05-20, 04:36 PM
(09-05-20, 03:29 PM)maidinhdan Đã viết: * Bổ sung Modules ngày 9/5/2020: ModViethoaThongbao.bas chỉ cần import vào ứng dụng của mình. và gọi hàm MsgBox hoặc Inputbox như bình thường là hiển thị tiếng viết 100%
Nhớ kết hợp chuyển chữ từ UNI to Chr (tại bài #2: HamChr to VBA Uni.zip ).
Lý do bổ sung: chỉnh cụm từ Private trước mỗi hàm để trên form gọi mới hiển thị được tiếng việt.
Link download thứ 3, tại bài #1 của chủ đề này.
nhớ đưa cái hàm chuyển Uni to Chr vô cái HD tool luôn nhé.
-
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
maidinhdan > 09-05-20, 04:45 PM
(09-05-20, 04:36 PM)ongke0711 Đã viết:
nhớ đưa cái hàm chuyển Uni to Chr vô cái HD tool luôn nhé.
Từ 8h tối đến gần 3 sáng để ngồi tái tạo lại hàm của Noname, còn muốn đưa vào HD Tool thì phải tái tạo nửa. Chắc mất một tuần. haha...Tool đó em viết liên tục trong 3 tháng, Ngoài code Chuyển font thì chữ em copy hàm trên mạng, còn lại viết hết....gần 10 ngàn dòng....khoảng 5000 lần test....thất bại thất bại........đến lần 5000 ngàn nó thành công... -
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
yamakashi2003 > 31-07-20, 11:27 PM
Hình thông báo thứ 10, Việt hóa 100% cả nút Yes, No, Cancel
![[Hình: TBtiengvietLoai10.png]](https://sites.google.com/site/thuthuataccess2003/home/demo-hinh/TBtiengvietLoai10.png)
Chúc các bạn vui khỏe!
* Bổ sung Modules ngày 9/5/2020: ModViethoaThongbao.bas chỉ cần import vào ứng dụng của mình. và gọi hàm MsgBox hoặc Inpubox là hiển thị tiếng viết 100%, nhớ kết hợp chuyển chữ từ UNI to Chr. Link download thứ 3
[/quote]
Bác ơi cho em hỏi khi em mở file trên access 2016 - 64 bit, và sử dụng cách 3;4 thì nó báo lỗi ở các dòng
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
Liệu có code nào có thể chạy đươc ở cả 2 phiên bản 32 và 64 bit thay cho code trên không ạ. vì nếu phải thay code cho từng phiên bản thì hơi bất tiện ạ -
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
ongke0711 > 31-07-20, 11:50 PM
Bạn sửa lại như sau:
Mã PHP:#If VBA7 Then
Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
Private Declare PtrSafe Function MessageBoxW Lib "user32" (ByVal hwnd As LongPtr, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
#Else
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
#End If -
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
yamakashi2003 > 01-08-20, 11:18 PM
(31-07-20, 11:50 PM)ongke0711 Đã viết: Bạn sửa lại như sau:
Bác ơi, trong demo ở trên thì ở cách 3, 4: thông báo hiện ra bị lỗi font chữ đối với các chữ: đã, trình, đường
Mã PHP:#If VBA7 Then
Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
Private Declare PtrSafe Function MessageBoxW Lib "user32" (ByVal hwnd As LongPtr, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
#Else
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
#End If
Không biết các bác có cách nào không chỉ giúp em với
Em xin cảm ơn -
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
ongke0711 > 02-08-20, 01:57 PM
(01-08-20, 11:18 PM)yamakashi2003 Đã viết: Bác ơi, trong demo ở trên thì ở cách 3, 4: thông báo hiện ra bị lỗi font chữ đối với các chữ: đã, trình, đường
Trên máy tôi không bị lỗi 3 từ này nhé. Windows 7 32bit
- Bạn xài windows phiên bản nào?
- Bạn dùng font chữ gì để nhập text cho 2 cái ví dụ 3, 4?
Nói thêm là tới thời điểm này mà còn dùng VNI hay TCVN trong lập trình nữa à. Sao không dùng Unicode cho nó thống nhâts, máy nào cũng xài được không cần cài thêm font. -
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
yamakashi2003 > 02-08-20, 08:43 PM
(02-08-20, 01:57 PM)ongke0711 Đã viết:
Em dùng win 10 64 bit thì vẫn bị ạ, và khi gõ code em dùng bảng mã VNI(01-08-20, 11:18 PM)yamakashi2003 Đã viết: Bác ơi, trong demo ở trên thì ở cách 3, 4: thông báo hiện ra bị lỗi font chữ đối với các chữ: đã, trình, đường
Trên máy tôi không bị lỗi 3 từ này nhé. Windows 7 32bit
- Bạn xài windows phiên bản nào?
- Bạn dùng font chữ gì để nhập text cho 2 cái ví dụ 3, 4?
Nói thêm là tới thời điểm này mà còn dùng VNI hay TCVN trong lập trình nữa à. Sao không dùng Unicode cho nó thống nhâts, máy nào cũng xài được không cần cài thêm font.
Dùng Unicode trong lập trình msgbox tiếng việt, thì làm như thế nào ạ, em không thấy trong demo có
Bác chỉ giúp em với -
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
ongke0711 > 02-08-20, 11:05 PM
(02-08-20, 08:43 PM)yamakashi2003 Đã viết: Em dùng win 10 64 bit thì vẫn bị ạ, và khi gõ code em dùng bảng mã VNI
Dùng Unicode trong lập trình msgbox tiếng việt, thì làm như thế nào ạ, em không thấy trong demo có
Bác chỉ giúp em với
Tôi dùng Windows 7 - 64 bit + Office 2016 64 bit không bị lỗi font chữ.
Bạn nào dùng Windows 10 test thử nhé.
![[Hình: EZCJM20.png]](https://i.imgur.com/EZCJM20.png)
![[Hình: suqBDJV.png]](https://i.imgur.com/suqBDJV.png)
Còn việc dùng Unicode trong lập trình thì chỉ đơn giản là dùng toàn bộ font Unicode "dựng sẳn" trong thiết kế ứng dụng Access thôi chứ có gì đâu. Quốc tế hoá rồi thì cũng dùng font theo chuẩn quốc tế luôn ngoại trừ một số công việc đặc thù phải dùng font chữ VNI để hiển thị như thiết kế văn bản Word, Powerpoint v.v..
Dùng font Unicode rồi thì đỡ được một công đoạn code là chuyển từ VNI, TCVN sang Unicode rồi mới chuyển sang mã ASCII. -
RE: Demo Tổng hợp tất cả các kiểu thông báo tiếng việt trong Access
yamakashi2003 > 03-08-20, 12:10 AM
(02-08-20, 11:05 PM)ongke0711 Đã viết:
Co phải unicode dựng sẵn là cái unicode mặc định trên unikey phải không ạ. Vì em thấy còn 1 tùy chọn unikey tổ hợp.(02-08-20, 08:43 PM)yamakashi2003 Đã viết: Em dùng win 10 64 bit thì vẫn bị ạ, và khi gõ code em dùng bảng mã VNI
Dùng Unicode trong lập trình msgbox tiếng việt, thì làm như thế nào ạ, em không thấy trong demo có
Bác chỉ giúp em với
Tôi dùng Windows 7 - 64 bit + Office 2016 64 bit không bị lỗi font chữ.
Bạn nào dùng Windows 10 test thử nhé.
Còn việc dùng Unicode trong lập trình thì chỉ đơn giản là dùng toàn bộ font Unicode "dựng sẳn" trong thiết kế ứng dụng Access thôi chứ có gì đâu. Quốc tế hoá rồi thì cũng dùng font theo chuẩn quốc tế luôn ngoại trừ một số công việc đặc thù phải dùng font chữ VNI để hiển thị như thiết kế văn bản Word, Powerpoint v.v..
Dùng font Unicode rồi thì đỡ được một công đoạn code là chuyển từ VNI, TCVN sang Unicode rồi mới chuyển sang mã ASCII.
Nếu em làm như bác nói thì gõ vào msgboxuni chữ trường, đường, ễ,.... sẽ bị lỗi font ạ. Không biết có cách xử lý nào nhanh không bác