Tools Tạo MsgBox - MsgBox Creator (1 người xem)

Kiều Mạnh · 14/5/20

Lang thang thấy code tạo Msgbox hay Mạnh copy về chỉnh sửa viết thêm cho Phù hợp với Unicode ... Msgbox cho Tiếng Việt có dấu
Vì tây nó xài ko có dấu

úp cho ai mới làm quen với VBA xài tạm

Viết cái gì đó vào Mũi tên màu đỏ ý xong chạy thử xem sao nha

Để xài Tiếng Việt có dấu trên VBA ... Mạnh khuyến mại cho cái Hàm sau he .. kết hợp với Tools trên là tạm ok

Mã:

Public Function UniMsgbox(Optional Message$, Optional TimeOut = "", Optional Format = "", Optional Msg)
    Rem Cu Phap object.Popup (Message [, TimeOut][, Title] [, Format])
    Rem Cau Truc: UniMsgBox([Message = Thông diep], [TimeOut = Het Gio], [Title = Tieu De], [Format = Icon Bieu Tuong])
    Dim Title As String                 '' Tieu De: Written by Kieu Manh - Tel: 0922.366.377
    If Format = "" Then Format = 64     '' Icon Mac dinh la 64 ...Tuy Chon Tham So 1,2,3,4,5,48,64,65,67,68...
    If TimeOut = "" Then TimeOut = 3    '' Thoi gian Thoat Mac dinh la 3 Giay
    Rem Title = "Written By Ki" & ChrW(7873) & "u" & " M" & ChrW(7841) & "nh"       ''Written By Kieu Manh
    Title = "Ph" & ChrW(432) & ChrW(417) & "ng" & " Nam" & " Telecom" & ChrW(174)   ''Phuong Nam Telecom(R)
    Msg = CreateObject("Wscript.shell").PopUp(Message, TimeOut, Title, Format)
End Function

Đồ chơi có hết rồi cứ thế gắp ra mà xài vậy .... Quá khỏe chứ lị ????!!!!! -0-0-0-

BuiQuangThuan · 14/5/20

Nó vẫn báo thế này thì phải làm thế nào ạ. Tại em chưa biết sử dụng thêm cái hàm kia của anh sao á
Anh có thể hướng dẫn chi tiết hơn xíu được không ạ

Kiều Mạnh · 14/5/20

buiquangthuan đã viết:
View attachment 237368
Nó vẫn báo thế này thì phải làm thế nào ạ. Tại em chưa biết sử dụng thêm cái hàm kia của anh sao á
Anh có thể hướng dẫn chi tiết hơn xíu được không ạ

xài cái Hàm khuyến mại đó chi ... quậy banh ta lông đi là biết à
Khuyến mại thêm cho cái chuyển mã riêng he ... mai mốt rảnh làm nhiều cái trong 1 luôn cho

batman1 · 14/5/20

kieu manh đã viết:
xài cái Hàm khuyến mại đó chi ... quậy banh ta lông đi là biết à
Khuyến mại thêm cho cái chuyển mã riêng he ... mai mốt rảnh làm nhiều cái trong 1 luôn cho

Bạn nên hướng dẫn người khác vì người khác không hiểu đâu. Bạn tưởng người khác hiểu nhưng không phải. Bạn có thói quen viết cụt lủn, nói nhát gừng.

1. Tập tin EXE để làm gì? Chỉ để chơi làm cảnh hay nó giúp tạo cái gì?

2. Ai đó muốn MsgBox unicode mà tò mò tool của bạn thì người ta phải làm gì? Thậm chí bạn không nói rõ các thao tác trong EXE, vậy thì đoán mò? Bạn viết

Viết cái gì đó vào Mũi tên màu đỏ ý xong chạy thử xem sao nha

Tức nhập chuỗi vào chỗ đỏ đỏ rồi sao? "chạy thử xem sao nha" có nghĩa là sao? Tôi đoán mò là sẽ cần chọn icon, chọn các checkbox. Nhưng tiếp theo là gì? Là nhấn Preview? Để mà làm gì? Để nhìn cho sướng mắt tiêu đề "Written by Kiều Mạnh"? Theo tôi hiểu thì bạn muốn giúp ai đó hiển thị MsgBox trong VBA cơ mà. Chạy EXE chỉ để nhìn sướng mắt?

Hay là EXE giúp tạo cái gì đó? Tạo chuỗi vd. MsgBox "Bi?t m"&ChrW(259)&"´t b"&ChrW(259)&"´t d"&ChrW(234), vbInformation + vbOkOnly + vbApplicationModal + VbMsgBoxSetForeground, "Thong Bao" sau khi nhấn Build? Dùng để làm gì? Dùng để Paste vào đâu đó trong code VBA? Cụ thể vào đâu?

