Ну а для скриншотофобов я выложу какой-нидь простенький контрольчик в исходниках. Например вот этот я использую, чтоб без гимороя получить в NET2005 ImageCombo.

Кстати, вот эта прога, сделана именно на этом контрольчике.

00001: VERSION 5.00
00002: Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
00003: Begin VB.UserControl ImCombo 
00004:    ClientHeight    =   345
00005:    ClientLeft      =   0
00006:    ClientTop       =   0
00007:    ClientWidth     =   1560
00008:    ScaleHeight     =   345
00009:    ScaleWidth      =   1560
00010:    Begin MSComctlLib.ImageList ImageList1 
00011:       Left            =   0
00012:       Top             =   0
00013:       _ExtentX        =   1005
00014:       _ExtentY        =   1005
00015:       BackColor       =   -2147483643
00016:       MaskColor       =   12632256
00017:       _Version        =   393216
00018:    End
00019:    Begin MSComctlLib.ImageCombo Combo 
00020:       Height          =   330
00021:       Left            =   0
00022:       TabIndex        =   0
00023:       Top             =   0
00024:       Width           =   1575
00025:       _ExtentX        =   2778
00026:       _ExtentY        =   582
00027:       _Version        =   393216
00028:       ForeColor       =   -2147483640
00029:       BackColor       =   -2147483643
00030:    End
00031: End
00032: Attribute VB_Name = "ImCombo"
00033: Attribute VB_GlobalNameSpace = False
00034: Attribute VB_Creatable = True
00035: Attribute VB_PredeclaredId = False
00036: Attribute VB_Exposed = True
00037: Public Event Changes(Key As String)
00038: 
00039: Public Sub Combo_Click()
00040: RaiseEvent Changes(Combo.SelectedItem.Key)
00041: End Sub
00042: 
00043: Public Sub ComboImageClear()
00044: ImageList1.ListImages.Clear
00045: End Sub
00046: 
00047: Public Sub ComboImageAddPictureFromFile(ImageKey As String, FileName As String)
00048: ImageList1.ListImages.Add , ImageKey, LoadPicture(FileName)
00049: End Sub
00050: 
00051: Public Sub ComboImageAddPicture(ImageKey As String, Picture As Picture)
00052: ImageList1.ListImages.Add , ImageKey, Picture
00053: End Sub
00054: 
00055: Public Sub ComboItemClear()
00056: Combo.ComboItems.Clear
00057: End Sub
00058: 
00059: Public Sub ComboItemAdd(Text As String, Value As String, ImageKey As String)
00060: If Combo.ImageList Is Nothing Then Combo.ImageList = ImageList1
00061: 'Здесь Value почему-то должно начинаться только с буквы
00062: Combo.ComboItems.Add , Value, Text, ImageKey
00063: End Sub
00064: 
00065: Public Sub ComboItemSet(Value As String)
00066: Dim X As ComboItem, i As Integer
00067: For i = 1 To Combo.ComboItems.Count
00068: If Combo.ComboItems(i).Key = Value Then Combo.ComboItems(i).Selected = True
00069: Next
00070: End Sub
00071: 
00072: Private Sub UserControl_Resize()
00073: Combo.Width = UserControl.Width
00074: Combo.Height = UserControl.Height
00075: End Sub

На самом деле, контролов у меня на сайте выложено достаточно много, ну вот например - редактируемое по месту дерево с динамически меняющимся контекстным меню.

Comments ( )