액세스 폼 컨트롤 컨트롤에서 깜박임 setFocus 클래스에서

Question

나는 액세스 폼에서 깜박임을 멈추도록 노력하고 있습니다. Access 2013 및 2016에도 같은 문제가 발생합니다.

양식에 토글 버튼이 24 개 있습니다. OptionGroup 컨트롤의 특정 제한 사항으로 인해 Toggle Buttons 그룹에 필요한 모든 기능을 대신 구축했습니다. 이것은 각 단추 세트에 대한 클래스를 통해 단추에 첨부됩니다.

모든 것이 올바르게 작동하지만 사용자가 왼쪽, 오른쪽, 위 또는 아래 화살표를 누르면 컨트롤이 깜박입니다.

강령은 :

Private Sub tglS_KeyDown(KeyCode As Integer, Shift As Integer) 
    If Shift = 1 Then Exit Sub 
    Select Case KeyCode 
     Case 39, 40 
      KeyCode = 0 
      tglSI.SetFocus 
      tglSI.Value = True 
      tglSI_AfterUpdate 
     Case 37, 38 
      KeyCode = 0 
      tglNA.SetFocus 
      tglNA.Value = True 
      tglNA_AfterUpdate 
    End Select 
End Sub 

나는 코드를 통해 강화 및 제어가 SetFocus 때마다 그것이 발견했다.

모든 컨트롤이 바인딩 된 컨트롤과 언 바운드 컨트롤을 모두 깜박입니다. 토글 버튼은 탭 페이지에 있으며 탭에서 컨트롤을 깜박입니다.

나는 SetFocus 성명서의 각면에 Application.Echo 문장을 넣으려고했지만 아무런 변화가 없었습니다.

도움을 주셔서 감사합니다.

Answer 1

당신이 그렇게했는지 알기가 어렵습니다. 단지 에코 값을 설정 했습니까? 그 함수 나 서브 루틴 형태의 에코를 변경 할 -

Application.Echo False 
Select Case KeyCode 
    Case 39, 40 
     KeyCode = 0 
     tglSI.SetFocus 
     tglSI.Value = True 
     tglSI_AfterUpdate 
    Case 37, 38 
     KeyCode = 0 
     tglNA.SetFocus 
     tglNA.Value = True 
     tglNA_AfterUpdate 
End Select 
Application.Echo True 

Answer 2

코드는 함수 tglSI_AfterUpdate 및 tglNA_AfterUpdate을 의미? 이벤트 중에 컨트롤의 가시성을 변경할 수있는 조건부 서식과 함께 실제로 깜박임을 유발하는 반향이 불행했습니다. 토글 버튼에 이미지 또는 텍스트가 있습니까?