Nếu thao tác là: nhập chuỗi vào đỏ đỏ -> chọn icon, các checkbox -> nhấn Build -> copy text ở trường code (xem hình), bỏ qua đoạn MsgBox -> dán đoạn text vừa copy vào chỗ gọi UniMsgbox thay cho "hichic", code ví dụ ở dưới, thì có câu hỏi: Làm như thế để làm gì? Để tạo chuỗi cho hàm UniMsgbox? Nếu chỉ thế thì hơi phí điện nước. Để tạo chuỗi cho hàm UniMsgbox thì chỉ cần một đoạn code VBA ngắn thôi. Không cần tới tool gì đó đâu.

Mã:

Option Explicit

Public Function UniMsgbox(Optional Message$, Optional TimeOut = "", Optional Format = "", Optional Msg)
    Rem Cu Phap object.Popup (Message [, TimeOut][, Title] [, Format])
    Rem Cau Truc: UniMsgBox([Message = Thông diep], [TimeOut = Het Gio], [Title = Tieu De], [Format = Icon Bieu Tuong])
    Dim Title As String                 '' Tieu De: Written by Kieu Manh - Tel: 0922.366.377
    If Format = "" Then Format = 64     '' Icon Mac dinh la 64 ...Tuy Chon Tham So 1,2,3,4,5,48,64,65,67,68...
    If TimeOut = "" Then TimeOut = 3    '' Thoi gian Thoat Mac dinh la 3 Giay
    Rem Title = "Written By Ki" & ChrW(7873) & "u" & " M" & ChrW(7841) & "nh"       ''Written By Kieu Manh
    Title = "Ph" & ChrW(432) & ChrW(417) & "ng" & " Nam" & " Telecom" & ChrW(174)   ''Phuong Nam Telecom(R)
    Msg = CreateObject("Wscript.shell").PopUp(Message, TimeOut, Title, Format)
End Function

Sub test()
    UniMsgbox "hichic"
End Sub

Kiều Mạnh · 14/5/20

Rảnh mới làm thêm 1 tí tạm keo là Ver1.1 .... nếu Bạn nào có ý kiếm chi lại làm thêm tí nữa

1/ Button Copy UniCode String = Chuyển Mã sang Unicode xong Copy chuỗi đó vào Clipboard ... xong thích dán vào đâu thì tùy

2/ Button Build n' Copy MsgBox = Build Cấu trúc Msgbox xong Copy vào Clipboard ... xong thích dán vào đâu thì tùy

3/ Button Preview MsgBox = Xem trước hay test thử Msgbox

4/ Kéo cái Transperancy là nó tàng hình luôn đấy ... thấy cũng vui vẻ ha

5/ Có 1 Hàm chuyển mã Unicode khả năng chắc ăn 99,99 % chuyển mã Unicode là chạy trên bất cứ máy nào cũng đúng ...
Còn 0.001 % có khả năng sai trên máy khác

$===\.$

truongvu317 · 15/5/20

Cái này sẽ được dùng nhiều, mà bạn Mạnh viết bằng ngôn ngữ nào vậy, cho xin "cốt" nhóe.

Kiều Mạnh · 15/5/20

Rảnh mới quậy thêm 1 tẹo nữa viết nó thành Add-Ins xem nó có chạy hay không ... mai mốt thêm nhiều món đồ vào đó Nữa
đại ý như sau:

1/ Server + Client +Database.accdb ( Excel )
2/ Chat chít vui vẻ
3/ Chuyển file qua LAN Or internet
4/ Nó chạy trên Officex32 hay Officex64 thì cũng như nhau thôi
5/ Tạm keo nó là NetworkTCPIP ( Hướng tới nó như thế ... còn cái méc xịt bốc là phụ )
6/ hay ở khúc đăng ký xong rồi thì có bật mắt rô hay ko điều đó ko quan trọng có COM Excel nó lo rồi
7/ Đăng ký thì copy vào đâu đó trên Máy tính ko quan trọng ... quan trọng là nếu sau đăng ký mà thay đổi đường dẫn là tịt
8/ +++ Linh tinh
....
...
N/ Nó nằm trong tầm tay rồi giờ chỉ việc giáp lại thui à

KUMI · 16/5/20

kieu manh đã viết:
Rảnh mới quậy thêm 1 tẹo nữa viết nó thành Add-Ins xem nó có chạy hay không ... mai mốt thêm nhiều món đồ vào đó Nữa
đại ý như sau:

