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

DMQ · 29/11/15

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?????

langtuchungtinh360 · 29/11/15

DMQ đã viết:
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?????

như này à bác

DMQ · 29/11/15

Mình không làm được, mà nhìn hình của bạn hình như là MultiPage chứ không phải frame.

be_09 · 29/11/15

DMQ đã viết:
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?????

Mục đích cuối cùng là đọc được chữ, sao bạn không xóa Caption của Frame đi và gán cái Label vào chỗ Caption để khỏi suy nghĩ chi cho nó rắc rối.

doveandrose · 29/11/15

be09 đã viết:
Mục đích cuối cùng là đọc được chữ, sao bạn không xóa Caption của Frame đi và gán cái Label vào chỗ Caption để khỏi suy nghĩ chi cho nó rắc rối.

tại thích "hàng thật" hơn chú ạ

DMQ · 29/11/15

Vậy chỉ có cách của Anh be09 thôi sao. Cám Ơn các Anh.!!!!! -=09=

$-\\/.$

ndu96081631 · 29/11/15

DMQ đã viết:
Vậy chỉ có cách của Anh be09 thôi sao. Cám Ơn các Anh.!!!!! $-\\/.$

Đại khái vầy nè:

Mã:

Me.Frame1.Caption = Range("A1").Value

Đó là hàng thật đấy
Hoặc vầy:

Mã:

Me.Frame1.Caption = "Nguy" & ChrW(7877) & "n Anh Tu" & ChrW(7845) & "n"

Cũng hàng thật luôn

DMQ · 30/11/15

Thầy cho em biết char code của "Chi Tiết Nhập" và "Chi Tiết Xuất" với ah!!!!!!

VetMini · 30/11/15

DMQ đã viết:
Thầy cho em biết char code của "Chi Tiết Nhập" và "Chi Tiết Xuất" với ah!!!!!!

Bạn cần làm việc hay cần vọc code vậy?

Cần làm việc thì cách nào đơn giản hơn dùng cách nấy. Chỉ nên chú nổ lực vào khả năng phân tích. Ba cái hình dáng mẫu mã chỉ là đánh phấn thoa son.

Cần vọc code thì chịu khó tự vọc. Gõ mấy dòng trên vào ô nào đó rồi viết một đoạn code giải mã từ ký tự.

ndu96081631 · 30/11/15

DMQ đã viết:
Thầy cho em biết char code của "Chi Tiết Nhập" và "Chi Tiết Xuất" với ah!!!!!!

Trời đất! Học kiểu gì thế không biết
???

Kiều Mạnh · 30/11/15

DMQ đã viết:
Thầy cho em biết char code của "Chi Tiết Nhập" và "Chi Tiết Xuất" với ah!!!!!!

Chi Tiết Nhập = "Chi Ti" & ChrW(7871) & "t Nh" & ChrW(7853) & "p"
Chi Tiết Xuất = "Chi Ti" & ChrW(7871) & "t Xu" & ChrW(7845) & "t"

Còn lại tự xử đi nha.... --=0

dhn46 · 30/11/15

Để hiểu vấn đề này bạn hãy tìm hiểu về ChrW, AscW

Cần đi từ cơ bản, thử, tìm kiếm sẽ có câu trả lời ngay.

Kiều Mạnh · 30/11/15

dhn46 đã viết:
Để hiểu vấn đề này bạn hãy tìm hiểu về ChrW, AscW

Cần đi từ cơ bản, thử, tìm kiếm sẽ có câu trả lời ngay.

Còn loại sau nữa sao Bác Bill vẽ ra nhiều vậy chứ...mình cũng chưa hiểu lắm +-+-+-+

Chi Tiết Nhập = "Chi Ti"&ChrW(&H1EBF)&"t Nh"&ChrW(&H1EAD)&"p"

Chi Tiết Xuất = "Chi Ti"&ChrW(&H1EBF)&"t Xu"&ChrW(&H1EA5)&"t"

doveandrose · 30/11/15

kieu manh đã viết:
Còn loại sau nữa sao Bác Bill vẽ ra nhiều vậy chứ...mình cũng chưa hiểu lắm

Chi Tiết Nhập = "Chi Ti"&ChrW(&H1EBF)&"t Nh"&ChrW(&H1EAD)&"p"

Chi Tiết Xuất = "Chi Ti"&ChrW(&H1EBF)&"t Xu"&ChrW(&H1EA5)&"t"

dùng máy tính của HDH bấm 1EBF rồi chuyển về hệ Dec xem sao ?

DMQ · 30/11/15

Em có biết tý code nào đâu, chỉ khoái làm Form cho nó giống phân mềm, con code thực hiện toàn là nhờ các AC trên DD làm cho không ah(Đặc biệt là có Một thầy đã viết code cho em từ A-> Z). Cám Ơn Anh kieu manh!!!!

