Win/OCX

Shadow Knight · 03.02.2002, 08:06

0oof.

Sorry maybe this question is offtopic of this forum, but I just did not find any forum about PROGRAMMING ITSELF. So the prob goes::

<BLOCKQUOTE>code:<HR><pre> '+----------------------------------------------------+ '| FriendsList OCX control source code - © XP SiLVER. | '| SMCV12SB Working Model ed. project file | '+----------------------------------------------------+

Const m_def_BackColor = 0 Const m_def_ForeColor = 0 Const m_def_Enabled = 0 Const m_def_BorderStyle = 1 Const m_def_Online = 0 Const m_def_Nickname = "Nickname"

Dim m_BackColor As Long Dim m_ForeColor As Long Dim m_Enabled As Boolean Dim m_Font As Font Dim m_BorderStyle As Integer Dim m_Online As Boolean Dim m_Nickname As String

Event Click() Event DblClick() Event KeyDown(KeyCode As Integer, Shift As Integer) Event KeyPress(KeyAscii As Integer) Event KeyUp(KeyCode As Integer, Shift As Integer) Event MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

'MemberInfo=8,0,0,0 Public Property Get BackColor() As Long BackColor = m_BackColor End Property

Public Property Let BackColor(ByVal New_BackColor As Long) m_BackColor = New_BackColor picFrame.BackColor = New_BackColor PropertyChanged "BackColor" End Property

'MemberInfo=8,0,0,0 Public Property Get ForeColor() As Long ForeColor = m_ForeColor End Property

Public Property Let ForeColor(ByVal New_ForeColor As Long) m_ForeColor = New_ForeColor lblNickname.ForeColor = New_ForeColor PropertyChanged "ForeColor" End Property

'MemberInfo=0,0,0,0 Public Property Get Enabled() As Boolean Enabled = m_Enabled End Property

Public Property Let Enabled(ByVal New_Enabled As Boolean) m_Enabled = New_Enabled PropertyChanged "Enabled" End Property

'MemberInfo=6,0,0,0 Public Property Get Font() As Font Set Font = m_Font End Property

Public Property Set Font(ByVal New_Font As Font) Set m_Font = New_Font Set UserControl.Font = New_Font Set lblNickname.Font = m_Font Call UserControl_Resize PropertyChanged "Font" End Property

'MemberInfo=7,0,0,0 Public Property Get BorderStyle() As Integer BorderStyle = m_BorderStyle If BorderStyle < 2 And BorderStyle >= 0 Then picFrame.BorderStyle = BorderStyle End Property

Public Property Let BorderStyle(ByVal New_BorderStyle As Integer) m_BorderStyle = New_BorderStyle PropertyChanged "BorderStyle" End Property

'MemberInfo=5 Public Sub Refresh() End Sub

'MemberInfo=0,0,0,0 Public Property Get Online() As Boolean Online = m_Online If Online = True Then Status = "Online" Else Status = "Offline" imgIcon.Picture = LoadPicture(App.Path & "\..\Msgr\images\" & Status & ".gif") End Property

Public Property Let Online(ByVal New_Online As Boolean) m_Online = New_Online PropertyChanged "Online" End Property

'MemberInfo=13,0,0,Nickname Public Property Get Nickname() As String Nickname = m_Nickname lblNickname.Caption = Nickname End Property

Public Property Let Nickname(ByVal New_Nickname As String) m_Nickname = New_Nickname PropertyChanged "Nickname" End Property

Private Sub UserControl_InitProperties() m_BackColor = m_def_BackColor m_ForeColor = m_def_ForeColor m_Enabled = m_def_Enabled Set m_Font = Ambient.Font m_BorderStyle = m_def_BorderStyle m_Online = m_def_Online m_Nickname = m_def_Nickname lblNickname.Caption = m_Nickname End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

m_BackColor = PropBag.ReadProperty("BackColor", m_BackColor) m_ForeColor = PropBag.ReadProperty("ForeColor", m_def_ForeColor) m_Enabled = PropBag.ReadProperty("Enabled", m_def_Enabled) Set m_Font = PropBag.ReadProperty("Font", Ambient.Font) m_BorderStyle = PropBag.ReadProperty("BorderStyle", m_def_BorderStyle) m_Online = PropBag.ReadProperty("Online", m_def_Online) m_Nickname = PropBag.ReadProperty("Nickname", m_Nickname) End Sub

Private Sub UserControl_Resize() picFrame.Width = UserControl.Width picFrame.Height = UserControl.Height imgIcon.Top = picFrame.Height / 2 - imgIcon.Height / 2 - 10 lblNickname.Top = picFrame.Height / 2 - imgIcon.Height / 2 - 10 'lblNickname.Width = picFrame.Width - lblNickname.Left End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag) Call PropBag.WriteProperty("BackColor", m_BackColor, m_def_BackColor) Call PropBag.WriteProperty("ForeColor", m_ForeColor, m_def_ForeColor) Call PropBag.WriteProperty("Enabled", m_Enabled, m_def_Enabled) Call PropBag.WriteProperty("Font", m_Font, Ambient.Font) Call PropBag.WriteProperty("BorderStyle", m_BorderStyle, m_def_BorderStyle) Call PropBag.WriteProperty("Online", m_Online, m_def_Online) Call PropBag.WriteProperty("Nickname", lblNickname.Caption, Ambient.DisplayName) End Sub

</pre><HR></BLOCKQUOTE>

 Need 2 create an OCX control on VB, which will include:: Picture box, Label and Image box. And few custom properties - 'Enabled' [if TRUE, the imagebox takes one image, if no - another] and 'Caption' [Customizes the label's text]. So what's the problem - I create it, and on form at the design-time it works perfect, but when I execute the program, Label and Enabled state again come to their default values. What's up??

Rgdz, SiLVER