Hỏi code VBA làm chữ ẩn hiện trên Label trong Form.

[thangteo]

Nhờ các thầy và các anh xem chỉ giúp em đoạn code khi nhấn nút NHẤP NHÁY thì chữ (hiện tại trong form nó là số 6) nó ẩn rồi hiện tức là nhấp nháy với ạ, và có thể thay đổi tốc độc nhấp nháy theo khoảng thời gian mà mình có thể thay đổi trong code được ạ.
Thank!

 

[Rùa Con 1080]

Thầy ndu cho em xen ngang tí, sao Userform của bạn thangteo kế nút Close lại có nút Help(?) còn Userform của em không có.

 

[thangteo]

Thầy ndu cho em xen ngang tí, sao Userform của bạn thangteo kế nút Close lại có nút Help(?) còn Userform của em không có.

Properties của form, chọn mục WhatsthisButton = True là ok. Xuất hiện ? ngay.

 

[Rùa Con 1080]

Cám ơn bạn,mà nút Help mình thấy cũng chả có tác dụng gì, nên cũng không cho nó hiện ra.

 

[thangteo]

Cám ơn bạn,mà nút Help mình thấy cũng chả có tác dụng gì, nên cũng không cho nó hiện ra.

Thêm kiến thức thôi bạn ơi! Còn chắc chắn bất cứ nút gì đều có tác dụng của nó mà.

 

[AutoReply]

Thầy ơi! File bật lên báo lỗi này ạ, cả 2 file lỗi như nhau:

Office 2007 32 bit không có từ khóa Ptrsafe , từ khóa này chỉ có ở Office 2010 trở lên. Hình ảnh bạn chụp thì khả năng 85% đang xài Office 2007.
Những hàm API đang được sử dụng ở trên không cần thiết sử dụng Ptrsafe nên bạn có thể thoải mái bỏ đi hết nhé.

 

[thangteo]

Office 2007 32 bit không có từ khóa Ptrsafe , từ khóa này chỉ có ở Office 2010 trở lên. Hình ảnh bạn chụp thì khả năng 85% đang xài Office 2007.
Những hàm API đang được sử dụng ở trên không cần thiết sử dụng Ptrsafe nên bạn có thể thoải mái bỏ đi hết nhé.

Xin hỏi thêm 1 chút, sau khi xóa PtrSafe và sửa LongPrt thành Long thì qua Excel của Office cao hơn vẫn chạy ổn chứ ạ?

 

[AutoReply]

Xin hỏi thêm 1 chút, sau khi xóa PtrSafe và sửa LongPrt thành Long thì qua Excel của Office cao hơn vẫn chạy ổn chứ ạ?

Nếu bạn không có ý định sử dụng Office 64 bit thì không cần quan tâm đến các từ khóa kia làm gì.
Mà cho dù tương lai có xài Office 64 bit thì cứ đi kiếm ngài Bao Công nick màu vàng nhờ tư vấn tiếp, lo gì.

 

[thangteo]

File đã chạy tốt, nhưng sao khi chạy nhấp nháy thì Form như kiểu bị giật theo nhịp nhấp nháy ý. Có cách nào khắc phục cái kiểu bị giật này không ạ?

 

[ndu96081631]

File đã chạy tốt, nhưng sao khi chạy nhấp nháy thì Form như kiểu bị giật theo nhịp nhấp nháy ý. Có cách nào khắc phục cái kiểu bị giật này không ạ?

Thường trước khi đưa file lên tôi đã thử rất kỹ. Máy tôi cấu hình cực yếu nhưng không hề có hiện tượng như bạn vừa mô tả. Bạn thử mang sang máy khác kiểm tra xem sao. Hoặc bạn có thể quay phim màn hình để tôi xem nó "giật" là giật như thế nào

 

[AutoReply]

Thường trước khi đưa file lên tôi đã thử rất kỹ. Máy tôi cấu hình cực yếu nhưng không hề có hiện tượng như bạn vừa mô tả. Bạn thử mang sang máy khác kiểm tra xem sao. Hoặc bạn có thể quay phim màn hình để tôi xem nó "giật" là giật như thế nào

anh vui lòng cho biết dòng này có tác dụng gì và tại sao cần có dòng này ?

UserForm1.Repaint

 

[ndu96081631]

anh vui lòng cho biết dòng này có tác dụng gì và tại sao cần có dòng này ?

UserForm1.Repaint

Hồi trước khi viết mấy cái code liên quan đến tạo hiệu ứng, có đôi lúc code chạy mà màn hình không đáp ứng kịp nên chẳng nhìn thấy chuyện gì xảy ra (dù biết code đang chạy)
Sau đó có tham khảo vài giải pháp và được gợi ý dòng lệnh trên. Khi áp dụng vào thì thấy giải quyết được vấn đề!
Repaint là vẽ lại. Cái tên của nó đã nói lên ý nghĩa và tác dụng của nó rồi còn gì

 

[thangteo]