dhn46 · 30/11/15

kieu manh đã viết:
Còn loại sau nữa sao Bác Bill vẽ ra nhiều vậy chứ...mình cũng chưa hiểu lắm

Chi Tiết Nhập = "Chi Ti"&ChrW(&H1EBF)&"t Nh"&ChrW(&H1EAD)&"p"

Chi Tiết Xuất = "Chi Ti"&ChrW(&H1EBF)&"t Xu"&ChrW(&H1EA5)&"t"

Bạn chắc chắn biết mẫu thập lục phân này. Còn tại sao anh Bill lại dùng thì chắc phải hỏi anh Bill thôi. Mọi sự giải thích tìm kiểm được cũng khó có thể trả lời trọn vẹn phần bôi đậm của bạn - bởi đó là ý chủ quan người viết.

Kiều Mạnh · 30/11/15

doveandrose đã viết:
dùng máy tính của HDH bấm 1EBF rồi chuyển về hệ Dec xem sao ?

Cái này mình biết ...nhưng ứng dụng nó vào những việc gì thâm cung bí sử nữa chứ....VD như mã hóa code chẳng hạn....... --=0

VetMini · 30/11/15

kieu manh đã viết:
Còn loại sau nữa sao Bác Bill vẽ ra nhiều vậy chứ...mình cũng chưa hiểu lắm

Chi Tiết Nhập = "Chi Ti"&ChrW(&H1EBF)&"t Nh"&ChrW(&H1EAD)&"p"

Chi Tiết Xuất = "Chi Ti"&ChrW(&H1EBF)&"t Xu"&ChrW(&H1EA5)&"t"

Tôi đoán "bác Bill" của bạn là Bill Gates.

Cái này ở trong tình trạng, không cho thì chê ít, cho thì than nhiều.

Thời buổi công nghệ bây giờ, số nguyên viết theo dạng thập lục phân (hexadecimal) là bình thường, đâu có gì vẽ vời. &H chỉ là cách báo cho trình dịch biết con số đi kế được viết theo mã thập lục phân (cũng như bạn viết 100& có nghĩa là số thực, và 1E2 là dạng khoa học vậy)

Trong dạng Hex, 4 bits (8 bits là 1 byte) là 1 ký tự, gồm 16 ký tự 0-9 và A-F. Với 4 ký tự bạn diễn tả được tất cả 16 bits, tức là một ChrW

Anh Bill không hề bày biện. Hex là một tiêu chuẩn của máy tính. Các trình dịch chỉ khác nhau ở cái phần ký hiệu báo đi trước thôi. Đối với VB là ký hiệu &H, trong khi đó C dùng ký hiệu 0x

DMQ · 1/12/15

Em muốn viết : Bạn có muốn xóa" code:

Mã:

"B" & ChrW(7841) & "n c" & ChrW(243)  "mu" & ChrW(7889) & "n  x" & ChrW(243) & a"

Mong các AC chỉ cho em chổ sai với?????

doveandrose · 1/12/15

DMQ đã viết:
Em muốn viết : Bạn có muốn xóa" code:

Mã:

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

Mong các AC chỉ cho em chổ sai với?????

xe lửa bị đứt dây thun nối

DMQ · 1/12/15

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

doveandrose · 1/12/15

DMQ đã viết:
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 · 1/12/15

Vẫn chưa hiểu Anh ơi!!!!!! %#^#$

$-\\/.$

DMQ · 1/12/15

Phải vầy không ah:

Mã:

[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 · 1/12/15

DMQ đã viết:
Phải vầy không ah:

Mã:

[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 · 1/12/15

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 · 1/12/15

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

Mã:

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 · 1/12/15

DMQ đã viết:
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è:

Mã:

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 · 1/12/15

DMQ đã viết:

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

Mã:

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 · 1/12/15

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 · 1/12/15

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 · 1/12/15

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

Mã:

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 · 1/12/15

DMQ đã viết:

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

Mã:

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]

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

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

Thành viên dốt

Thành viên đã dừng hoạt động

Thành viên dốt

Biên Hòa, Đồng Nai

hello

Thành viên dốt

Huyền thoại GPE

Thành viên dốt

Đang đi tìm hòn đá

Huyền thoại GPE

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

Hướng tới tương lai

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

hello

Thành viên dốt

Hướng tới tương lai

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

Đang đi tìm hòn đá

Thành viên dốt

hello

Thành viên dốt

hello

Thành viên dốt

Thành viên dốt

Chuyên gia GPE

Thành viên dốt

Thành viên dốt

Chuyên gia GPE

Chuyên gia GPE

Thành viên dốt

Thành viên dốt

Thành viên dốt

Chuyên gia GPE

Thời gian đếm ngược.