ocx编程小问题在线等待:设计时设定的属性值为何运行时消失.

[yokel]

OCX中:
Dim strPicPath As String

Public Property Get PicPath() As String
PicPath = strPicPath
End Property

Public Property Let PicPath(strPath As String)
strPicPath = strPath
End Property

在使用此控件时,设计时指定PicPath属性为"c:\1.bmp",

运行时PicPath属性则为"",何理!

[射天狼]

'属性初始值
Const ini_strPicPath As String

'属性设置值
Private strPicPath As String

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
With PropBag
Call .WriteProperty("PicPath", strPicPath, ini_strPicPath)
End With
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
With PropBag
Text = .ReadProperty("PicPath", ini_strPicPath)
End With
End Sub

Public Property Get PicPath() As String
PicPath = strPicPath
End Property

Public Property Let PicPath(strPath As String)
strPicPath = strPath
End Property

[射天狼]

写错了,把这个
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
With PropBag
Text = .ReadProperty("PicPath", ini_strPicPath)
End With
End Sub

改成:

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
With PropBag
PicPath = .ReadProperty("PicPath", ini_strPicPath)
End With
End Sub

[lgxysl]

原因是你没有保存属性值.处理方法可参照"射天狼"先生的.

[yokel]

多谢,实不相瞒,初次写ocx.
试试先,好用立马给分.