scombobox.ctl

可以用于商业用途

        .Name = New_Font.Name
        .Size = New_Font.Size
        .Bold = New_Font.Bold
        .Italic = New_Font.Italic
        .Underline = New_Font.Underline
        .Strikethrough = New_Font.Strikethrough
    End With
    txtCombo.Font = New_Font
    Call IsEnabled(ControlEnabled)
    Call PropertyChanged("Font")
    Refresh
End Property

Public Property Get GradientColor1() As OLE_COLOR
Attribute GradientColor1.VB_Description = "Sets/Gets the color First gradient color."
    '* English: Sets/Gets the color First gradient color.
    '* Espa駉l: Devuelve o establece el color Gradient 1.
    GradientColor1 = myGradientColor1
End Property

Public Property Let GradientColor1(ByVal New_Color As OLE_COLOR)
    myGradientColor1 = ConvertSystemColor(New_Color)
    Call IsEnabled(ControlEnabled)
    Call PropertyChanged("GradientColor1")
    Refresh
End Property

Public Property Get GradientColor2() As OLE_COLOR
Attribute GradientColor2.VB_Description = "Sets/Gets the Second gradient color."
    '* English: Sets/Gets the Second gradient color.
    '* Espa駉l: Devuelve o establece el color Gradient 2.
    GradientColor2 = myGradientColor2
End Property

Public Property Let GradientColor2(ByVal New_Color As OLE_COLOR)
    myGradientColor2 = ConvertSystemColor(New_Color)
    Call IsEnabled(ControlEnabled)
    Call PropertyChanged("GradientColor2")
    Refresh
End Property

Public Property Get HighLightBorderColor() As OLE_COLOR
Attribute HighLightBorderColor.VB_Description = "Sets/Gets the color of the border of the control when the the control is highlighted."
    '* English: Sets/Gets the color of the border of the control when the the control is highlighted.
    '* Espa駉l: Devuelve o establece el color del borde del control cuando el pasa sobre 閘.
    HighLightBorderColor = myHighLightBorderColor
End Property

Public Property Let HighLightBorderColor(ByVal New_Color As OLE_COLOR)
    myHighLightBorderColor = ConvertSystemColor(New_Color)
    Call PropertyChanged("HighLightBorderColor")
    Refresh
End Property

Public Property Get HighLightColorText() As OLE_COLOR
Attribute HighLightColorText.VB_Description = "Sets/Gets the color of the selection of the text."
    '* English: Sets/Gets the color of the selection of the text.
    '* Espa駉l: Devuelve o establece el color de selecci髇 del texto.
    HighLightColorText = myHighLightColorText
End Property

Public Property Let HighLightColorText(ByVal New_Color As OLE_COLOR)
    myHighLightColorText = ConvertSystemColor(New_Color)
    Call PropertyChanged("HighLightColorText")
    Refresh
End Property

Public Property Get HighLightPictureUser() As StdPicture
Attribute HighLightPictureUser.VB_Description = "Sets/Gets an image like topic of the Combo when the mouse is over the control."
    '* English: Sets/Gets an image like topic of the Combo when the mouse is over the control.
    '* Espa駉l: Devuelve o establece una imagen como tema del combo cuando el mouse pasa por el Objeto.
    Set HighLightPictureUser = myHighLightPictureUser
End Property

Public Property Set HighLightPictureUser(ByVal New_Picture As StdPicture)
    Set myHighLightPictureUser = New_Picture
    Call PropertyChanged("HighLightPictureUser")
    Refresh
End Property

Public Property Get ItemTag(ByVal ListIndex As Long) As String
Attribute ItemTag.VB_Description = "Returns the tag of a specified item."
    '* English: Returns the tag of a specified item.
    '* Espa駉l: Selecciona el tag de Item.
    ItemTag = ""
    On Error GoTo myErr:
    ItemTag = ListContents(ListIndex).Tag
    Exit Property
myErr:
    ItemTag = ""
End Property