Hồi trước khi viết mấy cái code liên quan đến tạo hiệu ứng, có đôi lúc code chạy mà màn hình không đáp ứng kịp nên chẳng nhìn thấy chuyện gì xảy ra (dù biết code đang chạy)
Sau đó có tham khảo vài giải pháp và được gợi ý dòng lệnh trên. Khi áp dụng vào thì thấy giải quyết được vấn đề!
Repaint là vẽ lại. Cái tên của nó đã nói lên ý nghĩa và tác dụng của nó rồi còn gì

Thường trước khi đưa file lên tôi đã thử rất kỹ. Máy tôi cấu hình cực yếu nhưng không hề có hiện tượng như bạn vừa mô tả. Bạn thử mang sang máy khác kiểm tra xem sao. Hoặc bạn có thể quay phim màn hình để tôi xem nó "giật" là giật như thế nào

Dạ vâng, thầy xem qua xem nó là như nào?. Hix.. Có vài các Label va nút bấm em thêm vào làm ví dụ xem nó có bị nháy không và cũng bị nháy cả ạ.
Có khi nào lệnh Repaint vô tình mà bạn AutoReply đề cập đến lại là nguyên nhân dẫn đến hiện tượng nháy này không ạ?

 

[ndu96081631]

Có khi nào lệnh Repaint vô tình mà bạn AutoReply đề cập đến lại là nguyên nhân dẫn đến hiện tượng nháy này không ạ?

Muốn biết đúng hay không sao bạn không kiểm tra thử, bằng cách xóa dòng lệnh UserForm1.Repaint rồi chạy lại code là biết liền chứ gì

 

[thangteo]

Muốn biết đúng hay không sao bạn không kiểm tra thử, bằng cách xóa dòng lệnh UserForm1.Repaint rồi chạy lại code là biết liền chứ gì

Xóa đi, chạy thử vẫn bị ạ.

 

[ndu96081631]

Xóa đi, chạy thử vẫn bị ạ.

Thế thì tôi không biết đâu (vì trên máy tôi không bị, mà tôi chỉ có duy nhất 1 máy tính, không có điều kiện test thêm)

 

[thangteo]

Thế thì tôi không biết đâu (vì trên máy tôi không bị, mà tôi chỉ có duy nhất 1 máy tính, không có điều kiện test thêm)

Dạ vâng ạ, cảm ơn thầy ạ.

 

[AutoReply]

Dạ vâng, thầy xem qua xem nó là như nào?. Hix.. Có vài các Label va nút bấm em thêm vào làm ví dụ xem nó có bị nháy không và cũng bị nháy cả ạ.
Có khi nào lệnh Repaint vô tình mà bạn AutoReply đề cập đến lại là nguyên nhân dẫn đến hiện tượng nháy này không ạ?

Theo như tôi quan sát thì bạn đang làm sai chỗ vẽ các Control đè lên Label "Số 6" dẫn đến việc khi Label "số 6" cập nhật ForeColor thì các Control khác lâu lâu cũng bị nhấp nháy theo. Bạn nên sử dụng 1 đối tượng Frame để chứa các Control trong nhóm , để khi thay đổi label số 6 , không ảnh hưởng đến các Control khác.
Dưới đây là 1 ví dụ

 

[thangteo]

Theo như tôi quan sát thì bạn đang làm sai chỗ vẽ các Control đè lên Label "Số 6" dẫn đến việc khi Label "số 6" cập nhật ForeColor thì các Control khác lâu lâu cũng bị nhấp nháy theo. Bạn nên sử dụng 1 đối tượng Frame để chứa các Control trong nhóm , để khi thay đổi label số 6 , không ảnh hưởng đến các Control khác.
Dưới đây là 1 ví dụ

Chạy không thấy bị nhiễu nhấp nháy nữa. Giải pháp này có vẻ ổn ạ. Cảm ơn thầy ndu96081631 và AutoReply nhiều lắm ạ.

 

[Rùa Con 1080]

Thầy Ndu cho em hỏi tý, nếu muốn Form mở lên thì Label 6 nhấp nháy luôn không cần nhấn Commandbutton (chỉ tắt nhấp nháy khi ắt Form) thì chỉnh code làm sao ah. Em xin đưa file, nhờ thầy Ndu chỉnh dùm

 

[befaint]

Thầy Ndu cho em hỏi tý, nếu muốn Form mở lên thì Label 6 nhấp nháy luôn không cần nhấn Commandbutton (chỉ tắt nhấp nháy khi ắt Form) thì chỉnh code làm sao ah. Em xin đưa file, nhờ thầy Ndu chỉnh dùm

Hỏi thế người khác trả lời có cần không?

Private Sub UserForm_Initialize()
  hWnd = FindWindow("ThunderDFrame", Me.Caption)
  uStyle = GetWindowLong(hWnd, GWL_STYLE)
  SetWindowLong hWnd, GWL_STYLE, uStyle And Not WS_SYSMENU
  Call CommandButton1_Click        'Thêm dòng này'
End Sub