Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Thủ Thuật] Tùy biến Msgbox Unicode dễ dàng mà không lỗi font
#1
Wink 
Thấy các bạn quan tâm nhiểu về việc này, mình xin đưa ra giải pháp mà mình đã thược hiện. Tạo msgbox unicode tiếng Việt không lỗi mà không phải dùng hàm hay thiết đặt phức tạp. Bằng cách dùng Vietnames keyboard của Windows
1/ Cài đặt Vietnames keyboard trong control panel.
2/ Khi sử dụng Vietnames keyboard, phải tắt tất cả các bộ gõ tiếng việt khác.
3/ Vì khi soạn thảo bằng cách này trong module của Access bị lỗi con trỏ chỉ sai vị trí ký tự nên hay nhất là viết code trên notepad rồi dán vào module.
4/ Kiểu gõ của Vietnames keysboard như sau (bạn nào biết rồi khỏi đọc phần này007): 1=ă, 2=â, 3=ê, 4=ô, [=ư, ]=ơ, 5= huyền, 6= hỏi, 7= ngã, 8= sắc, 9= nặng, 0= đ.
Các bạn có thể copy các code bên dưới rồi dán thử vào module để test. Nhở là trước khi copy và dán phải chọn Vietnames keyboard và tắt tất cả các bộ gõ khác, không thì Font sẽ bị lỗi từa lưa đó021

Msgbox thường

Private Sub Nut1_Click()
MsgBox "THỦ THUẬT ACCESS là trang web cực kỳ bổ ích", , "Không lỗi Font Unicode"
End Sub

Msgbox chữ đậm

Private Sub Nut3_Click()
Eval ("MsgBox (" & _
" ' Đặt đúng các dấu a móc, dấu nháy và cặp ký tự Chr xuống dòng theo mẫu,' & " & _
" '@Không sử dụng các từ vb gán biểu tượng mà sử dụng số để gán biểu tượng cho msgbox. ' & Chr(13) & Chr(10) & " & _
" 'Để không lỗi Font Unicode tiếng Việt. Thiết đặt và sử dụng Vietnamese keyboard trong Control Panel." & Chr(13) & Chr(10) & _
ProcNo & "Chúc các bạn thành công! Không ̣được bỏ từ khóa ProcNo ở dòng cuối." & " @@',16,' Cách làm Font chữ ̣đậm và xuống dòng ' ) ")
End Sub


Private Sub Nut4_Click()
Eval ("MsgBox (" & _
" ' Sử dụng Vietnamese keyboard, tắt hết các bộ gõ khác ' & " & _
" '@Viết code trong giao diện modul Access sẽ sai vị trí dấu nháy của con trỏ ' & Chr(13) & Chr(10) & " & _
" 'Viết code trong notepad sẽ dễ hơn, rồi dán vào modul" & Chr(13) & Chr(10) & _
"Chúc các bạn thành công! Khi bỏ từ khóa ProcNo ở dòng cuối, giảm bớt dấu nháy đơn " & " @@',16,' Viết mã trực tiếp bằng Font Unicode code cho hàm msgbox không lỗi font ' ) ")
End Sub

Chúc các bạn thành công
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 maidinhdan


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  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
  Msg Box tiếng Việt Unicode có định dạng chữ đậm tranthanhan1962 13 2,272 30-01-16, 12:39 AM
Bài mới nhất: khanghychu
  Không cho hiện thông báo khi xóa record nguyenbalai 13 4,814 07-01-15, 02:55 AM
Bài mới nhất: MatTroiNguQuen
  Msgbox dùng Unicode Tiếng việt Noname 19 7,434 30-10-14, 05:08 PM
Bài mới nhất: tranthanhan1962
  Ngăn chặn không cho Access tự động lưu record Xuân Thanh 15 5,485 04-11-13, 04:39 PM
Bài mới nhất: vocsiit

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ơ