Public Property Get ListColor() As OLE_COLOR
Attribute ListColor.VB_Description = "Sets/Gets the color of the List."
    '* English: Sets/Gets the color of the List.
    '* Espa駉l: Devuelve o establece el color de la lista.
    ListColor = myListColor
End Property

Public Property Let ListColor(ByVal New_Color As OLE_COLOR)
    myListColor = ConvertSystemColor(New_Color)
    picList.BackColor = myListColor
    Call IsEnabled(ControlEnabled)
    Call PropertyChanged("ListColor")
    Refresh
End Property

Public Property Get ListCount() As Long
Attribute ListCount.VB_Description = "Returns the number of elements in the list."
    '* English: Returns the number of elements in the list.
    '* Espa駉l: Devuelve o establece el n鷐ero de elementos de la lista.
    ListCount = ListCount1 - 1
End Property

Public Property Get ListGradient() As Boolean
Attribute ListGradient.VB_Description = "Sets/Gets the list in degraded form."
    '* English: Sets/Gets the list in degraded form.
    '* Espa駉l: Devuelve o establece si la lista se muestra en forma degradada.
    ListGradient = myListGradient
End Property

Public Property Let ListGradient(ByVal New_Gradient As Boolean)
    myListGradient = New_Gradient
    Call PropertyChanged("ListGradient")
    Refresh
End Property

Public Property Get ListIndex() As Long
Attribute ListIndex.VB_Description = "Sets/Gets the selected item."
Attribute ListIndex.VB_MemberFlags = "400"
    '* English: Sets/Gets the selected item.
    '* Espa駉l: Devuelve o establece el item actual seleccionado.
    ListIndex = ListIndex1
End Property

Public Property Let ListIndex(ByVal New_ListIndex As Long)
    Call ListIndex1(New_ListIndex)
End Property

Public Property Get ListPositionShow() As ListDirection
Attribute ListPositionShow.VB_Description = "Sets/Gets If the list is shown up or down."
    '* English: Sets/Gets If the list is shown up or down.
    '* Espa駉l: Devuelve o establece si la lista se muestra hacia arriba ?hacia abajo.
    ListPositionShow = myListShown
End Property

Public Property Let ListPositionShow(ByVal New_Position As ListDirection)
    myListShown = New_Position
    Call PropertyChanged("ListPositionShow")
    Refresh
End Property

Public Property Get MaxListLength() As Long
Attribute MaxListLength.VB_Description = "Sets/Gets the maximum size of the list."
Attribute MaxListLength.VB_MemberFlags = "400"
    '* English: Sets/Gets the maximum size of the list.
    '* Espa駉l: Devuelve o establece el tama駉 m醲imo de la lista.
    MaxListLength = IIf(ListMaxL < 0, ListCount, ListMaxL)
End Property

Public Property Let MaxListLength(ByVal ListMax As Long)
    If (ListMax > 0) And (ListMax < ListCount1) Then
        ListMaxL = ListMax
    Else
        ListMaxL = ListCount
    End If
    Call PropertyChanged("MaxListLength")
    Refresh
End Property

Public Property Get MouseIcon() As StdPicture
Attribute MouseIcon.VB_Description = "Sets a custom mouse icon."
    '* English: Sets a custom mouse icon.
    '* Espa駉l: Establece un icono escogido por el usuario.
    Set MouseIcon = myMouseIcon
End Property

Public Property Set MouseIcon(ByVal New_MouseIcon As StdPicture)
    Set myMouseIcon = New_MouseIcon
End Property

Public Property Get MousePointer() As MousePointerConstants
Attribute MousePointer.VB_Description = "Sets/Gets the type of mouse pointer displayed when over part of an object."
    '* English: Sets/Gets the type of mouse pointer displayed when over part of an object.
    '* Espa駉l: Devuelve o establece el tipo de puntero a mostrar cuando el mouse pase sobre el objeto.
    MousePointer = myMousePointer
End Property

