[分享]在VB中判断当前获得焦点的控件是否是想要的那一个

Question

就用下面加下划线那个语句判断就行了
    '把sng传给子窗体 
     Set frmX = Forms.Item("FrmWeekFood").Form 
    Set frmChild = frmX.chdFrmRecipeFood.Form 
    If frmChild.ActiveControl Is frmChild.数量 Then frmChild.数量 = sngQuant 
    If frmChild.ActiveControl Is frmChild.单位营养量 Then frmChild.单位营养量 = sngQuant 
     
    Set frmX = Nothing 
    Set frmChild = Nothing

Answer 1

晕，下划线没显示出来。就是这个语句哟：If frmChild.ActiveControl Is frmChild.数量