• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Đổi font Hệ thống không làm "nứt" các icon ở Traysystem

Các thủ thuật về hệ thống, thư mục, tập tin và mạng
User avatar
NoBi
Quản trị
Quản trị
Posts: 959
Joined: Tue 18/03/2008 1:22 pm
Location: Sài Gòn
Has thanked: 53 times
Been thanked: 66 times
Contact:

Đổi font Hệ thống không làm "nứt" các icon ở Traysystem

Postby NoBi » Wed 23/04/2008 11:49 pm

Thủ thuật: Đổi font Hệ thống không làm "nứt" các icon ở Traysystem
Tác giả: Sưu tầm
Mô tả: Mình xin giới thiệu với các bạn một đoạn chương trình dùng để đổi font hệ thống. Bình thường khi dùng các hàm API để đổi font của hệ thống thành font của mình thì các biệu tượng phía dưới Traysystem sẽ bị co giãn kích thước làm cho các biểu tượng không thể hiện thị đúng kích thước ban đầu. Đoạn chương trình này sẽ khắc phục được nhược điểm trên.

Attachments
Doi Font He Thong.rar
(22.27 KiB) Downloaded 1478 times


:>

hahuuhai
Thành viên năng nổ
Thành viên năng nổ
Posts: 61
Joined: Mon 13/04/2009 8:38 am
Location: Thạch Thành, Thanh Hóa

Re: Đổi font Hệ thống không làm "nứt" các icon ở Traysystem

Postby hahuuhai » Sat 14/11/2009 7:35 pm

Mình đã thử cái file gửi kèm. Chạy rất tốt. Nhưng mình lại thấy một vấn đề thế này: Chẳng hạn, mình vừa load form lên, chương trình đổi font hệ thống rồi, đột nhiên mất điện hay gặp trục trặc gì đó khiến chương trình kết thúc không bình thường. Khi đó, sẽ không kịp trả lại font cũ, và cài hàm ThayFont() coi như vô nghĩa. Mình muốn hỏi là làm thế nào để có thể ghi đích xác tên font của nó và lưu trữ vào một chỗ nào đó không? Load form lên, nếu đang là form như ý muốn thì không đổi, khi kết thúc thì đặt lại font đã lưu được. Và nếu làm được như vậy, mình nghĩ không cần dùng hàm PhucHoiFont() nữa.
Bạn chỉ giúp mình với...
Kỳ này quyết theo học VB.Net và SQL Server 2k5.
Rất mong các bác giúp đỡ em chút...

User avatar
delta_hung1992
Thành viên năng nổ
Thành viên năng nổ
Posts: 81
Joined: Thu 06/11/2008 10:51 pm

Re: Đổi font Hệ thống không làm "nứt" các icon ở Traysystem

Postby delta_hung1992 » Tue 16/02/2010 1:21 pm

Nếu vậy thì anh hãy xuất các biến cần lưu trữ ra file lúc khởi động chương trình. Khi chạy chương trình thì kiểm tra file đó có tồn tại hay ko: Nếu có thì giữ nguyên font (có thể lấy lại các thông số bị mất trước đó do mất điện). Sau khi thoát thì chuyển lại font hệ thống (có thể đọc lại file nếu cần), xóa file đó đí, rồi exit! Thuật toán như sau:
B1: Bắt đầu
B2: Kiểm tra: sự tồn tại của file lưu thông số?
+ Nếu tồn tại: Thông báo có trục trặc trong lần tắt trước đó (nếu cần thiết) rồi đọc lại file lấy thông số, nhảy đến bước 4
+ Nếu ko tồn tại: Sang bước 3
B3: Đọc font hệ thống rồi ghi ra file
B4: Apply font của mình vào
B5: Chạy chương trình
B6: Kiểm tra: thoát chương trình?
+ Nếu ko: sang bước 5
+ Nếu có: sang bước 7
B7: Đọc lại file để lấy thông số (nếu cần), chuyển lại font của Win
B8: Xóa file thông số
B9: Thoát (có thể nói bye bye với người dung :P )
Chúc anh thành công! ;)
Keep moving forward

bboy_nonoyes
Posts: 8
Joined: Mon 09/02/2009 2:27 pm
Location: http://nguoibaclieu.com
Has thanked: 3 times
Been thanked: 1 time
Contact:

Re: Đổi font Hệ thống không làm "nứt" các icon ở Traysystem

Postby bboy_nonoyes » Sat 23/10/2010 11:32 pm

Đổi kiểu này nguy hiểm quá!!! Nhưng không sao! Chỉ cần chọn Theme cho Desktop lại là được! Hehe...


Return to “[VB] Hệ thống - Tập tin - Thư mục và Mạng”

Who is online

Users browsing this forum: No registered users and 0 guests