Public Property Let MousePointer(ByVal New_MousePointer As MousePointerConstants)
    myMousePointer = New_MousePointer
End Property

Public Property Get NewIndex() As Long
Attribute NewIndex.VB_Description = "Sets/Gets the last Item added."
    '* English: Sets/Gets the last Item added.
    '* Espa駉l: Devuelve o establece el 鷏timo item agregado.
    If (sumItem <= 0) Then NewIndex = -1 Else NewIndex = sumItem
End Property

Public Property Get NormalBorderColor() As OLE_COLOR
Attribute NormalBorderColor.VB_Description = "Sets/Gets the normal border color of the control."
    '* English: Sets/Gets the normal border color of the control.
    '* Espa駉l: Devuelve o establece el color normal del borde del control.
    NormalBorderColor = myNormalBorderColor
End Property

Public Property Let NormalBorderColor(ByVal New_Color As OLE_COLOR)
    myNormalBorderColor = ConvertSystemColor(New_Color)
    Call IsEnabled(ControlEnabled)
    Call PropertyChanged("NormalBorderColor")
    Refresh
End Property

Public Property Let NormalColorText(ByVal New_Color As OLE_COLOR)
Attribute NormalColorText.VB_Description = "Sets/Gets the normal text color in the control."
    myNormalColorText = ConvertSystemColor(New_Color)
    Call IsEnabled(ControlEnabled)
    Call PropertyChanged("NormalColorText")
    Refresh
End Property

Public Property Get NormalColorText() As OLE_COLOR
    '* English: Sets/Gets the normal text color in the control.
    '* Espa駉l: Devuelve o establece el color del texto normal.
    NormalColorText = myNormalColorText
End Property

Public Property Get NormalPictureUser() As StdPicture
Attribute NormalPictureUser.VB_Description = "Sets/Gets an image like topic of the Combo in normal state."
    '* English: Sets/Gets an image like topic of the Combo in normal state.
    '* Espa駉l: Devuelve o establece una imagen como tema del combo en estado normal.
    Set NormalPictureUser = myNormalPictureUser
End Property

Public Property Set NormalPictureUser(ByVal New_Picture As StdPicture)
    Set myNormalPictureUser = New_Picture
    Call IsEnabled(ControlEnabled)
    Call PropertyChanged("NormalPictureUser")
    Refresh
End Property

Public Property Get NumberItemsToShow() As Long
Attribute NumberItemsToShow.VB_Description = "Sets/Gets the number of items to show per time."
Attribute NumberItemsToShow.VB_MemberFlags = "400"
    '* English: Sets/Gets the number of items to show per time.
    '* Espa駉l: Devuelve o establece el n鷐ero de items a mostrar por vez.
    If (myItemsShow < 0) Then myItemsShow = IIf(MaxListLength > 8, 7, MaxListLength)
    NumberItemsToShow = myItemsShow
End Property

Public Property Let NumberItemsToShow(ByVal ItemsShow As Long)
    If (ItemsShow <= 1) Or (ItemsShow >= MaxListLength) Then
        myItemsShow = IIf(MaxListLength > 8, MaxListLength - 8, ListCount)
    Else
        myItemsShow = ItemsShow
    End If
    Call PropertyChanged("NumberItemsToShow")
    Refresh
End Property

Public Property Get OfficeAppearance() As ComboOfficeAppearance
Attribute OfficeAppearance.VB_Description = "Sets/Gets the office apperance."
    '* English: Sets/Gets the office apperance.
    '* Espa駉l: Devuelve o establece la apariencia de Office.
    OfficeAppearance = myOfficeAppearance
End Property

Public Property Let OfficeAppearance(ByVal New_Apperance As ComboOfficeAppearance)
    myOfficeAppearance = New_Apperance
    Call IsEnabled(ControlEnabled)
    Call PropertyChanged("OfficeAppearance")
    Refresh
End Property

Public Property Get SelectBorderColor() As OLE_COLOR
Attribute SelectBorderColor.VB_Descr