Lấy các biểu tượng chuẩn của cửa sổ trong Windows

Nếu bạn có nhu cầu tự viết lấy một cửa sổ cho mình thì chắc chắn bạn sẽ cần các ký tự sau đây.

Windows dùng font tên là Marlett để thể hiện các ký tự này. Muốn thể hiện các ký tự này bạn gõ các ký tự từ 0 đến 9 & từ a đến y, sau đó chọn font là Marlett. Từ đó bạn có thể tìm thấy biểu tượng mình cần.

Chương trình sau đây sẽ thể hiện các biểu tượng đó:

- Bạn hãy tạo 1 Project mới

- Tạo một Textbox (Text1) & một CommandButton (Command1) đặt Caption cho nút này là "Marlett"

- Nhập đoạn Code sau đây vào Form1 rồi chạy thử

Option Explicit

Private Sub Form_Load()

    Text1.FontName= "Tahoma"

    Text1.FontSize = 20

    Text1.Text = "0123456789" & vbCrLf & _

    "abcdefghijkl" & vbCrLf & "mnopqrtusxy"

End Sub

Private Sub Command1_Click()

    Text1.FontName = "Marlett"

End Sub

Khi chương trình chạy bạn sẽ thấy các ký tự xuất hiện bình thường với font Tahoma.

Nhưng khi click vào nút Marlett thì kết quả như hình sau đây.

Rất tuyệt phải không bạn, như vậy nếu cần biểu tượng nào bạn có thể dùng ngay mà không phải mất công vẽ lại.