MTNQ > 23-07-15, 06:47 PM
(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...
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
maidinhdan > 23-07-15, 11:27 PM
tranthanhan1962 > 27-07-15, 11:45 PM
(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)
khanghychu > 30-01-16, 12:39 AM
doanvicuong > 23-10-20, 04:34 PM
tranthanhan1962 > 23-10-20, 11:04 PM
(23-10-20, 04:34 PM)doanvicuong Đã viết: Cho hỏi chút xíu: Mình theo cách hiện tiếng việt rất OK nhưng có một điều ko làm được, đó là các nút OK, Cancel, Retry ... không có tác dụng. Làm sao đây bạn. Thanks.Các nút này là nút hệ thống của windows không can thiệp được. Có 2 cách xử lý: