模块内容如下
Public Function TxtGotChangeColor(ByVal TxtName As Object, ByVal GotFocusBackColor, GotFocusForeColor As Long)
TxtName.BackColor = GotFocusBackColor
TxtName.ForeColor = GotFocusForeColor
End Function
Public Function TxtLoseChangeColor(ByVal TxtName As Object, ByVal loseFocusBackColor, loseFocusForeColo As Long)
TxtName.BackColor = loseFocusBackColor
TxtName.ForeColor = LoseFocusForeColor
End Function
模块内容如下
Public Function TxtGotChangeColor(ByVal TxtName As Object, ByVal GotFocusBackColor, GotFocusForeColor As Long)
TxtName.BackColor = GotFocusBackColor
TxtName.ForeColor = GotFocusForeColor
End Function
Public Function TxtLoseChangeColor(ByVal TxtName As Object, ByVal loseFocusBackColor, loseFocusForeColo As Long)
TxtName.BackColor = loseFocusBackColor
TxtName.ForeColor = LoseFocusForeColor
End Function