Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Msg Box tiếng Việt Unicode có định dạng chữ đậm
#11
(23-07-15, 12:22 AM)maidinhdan Đã viết: Đã sử dụng hàm này, phát hiện vấn đề là: ( chỉ hiện thông báo tiếng việt)

Nếu có tham số đi kèm, để bắt code Yes, No, Cancel dùng không được...

Cảm ơn bác Ân chia sẻ code rất hay, không ngờ hàm Eval lại hay vậy. MTNQ xin góp ý thay đổi hàm trên chút xíu:

Mã:
Function VietUniMsgBox(Prompt As String, _
Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
Optional Title As String = vbNullString, _
Optional HelpFile As Variant, _
Optional Context As Variant) _
As VbMsgBoxResult
   If IsMissing(HelpFile) Or IsMissing(Context) Then
       VietUniMsgBox = Eval("MsgBox(""" & Prompt & _
        """, " & Buttons & ", """ & Title & """)")
   Else
       VietUniMsgBox = Eval("MsgBox(""" & Prompt & _
        """, " & Buttons & ", """ & Title & """, """ & _
        HelpFile & """, " & Context & ")")
   End If
End Function

(Bỏ biến FormattedMsgBox để tránh lỗi không khai báo biến và lỗi như bạn Dân đã nêu)
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn Noname , maidinhdan , tranthanhan1962 , Minh Tiên
#12
Mỗi hàm thông báo tiếng việt đều có cái hay riêng của nó. Mình thích ở bài viết này đó là nó có thể In đậm những gì mình mong muốn đến với người dùng.

Riêng mình đã tìm hiểu rất nhiều phương pháp thông báo tiếng việt bằng VBA ( khoản 5 loại, chỉ VBA thôi nhé) thì mình chỉ ưng ý nhất là 2 kiểu:

+ Dùng MsgboxUni kết hợp VNI to Uni ( khó mà lỗi font dù đặt trong môi trường Hệ điều hành nào)
+ Dùng hàm trên đây: Nhưng rất tiếc đối với các hệ điều hành như Win8 hệ 64 bit sẽ bị lỗi font này.

Để giúp các mem diễn đàn có sự lựa chọn phù hợp nhất, mình sẽ tổng hợp 8 loại Demo thông báo tiếng việt khác nhau cho các bạn lựa chọn từ các tác giả trong và ngoài nước. Về chung một chỗ. Để từ đó rút ra mặt mạnh ..yếu của từng loại.

Trân trọng, cảm ơn anh MTNQ
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn tranthanhan1962 , Noname , nguyenichtri
#13
(23-07-15, 06:47 PM)MatTroiNguQuen Đã viết: ...
(Bỏ biến FormattedMsgBox để tránh lỗi không khai báo biến và lỗi như bạn Dân đã nêu)

Thank MatTroiNguQuen đã hỗ trợ. Code này mình làm hồi còn xài Office XP SP3 với font VNI hôm trước chuyển qua thấy ok với font Unicode nên post lên không test kỹ. Đến khi Đàn phát hiện mình cũng chưa nghĩ ra lỗi ở đâu? Mà bạn phát hiện nhanh thật đó. Thank.
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , MatTroiNguQuen , maidinhdan
#14
Hay quá. Cảm ơn bạn [b]tranthanhan1962[/b]. Hình như dùng Unicode Tổ hợp mới được đúng không bạn?
Chữ ký của khanghychu khanghychu,gia nhập Thủ Thuật Access từ 21-01 -16.
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,403 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,706 23-03-16, 11:45 PM
Bài mới nhất: thiennamlong
  [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
  Hướng Dẫn Demo Cho tất cả thông báo tiếng việt vào một Macro maidinhdan 3 989 23-07-15, 03:09 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Demo gửi Email có thêm file đính kèm Access maidinhdan 0 681 09-04-15, 11:22 PM
Bài mới nhất: maidinhdan

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ơ