フォームコントロールにアクセスするコントロール上でちらつきが発生するクラスからフォーカスを取得

Question

私はAccessフォームでちらつきを止めるように取り組んでいます。 同じ問題がAccess 2013と2016に表示されます。

フォームにはトグルボタンが24個あります。 OptionGroupコントロールにはいくつかの制限があるため、必要なすべての機能をトグルボタンのグループに組み込んでいます。これは、各ボタンセットのクラスを介してボタンに関連付けられています。

すべてが正常に機能していますが、ユーザーが左、右、上または下の矢印を押すと、コントロールがちらつきます。

コード：

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を指し、 - これらの関数またはサブルーチンがフォームのエコーを変更できますか？イベント中にコントロールの視認性を変えることがある条件付き書式とともに、実際にちらつきを引き起こすエコーに不運がありました。トグルボタンに画像やテキストが表示されていますか？