Đá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
  [Thủ Thuật] Table variables - Lưu các biến hệ thống vào bảng ongke0711 0 238 01-07-17, 04:35 AM
Bài mới nhất: ongke0711
  Ngăn chặn không cho Access tự động lưu record Xuân Thanh 17 7,453 22-03-17, 01:12 PM
Bài mới nhất: trangdv.pchg
  Hàm đọc số dùng mã Unicode trong Access Noname 28 14,259 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 3,592 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 5,776 07-01-15, 02:55 AM
Bài mới nhất: MTNQ

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ơ