tên của Frame trong Form là tiếng việt có dấu (1 người xem)

[DMQ]

Các AC cho em hỏi có cách nào gỏ tên(Caption) của Frame là tiếng việt có dấu không ah?????

 

[DMQ]

Mong Anh Chim Hồng chỉ rỏ dùm ah!!!! em dốt lắm

 

[doveandrose]

Mong Anh Chim Hồng chỉ rỏ dùm ah!!!! em dốt lắm

xe lửa tới cái toa đó tự nhiên bị đứt dây thun là sao ?

 

[DMQ]

Vẫn chưa hiểu Anh ơi!!!!!!

 

[DMQ]

Phải vầy không ah:

[COLOR=#000000][I]"B" & ChrW(7841) & "n c" & ChrW(24[/I][/COLOR][COLOR=#ff0000][I][SIZE=4][B]3) &  "m[/B][/SIZE][/I][/COLOR][COLOR=#000000][I]u" & ChrW(7889) & "n  x" & ChrW(243) & a"[/I][/COLOR]

sao nó ra là: B?n c & ChrW(243) & mu?n xóa

 

[Hoàng Trọng Nghĩa]

Phải vầy không ah:

[COLOR=#000000][I]"B" & ChrW(7841) & "n c" & ChrW(24[/I][/COLOR][COLOR=#ff0000][I][SIZE=4][B]3) &  "m[/B][/SIZE][/I][/COLOR][COLOR=#000000][I]u" & ChrW(7889) & "n  x" & ChrW(243) & a"[/I][/COLOR]

sao nó ra là: B?n c & ChrW(243) & mu?n xóa

Mở file WORD lên, ghi macro rồi viết gì thì viết, sau đó mở VBE của Word lên, mở module ra, nó nằm một đống ở trong đó đấy!

 

[DMQ]

Sao em dò trong bảng Assii thì ó là 243, mà sao cái đúng(xóa) cái sai(có), ố là 7889 mà ra là ?

 

[DMQ]

sao em ghi Marcro trong word nó ra như vầy né Anh Nghĩa:

Sub Macro2()'
' Macro2 Macro
' b?n có mu?n xóa
'
    Selection.TypeText Text:="B"
    Selection.Paste
    Selection.TypeText Text:=" c"
    Selection.Paste
    Selection.TypeText Text:=" mu"
    Selection.Paste
    Selection.TypeBackspace
    Selection.Paste
    Selection.TypeText Text:=" x"
    Selection.Paste
End Sub

 

[Hoàng Trọng Nghĩa]

Sao em dò trong bảng Assii thì ó là 243, mà sao cái đúng(xóa) cái sai(có), ố là 7889 mà ra là ?

Sau khi ghi Macro trên WORD nó được kết quả vầy nè:

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.TypeText Text:=[COLOR=#ff0000][B]"B" & ChrW(7841) & "n có mu" & ChrW(7889) & "n xóa không?"[/B][/COLOR]
    Selection.TypeParagraph
End Sub

 

[Hoàng Trọng Nghĩa]

sao em ghi Marcro trong word nó ra như vầy né Anh Nghĩa:

Sub Macro2()'
' Macro2 Macro
' b?n có mu?n xóa
'
    Selection.TypeText Text:="B"
    Selection.Paste
    Selection.TypeText Text:=" c"
    Selection.Paste
    Selection.TypeText Text:=" mu"
    Selection.Paste
    Selection.TypeBackspace
    Selection.Paste
    Selection.TypeText Text:=" x"
    Selection.Paste
End Sub

Tôi kêu bạn gõ chữ vào chứ tôi có kêu bạn Paste đâu?

 

[DMQ]

Sao kỳ dzậy em đã làm giống y chang Anh mà vận hiện ra:B?n có mu?n xóa không? Tức là vần "ạ" và vần"ố" là dấu chấm hỏi.

 

[DMQ]

Em gỏ đấy chứ, mà sao code trong word là Paste. Em không hiểu tại sao nó vậy(em gỏ)

 

[DMQ]

Hình đây ah, và code đây ah

Private Sub cmd_xoa1_Click()
Dim msg As String
  If ListBox1.ListCount = 0 Then Exit Sub
    Dim Answer
    msg = msg & "B" & ChrW(7841) & "n có mu" & ChrW(7889) & "n  xóa không?" & vbNewLine & _
    "- " & ListBox1.List(ListBox1.ListIndex, 0) & vbNewLine & _
    "- " & ListBox1.List(ListBox1.ListIndex, 1)
    
    Answer = MsgBox(msg, vbYesNo + vbQuestion)
    If Answer = vbNo Then Exit Sub
    If Answer = vbYes Then ListBox1.RemoveItem (ListBox1.ListIndex)
    TextBox3.SetFocus
End Sub

 

[Hoàng Trọng Nghĩa]

View attachment 151669
Hình đây ah, và code đây ah

Private Sub cmd_xoa1_Click()
Dim msg As String
  If ListBox1.ListCount = 0 Then Exit Sub
    Dim Answer
    msg = msg & "B" & ChrW(7841) & "n có mu" & ChrW(7889) & "n  xóa không?" & vbNewLine & _
    "- " & ListBox1.List(ListBox1.ListIndex, 0) & vbNewLine & _
    "- " & ListBox1.List(ListBox1.ListIndex, 1)
    
    Answer = MsgBox(msg, vbYesNo + vbQuestion)
    If Answer = vbNo Then Exit Sub
    If Answer = vbYes Then ListBox1.RemoveItem (ListBox1.ListIndex)
    TextBox3.SetFocus
End Sub

Muốn hiển thị được tiếng Việt trong MsgBox bạn cần phải có hàm API để chuyển đổi, chứ không thể nào làm được, hoặc bạn vào đường link sau để tham khảo!

[h=2]Tặng Hàm MsgBox Việt hóa font Unicode chỉnh nút lệnh theo ý muốn! (Phần 3)[/h]