tranthanhan1962 > 31-05-15, 04:02 PM
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
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """)")
Else
FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
""", " & Buttons & ", """ & Title & """, """ & _
HelpFile & """, " & Context & ")")
End If
End Function
VietUniMsgBox DLookup("[ND]", "TB", "[ID] = 2"), vbCritical + vbAbortRetryIgnore, DLookup("[ND]", "TB", "[ID] = 1")
VietUniMsgBox DLookup("[ND]", "TB", "[ID] = 4"), vbExclamation + vbSystemModal, DLookup("[ND]", "TB", "[ID] = 3")
VietUniMsgBox DLookup("[ND]", "TB", "[ID] = 6"), vbQuestion, DLookup("[ND]", "TB", "[ID] = 5")
VietUniMsgBox ChrW(272) & "ây là MsgBox Ti" & ChrW(7871) & "ng Vi" & ChrW(7879) _
& "t!@Không l" & ChrW(7895) & "i Font Unicode ti" & ChrW(7871) & "ng Vi" _
& ChrW(7879) & "t.@Có th" & ChrW(7875) & " t" & ChrW(7841) & "o ch" & _
ChrW(7919) & " nét " & ChrW(273) & ChrW(7853) & "m.", vbCritical + _
vbAbortRetryIgnore, "Msg Box Ti" & ChrW(7871) & "ng Vi" & ChrW(7879) & "t"
VietUniMsgBox "Th" & ChrW(7911) & " thu" & ChrW(7853) _
& "t Acess là trang web b" & ChrW(7893) & " ích cho m" _
& ChrW(7885) & "i ng" & ChrW(432) & ChrW(7901) & "i.", _
vbExclamation + vbSystemModal, "Trân tr" & ChrW(7885) _
& "ng thông báo!"
VietUniMsgBox " Công cha nh" & ChrW(432) & _
" núi thái s" & ChrW(417) & "n." & vbCrLf & _
"Ngh" & ChrW(297) & "a m" & ChrW(7865) & " nh" _
& ChrW(432) & " n" & ChrW(432) & ChrW(7899) & _
"c trong ngu" & ChrW(7891) & "n ch" & ChrW(7843) _
& "y ra.", vbQuestion, "Ca dao Vi" & ChrW(7879) & "t Nam"