在自定义控件上加一个text Public Property Get IMEMode() As Long IMEMode = Text1.IMEMode End PropertyPublic Property Let IMEMode(ByVal vNewValue As Long) If vNewValue >= 0 And vNewValue <= 7 Then Text1.IMEMode = vNewValue Else MsgBox "Range:0-7" End If End Property
Public Property Get IMEMode() As Long
IMEMode = Text1.IMEMode
End PropertyPublic Property Let IMEMode(ByVal vNewValue As Long)
If vNewValue >= 0 And vNewValue <= 7 Then
Text1.IMEMode = vNewValue
Else
MsgBox "Range:0-7"
End If
End Property