Lấy biểu tượng chuẩn cửa sổ Windows Lấy biểu tượng chuẩn cửa sổ Windows Bởi: Khoa CNTT ĐHSP KT Hưng Yên Nếu bạn có nhu cầu tự viết lấy cửa sổ cho chắn bạn cần ký tự sau Windows dùng font tên Marlett để thể ký tự Muốn thể ký tự bạn gõ ký tự từ đến & từ a đến y, sau chọn font Marlett Từ bạn tìm thấy biểu tượng cần Chương trình sau thể biểu tượng đó: - Bạn tạo Project - Tạo Textbox (Text1) & CommandButton (Command1) đặt Caption cho nút "Marlett" - Nhập đoạn Code sau vào Form1 chạy thử Option Explicit Private Sub Form_Load() Text1.FontName= "Tahoma" Text1.FontSize = 20 Text1.Text = "0123456789" & vbCrLf & _ "abcdefghijkl" & vbCrLf & "mnopqrtusxy" 1/2 Lấy biểu tượng chuẩn cửa sổ Windows End Sub Private Sub Command1_Click() Text1.FontName = "Marlett" End Sub Khi chương trình chạy bạn thấy ký tự xuất bình thường với font Tahoma Nhưng click vào nút Marlett kết hình sau Rất tuyệt phải không bạn, cần biểu tượng bạn dùng mà công vẽ lại 2/2 .. .Lấy biểu tượng chuẩn cửa sổ Windows End Sub Private Sub Command1_Click() Text1.FontName = "Marlett" End Sub Khi... thường với font Tahoma Nhưng click vào nút Marlett kết hình sau Rất tuyệt phải không bạn, cần biểu tượng bạn dùng mà công vẽ lại 2/2