vb6 基于文本框的自定义控件的有关问题

vb6 基于文本框的自定义控件的问题
这个自定义控件是别人写的，没有locked属性属性部分代码是

VB code

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)PropBag.WriteProperty "MaxLength", MaxLengthPropBag.WriteProperty "ValidChar", ValidCharPropBag.WriteProperty "Text", txtEdit.TextPropBag.WriteProperty "Enabled", EnabledPropBag.WriteProperty "IMEMode", miImeModePropBag.WriteProperty "AutoSel", mbAutoSelPropBag.WriteProperty "Left", txtEdit.LeftPropBag.WriteProperty "Width", txtEdit.WidthPropBag.WriteProperty "Top", txtEdit.TopPropBag.WriteProperty "Height", txtEdit.HeightPropBag.WriteProperty "Font", txtEdit.FontPropBag.WriteProperty "FontName", txtEdit.FontNamePropBag.WriteProperty "FontSize", txtEdit.FontSizeEnd Sub

然后我给加了一句

VB code

PropBag.WriteProperty "Locked ", txtEdit.Locked, False

后无效，不知道是为什么？
还有搜索了下locked属性发现这么一段不知道干嘛的

VB code

Public Property Let UnLocked(piEnabled As Boolean)txtEdit.Locked = Not piEnabledPropertyChanged "UnLocked"End Property

[解决办法]
可通过ActiveX控件接口向导来选择Locked属性，然后再映射到txtEdit

查看更多 下一篇