1/ Server + Client +Database.accdb ( Excel )
2/ Chat chít vui vẻ
3/ Chuyển file qua LAN Or internet
4/ Nó chạy trên Officex32 hay Officex64 thì cũng như nhau thôi
5/ Tạm keo nó là NetworkTCPIP ( Hướng tới nó như thế ... còn cái méc xịt bốc là phụ )
6/ hay ở khúc đăng ký xong rồi thì có bật mắt rô hay ko điều đó ko quan trọng có COM Excel nó lo rồi
7/ Đăng ký thì copy vào đâu đó trên Máy tính ko quan trọng ... quan trọng là nếu sau đăng ký mà thay đổi đường dẫn là tịt
8/ +++ Linh tinh
....
...
N/ Nó nằm trong tầm tay rồi giờ chỉ việc giáp lại thui à

View attachment 237440

Cảm ơn Bạn đã chia sẻ.
Tool của bạn rất là hữu ích, nhưng tôi không biết cách dùng.
Vừa tải về thì cũng bị phần mềm diệt virut cảnh báo, nếu Bạn có thể chia sẻ bằng file Excel thì tiện quá và mọi người có thể thảo luận & tham gia đóng góp sôi nổi.
Trân trọng

Hau151978 · 16/5/20

File mã nguồn của phiên bản gốc ở đây này bạn.
https://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=43585&lngWId=1

batman1 · 16/5/20

KUMI đã viết:
Cảm ơn Bạn đã chia sẻ.
Tool của bạn rất là hữu ích, nhưng tôi không biết cách dùng.

Bạn chưa biết sử dụng mà bạn lại biết là hữu ích?

Do tác giả cố tình không trả lời câu hỏi của tôi nên tôi chỉ thêm 3 ý:
1. Nếu tool này chỉ dùng để tạo vd. chuỗi "B"&ChrW(7883)&"t m"&ChrW(7855)&"t b"&ChrW(7855)&"t d"&ChrW(234) từ chuỗi "Bịt mắt bắt dê" thì tôi đã nói rồi. Không cần tool gì cả, thực ra chỉ là 1 đoạn code thôi.

2. Chắc chắn Msgbox trong tiêu đề và trong bài viết là đánh lừa người khác. Làm gì có chuyện nhập chuỗi "B"&ChrW(7883)&"t m"&ChrW(7855)&"t b"&ChrW(7855)&"t d"&ChrW(234) do tool tạo ra vào MsgBox là người Việt nhìn thấy "Bịt mắt bắt dê". Có mà mơ. Cửa sỗ MsgBox không phục vụ unicode. Chấm hết.

3. Code của tool cũng chưa chuẩn lắm. Nếu tôi nhập vào tool "Bịt mắt bắt dê" ở dạng unicode dựng sẵn thì tool sẽ tạo chuỗi như ở trên. Nếu tôi nhập vào tool "Bịt mắt bắt dê" ở dạng unicode tổ hợp (do tôi dùng bàn phím của Windows để gõ tiếng Việt trong notepad nên tôi có unicode tổ hợp) thì tool sẽ trả về "Bi?t m"&ChrW(259)&"´t b"&ChrW(259)&"´t d"&ChrW(234). Nhì kỹ thấy rõ ràng là không chuẩn. "ị" bị biến thành "i" và "?". "ắ" trong "mắt" và trong "bắt" bị biến thành "ă" (mã = 259) và "´" (mã = 180). Ai không tin thì copy "Bịt mắt bắt dê" từ bài viết này của tôi rồi dán vào tool thì sẽ biết.

Trích bài #1

Msgbox cho Tiếng Việt có dấu

???
Làm gì có chuyện MsgBox phục vụ unicode (tiếng Việt). Cứ nghĩ là chạy code

Mã:

MsgBox  "B"&ChrW(7883)&"t m"&ChrW(7855)&"t b"&ChrW(7855)&"t d"&ChrW(234)

là mắt nhìn thấy "Bịt mắt bắt dê"?

Kiều Mạnh · 16/5/20

batman1 đã viết:
Trích bài #1
???
Làm gì có chuyện MsgBox phục vụ unicode (tiếng Việt). Cứ nghĩ là chạy code

Mã:

MsgBox "B"&ChrW(7883)&"t m"&ChrW(7855)&"t b"&ChrW(7855)&"t d"&ChrW(234)

là mắt nhìn thấy "Bịt mắt bắt dê"?

hichic Em nói lộn ... giờ em nói lại ... mà suy cho cùng Em có được học hành code két trường lớp bài bản chi mô ... nên nhiều khi câu từ thuật ngữ code két phát biểu nó lộn ngược lên là thế -0-0-0-

( Thôi cái này bỏ qua ko nói lại nữa )

