怎么样获得窗体上所有的控件然后给它们统一gotfocus,lostfocust

Question

如题！

Answer 1

Private Sub txtwtxh_GotFocus()
txtwtxh.BackColor = &H80000018
End SubPrivate Sub txtwtxh_LostFocus()
txtwtxh.BackColor = &H8000000F
End Sub
Private Sub cbxwtdw_GotFocus()
cbxwtdw.BackColor = &H80000018
End SubPrivate Sub cbxwtdw_LostFocus()
cbxwtdw.BackColor = &HFFFFFF
End Sub
Private Sub txtwtbh_GotFocus()
txtwtbh.BackColor = &H80000018
End SubPrivate Sub txtwtbh_LostFocus()
txtwtbh.BackColor = &HFFFFFF
End Sub
Private Sub txtlxr_GotFocus()
txtlxr.BackColor = &H80000018
End SubPrivate Sub txtlxr_LostFocus()
txtlxr.BackColor = &HFFFFFF
End Sub
Private Sub cbxcpxh_GotFocus()
cbxcpxh.BackColor = &H80000018
End SubPrivate Sub cbxcpxh_LostFocus()
cbxcpxh.BackColor = &HFFFFFF
End Sub
Private Sub txtfdjh_GotFocus()
txtfdjh.BackColor = &H80000018
End SubPrivate Sub txtfdjh_LostFocus()
txtfdjh.BackColor = &HFFFFFF
End Sub
Private Sub txtcph_GotFocus()
txtcph.BackColor = &H80000018
End SubPrivate Sub txtcph_LostFocus()
txtcph.BackColor = &HFFFFFF
End Sub
Private Sub jdrname2_GotFocus()
jdrname2.BackColor = &H80000018
End Sub
Private Sub txtzzl_GotFocus()
txtzzl.BackColor = &H80000018
End SubPrivate Sub txtzzl_LostFocus()
txtzzl.BackColor = &HFFFFFF
End Sub
Private Sub txtpl_GotFocus()
txtpl.BackColor = &H80000018
End SubPrivate Sub txtpl_LostFocus()
txtpl.BackColor = &HFFFFFF
End Sub
Private Sub txtcjh_GotFocus()
txtcjh.BackColor = &H80000018
End SubPrivate Sub txtcjh_LostFocus()
txtcjh.BackColor = &HFFFFFF
End Sub
Private Sub cbxcllx_GotFocus()
cbxcllx.BackColor = &H80000018
End SubPrivate Sub cbxcllx_LostFocus()
cbxcllx.BackColor = &HFFFFFF
End Sub
Private Sub cbxsyyt_GotFocus()
cbxsyyt.BackColor = &H80000018
End SubPrivate Sub cbxsyyt_LostFocus()
cbxsyyt.BackColor = &HFFFFFF
End Sub
Private Sub txtxslc_GotFocus()
txtxslc.BackColor = &H80000018
End SubPrivate Sub txtxslc_LostFocus()
txtxslc.BackColor = &HFFFFFF
End Sub
Private Sub txtbfnx_GotFocus()
txtbfnx.BackColor = &H80000018
End SubPrivate Sub txtbfnx_LostFocus()
txtbfnx.BackColor = &HFFFFFF
End Sub
Private Sub txtfdjdxcs_GotFocus()
txtfdjdxcs.BackColor = &H80000018
End SubPrivate Sub txtfdjdxcs_LostFocus()
txtfdjdxcs.BackColor = &HFFFFFF
End Sub
Private Sub motornum1_GotFocus()
motornum1.BackColor = &H80000018
End SubPrivate Sub motornum1_LostFocus()
motornum1.BackColor = &HFFFFFF
End Sub
Private Sub bottomnum1_GotFocus()
bottomnum1.BackColor = &H80000018
End SubPrivate Sub bottomnum1_LostFocus()