사용자가 각 텍스트 상자를 클릭하여 데이터를 입력하면 텍스트 상자 배경이 녹색으로 변경되는 양식에 대한 코드를 작성하고 싶습니다.
이와 같은-현재 이벤트 형식 :
Dim c as control
For each c In me.controls
If c.OnClick then
C.backcolor= vbGreen
C.tag="clicked"
End If
If c.AfterUpdate and c.tag="clicked" then
C.backcolor= vbWhite
C.tag=""
Next c
이벤트가 언제 발생했는지 어떻게 알 수 있습니까?
이를 위해 WithEvents 를 사용 합니다. 이것은 제대로 문서화되어 있지 않지만 내 프로젝트에서 예제를 찾을 수 있습니다 (여기에 게시하기에는 너무 많은 코드).
전체 문서 및 추가 링크는 프로젝트에 대한 내 기사에 있습니다.
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다