Chắc do em không để ý chọn ở thuộc tính form, cứ tạm thời thoát form chọn ALT+F4 các anh nhé, còn nếu nhờ các anh làm được thì gán nó nhấp nháy mấy lần rồi tự exit form luôn.
Vâng, nhờ các cao thủ.
Chèn code dưới đây vào 1 module:
Private valT As Double
Sub T_Start()
valT = Now + TimeSerial(0, 0, 1)
With UserForm1.Label1
If (Second(Now) Mod 2) Then
.ForeColor = .BackColor
Else
.ForeColor = &HFF00&
End If
Application.OnTime valT, "T_Start", , True
UserForm1.Repaint
End With
End Sub
Sub T_Stop()
On Error Resume Next
Application.OnTime valT, "T_Start", , False
End SubPrivate Sub CommandButton1_Click()
Dim bChk As Boolean
Dim sStart As String, sStop As String
sStart = "NH" & ChrW(7844) & "P NHÁY"
sStop = "NG" & ChrW(7914) & "NG"
bChk = (CommandButton1.Caption = sStart)
If bChk Then T_Start Else: T_Stop
CommandButton1.Caption = IIf(bChk, sStop, sStart)
End SubEm đã làm theo như hướng dẫn mà chạy im re, liệu có sai gì ở chỗ "NH" & ChrW(7844) & "P NHÁY" không ạ. Liệu chữ NHÁY có ổn trong code VBA không ạ?
Dạ được rồi thầy ạ. Do lỗi chữ trên comandbutton với code thôi ạ. Nhưng thầy ơi, khoảng thời gian tùy chỉnh cho nhấp nháy nhanh chậm thế nào được ạ.?
Thì chỗ:
If (Second(Now) Mod 2) ThenPrivate Declare PtrSafe Function SetTimer Lib "user32" _
(ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr, _
ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As LongPtr
Private Declare PtrSafe Function KillTimer Lib "user32" _
(ByVal hWnd As LongPtr, ByVal nIDEvent As LongPtr) As Long
Public lCount As Long
Function TimeProc(ByVal H As Long, ByVal nMSG As Long, ByVal nID As Long, ByVal nTsys As Long)
lCount = lCount + 1
With UserForm1.Label1
If (lCount Mod 2) Then
.ForeColor = .BackColor
Else
.ForeColor = &HFF00&
End If
UserForm1.Repaint
End With
End Function
Sub StartTimer()
On Error Resume Next
StopTimer
SetTimer Application.hWnd, 1, 500, AddressOf TimeProc
End Sub
Sub StopTimer()
On Error Resume Next
KillTimer Application.hWnd, 1
End SubPrivate Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hWnd As LongPtr, ByVal nIndex As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_SYSMENU As Long = &H80000
Dim hWnd As LongPtr, uStyle As Long, lCount As Long
Private Sub CommandButton1_Click()
Dim bChk As Boolean
Dim sStart As String, sStop As String
sStart = "NH" & ChrW(7844) & "P NHÁY"
sStop = "NG" & ChrW(7914) & "NG"
lCount = 0
bChk = (CommandButton1.Caption = sStart)
If bChk Then StartTimer Else: StopTimer
CommandButton1.Caption = IIf(bChk, sStop, sStart)
End Sub
Private Sub UserForm_Initialize()
hWnd = FindWindow("ThunderDFrame", Me.Caption)
uStyle = GetWindowLong(hWnd, GWL_STYLE)
SetWindowLong hWnd, GWL_STYLE, uStyle And Not WS_SYSMENU
End Sub
Private Sub UserForm_Terminate()
StopTimer
End SubSub StartTimer()
On Error Resume Next
StopTimer
SetTimer Application.hWnd, 1, 500, AddressOf TimeProc
End SubLàm gì đâu! Form ấy là "zin" của người ta nó vậy: Ẩn nút Close nên muốn tắt chỉ có cách Alt + F4
Dạ vâng cảm ơn góp ý của anh ạ. E sẽ cố gắng.
Bạn lấy file ở #8 là ok nhé! Mình đã cho nó hiện, không ẩn nữa.
Thầy ơi! File bật lên báo lỗi này ạ, cả 2 file lỗi như nhau:
Vậy thì cứ chỗ nào có PtrSafe thì xóa đi. Chỗ nào LongPtr thì sửa thành Long
Đã ổn thầy à, xin thầy cho chút kiến thức về chỗ PtrSafe và LongPrt ạ? Lười tìm hiểu mong thầy bỏ quá!
Mấy vụ đó liên quan đến 32bit và 64bit ấy
Dạ vâng ạ! Thực sự ngả mũ và nể phục kiến thức của thầy.
Properties của form, chọn mục WhatsthisButton = True là ok. Xuất hiện ? ngay.
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à.
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ứ ạ?
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
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)
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ả ạ.
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ị ạ.
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 ạ.
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 ạ.
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 SubPrivate Sub UserForm_Terminate()
StopTimer
End SubKhông biết nói chuyện với ai. Bực bội!
Private Sub UserForm_Initialize()
hWnd = FindWindow("ThunderDFrame", Me.Caption)
uStyle = GetWindowLong(hWnd, GWL_STYLE)
SetWindowLong hWnd, GWL_STYLE, uStyle And Not WS_SYSMENU
Call StartTimer '<--------------
End SubHihi. Vẫn trả lời nhiệt tình.
Theo em nghĩ vấn đề giật chắc chắn không thể khắc phục được triệt để vì dẫu sao tất cả vẫn trong cùng 1 Form, chỉ cần tìm ra giải pháp để hạn chế đến mức tối đa hiện tượng giật là ok rồi. Khoảng 15-20' mới giật như file vừa gửi lên là quá tốt rồi. Nhưng vẫn hi vọng có 1 giải pháp triệt để luôn, hihi.
Tôi thì lại không thích màu mè, hoa, lá, cành, mà chỉ thích cái gì ứng dụng tốt cho công việc, giải quyết công việc nhanh, gọn, lẹ chính xác.
Mỗi người mỗi công việc và lĩnh vực chuyên môn riêng bạn nhé! Có thể công việc của bạn không cần thiết đến nó, nhưng người khác lại cần đến nó để giải quyết vấn đề công việc của họ. Đơn cử như tôi cần, và cũng có 1 số người trong thead này đang thảo luận về nó đấy! Đừng nói: "chả có tích sự gì cả.".
Làm gì có cái form nào chạy 40 năm liên tục hả Tuân?
.
. Thường em viết code hay có đoạn reset biến đếm về giá trị ban đầu sau khi đạt ngưỡng nào đó, còn trường hợp này form không chạy liên tục 40 năm thì để đó cũng đc.
Form đó dùng API và tất cả đều học của Tuân đó.. thế nên cứ yên tâm mấy vụ reset này tôi nhớ rõ lắmỦa form này anh là à, e tưởng của chủ thớt.
Đối với biến lCount thì thay nó thành kiểu Boolean cho nhanh, đang true thì chuyền thành false, đang false thì chuyển thành true.Tôi xin góp ý 3 ý nhỏ:
1. Trong code bạn bỏ dòng Repaint đi. Vì trong tình huống này không cần.
2. Biến lCount = lCount + 1 luôn tăng mà không giảm, vậy nếu form này chạy trong vòng 40 năm thì sẽ overfloat - vượt khoảng giá trị kiểu Long cho phép. Trong bài này thì để form của bạn chạy trong 40 năm thì chắc không bao giờ xảy ra trừ phien Hollyhood. Tuy nhiên trong lập trình phải có cơ chế rết lại giá trị, đây là nguyên tắc an toàn cho các việc sau này khi lập trình.
3. Form bạn tạo cần cót một Command Button để đóng form. Đến dùng nhiều như tôi còn bối rồi loay hoay, sau đó mới nhấn ASLT+F4 để thoát, chiều bạn chắc CTRL+ALT+DELETE mất.
Chính xác là nên thế! Đôi lúc ngu ngu không nghĩ ra (cần dùng 2 trạng thái thôi mà)
Em có biết làm đâu ạ. Nhờ các thầy giúp cả đấy chứ.Ủa form này anh là à, e tưởng của chủ thớt.
Chạy 40 năm em trêu thôi, vì nó phải ở phim viễn tưởng
Vậy thay thế Boolean vào sẽ như thế nào ạ??
Public lcount As Boolean
Function TimeProc(ByVal H As Long, ByVal nMSG As Long, ByVal nID As Long, ByVal nTsys As Long)
With UserForm1.Label1
If lcount Then
.ForeColor = .BackColor
Else
.ForeColor = &HC0&
End If
lcount = Not (lcount)
'UserForm1.Repaint
End With
End FunctionDạ vâng, cảm ơn ạ.
Tôi thường làm cách này:
Dạ em cảm ơn thầy ạ. Những kiến thức và kinh nghiệm của những người đi trước luôn là những giá trị lớn để thế hệ trẻ học tập, dù nó là chỉ là nhỏ thôi.
Dạ em cảm ơn anh đã góp ý ạ, em không có ý gì cả. Chỉ vì là người không chuyên và bước đầu tiếp cận với Excel nên cũng muốn hỏi để nhờ các anh và các thầy ai có thiện ý thì trả lời và cho giải pháp. Còn anh không muốn trả lời thì đó là quyền của anh không ép buộc được ạ. Biết là không nên ỷ nại hoặc việc gì cũng hỏi, nhưng anh cũng đừng nên đề cập đến việc đơn giản hay không đơn giản, người thông thạo có thể thấy đơn giản nhưng đối với người chưa biết nhiều đó lại là điều khó. Đôi điều cùng anh, có gì anh thông cảm khi "Ba cái đơn giản.." là hỏi.
Hihi, vâng ạ. May là a nói góp ý cho vui.
Em chạy 2 file này trên win 64bit và office 64bit thì nhấn vào nút Nhấp nháy Excel khởi động lại ạ. Bị lỗi gì vậy ạ?
Hiện tại PC thì em dùng win 32, office 32. Còn Laptop thì win 64 và office 64.
Vậy là cái hình vuông màu xanh ấy cứ hiện theo Label ấy à anh?
Dạ vâng, cũng là 1 giải pháp hay ạ. Tự làm lấy cái ảnh trong suốt PNG là ok. Cảm ơn anh nhé!
