column.cls

很棒的网页音乐播放器,可以嵌入网页。界面很漂亮

'//该源码下载自www.aspx1.com(ａｓｐｘ１．ｃｏｍ)

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Column"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/03/15
'描    述：网页搜索音乐播放器  Ver 1.1.0
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Option Explicit

Private m_strKey            As String
Private m_strCaption        As String
Private m_udeAlign          As TextAlignConstants
Private m_lngWidth          As Long
Private m_lngWidthAutoSize  As Long
Private m_blnPushed         As Boolean
Private m_blnVisible        As Boolean
Private m_blnResizable      As Boolean
Private m_udeLastSortOrder  As SortOrderConstants

Public Property Get LastSortOrder() As SortOrderConstants
    LastSortOrder = m_udeLastSortOrder
End Property

Public Property Let LastSortOrder(ByVal udeVal As SortOrderConstants)
    m_udeLastSortOrder = udeVal
End Property

Public Property Get Pushed() As Boolean
    Pushed = m_blnPushed
End Property

Public Property Let Pushed(ByVal blnVal As Boolean)
    m_blnPushed = blnVal
End Property

Public Property Get Visible() As Boolean
    Visible = m_blnVisible
End Property

Public Property Let Visible(ByVal blnValue As Boolean)
    m_blnVisible = blnValue
End Property

Public Property Get key() As String
    key = m_strKey
End Property

Public Property Let key(ByVal strKey As String)
    m_strKey = strKey
End Property

Public Property Get Caption() As String
    Caption = m_strCaption
End Property

Public Property Let Caption(ByVal strText As String)
    m_strCaption = strText
End Property

Public Property Get TextAlign() As TextAlignConstants
    TextAlign = m_udeAlign
End Property

Public Property Let TextAlign(ByVal udeAlign As TextAlignConstants)
    m_udeAlign = udeAlign
End Property

Public Property Get Width() As Long
    Width = m_lngWidth
End Property

Public Property Let Width(ByVal lngWidth As Long)
    m_lngWidth = lngWidth
End Property

Public Property Get WidthAutoSized() As Long
    WidthAutoSized = m_lngWidthAutoSize
End Property

Public Property Let WidthAutoSized(ByVal lngWidthAuto As Long)
    m_lngWidthAutoSize = lngWidthAuto
End Property

Public Property Get Resizable() As Boolean
    Resizable = m_blnResizable
End Property

Public Property Let Resizable(ByVal blnValue As Boolean)
    m_blnResizable = blnValue
End Property