Em nhớ mấy năm trước Anh có viết cái hàm chuyển mã Unicode hay lắm em có tải về mà ko biết cất ở đâu ... nếu Anh còn lưu cho Em xin lại khi rảnh ngó nghiêng học 1 chút
Em cảm Ơn

babyheomoi · 16/5/20

hic, bác ơi, cái này dùng làm gì thế, hướng dẫn em tí, em down về bi lock anti virus. Thấy hay hay mà chưa hiểu dùng cho mục đích gì!

KUMI · 16/5/20

batman1 đã viết:
Bạn chưa biết sử dụng mà bạn lại biết là hữu ích?

Do tác giả cố tình không trả lời câu hỏi của tôi nên tôi chỉ thêm 3 ý:
1. Nếu tool này chỉ dùng để tạo vd. chuỗi "B"&ChrW(7883)&"t m"&ChrW(7855)&"t b"&ChrW(7855)&"t d"&ChrW(234) từ chuỗi "Bịt mắt bắt dê" thì tôi đã nói rồi. Không cần tool gì cả, thực ra chỉ là 1 đoạn code thôi.

2. Chắc chắn Msgbox trong tiêu đề và trong bài viết là đánh lừa người khác. Làm gì có chuyện nhập chuỗi "B"&ChrW(7883)&"t m"&ChrW(7855)&"t b"&ChrW(7855)&"t d"&ChrW(234) do tool tạo ra vào MsgBox là người Việt nhìn thấy "Bịt mắt bắt dê". Có mà mơ. Cửa sỗ MsgBox không phục vụ unicode. Chấm hết.

3. Code của tool cũng chưa chuẩn lắm. Nếu tôi nhập vào tool "Bịt mắt bắt dê" ở dạng unicode dựng sẵn thì tool sẽ tạo chuỗi như ở trên. Nếu tôi nhập vào tool "Bịt mắt bắt dê" ở dạng unicode tổ hợp (do tôi dùng bàn phím của Windows để gõ tiếng Việt trong notepad nên tôi có unicode tổ hợp) thì tool sẽ trả về "Bi?t m"&ChrW(259)&"´t b"&ChrW(259)&"´t d"&ChrW(234). Nhì kỹ thấy rõ ràng là không chuẩn. "ị" bị biến thành "i" và "?". "ắ" trong "mắt" và trong "bắt" bị biến thành "ă" (mã = 259) và "´" (mã = 180). Ai không tin thì copy "Bịt mắt bắt dê" từ bài viết này của tôi rồi dán vào tool thì sẽ biết.

Trích bài #1

???
Làm gì có chuyện MsgBox phục vụ unicode (tiếng Việt). Cứ nghĩ là chạy code

Mã:

MsgBox "B"&ChrW(7883)&"t m"&ChrW(7855)&"t b"&ChrW(7855)&"t d"&ChrW(234)

là mắt nhìn thấy "Bịt mắt bắt dê"?

Dạ Bác, con chỉ hiểu nó là công cụ tạo msgbox khi mà gõ đoạn văn bản đầu vào thì nó tạo ra câu lệnh msgbox rồi copy đoạn này vào trong cửa sổ vba là được ạ nên con thấy là hữu ích.
Nhưng về cái tập tin bài #7 con tải về không biết làm thế nào để nó chạy được để hiện được cái cửa sổ đó lên để test thử.
Mà tool là exe này sau khi tải về máy tính con báo virut gì đó nên con cũng không quan tâm đến nữa, có thể do trình duyệt antivirut xóa chặn hoặc xóa mất cái gì đó nên cùng được, mà thôi con cũng không quan tâm đến vấn đề exe này nữa , mặc dù ở trên Bác có nói là exe nhưng vì thấy hay nên con tò mò nhưng giờ thôi Bác nói vậy con thấy hết hay rồi.
Cảm ơn Bác đã chỉ dẫn ạ

Tools Tạo MsgBox - MsgBox Creator (1 người xem)

Người dùng đang xem chủ đề này

Kiều Mạnh

I don't program, I beat code into submission!!!

File đính kèm

BuiQuangThuan

❆❆❆❆❆❆❆❆❆❆❆❆

Kiều Mạnh

I don't program, I beat code into submission!!!

File đính kèm

batman1

Thành viên gạo cội

Kiều Mạnh

I don't program, I beat code into submission!!!

File đính kèm

truongvu317

Thành viên tích cực

Kiều Mạnh

I don't program, I beat code into submission!!!

File đính kèm

KUMI

Bụi phấn

Hau151978

Thành viên tích cực

batman1

Thành viên gạo cội

Kiều Mạnh

I don't program, I beat code into submission!!!

babyheomoi

Thành viên thường trực

KUMI

Bụi phấn

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian