home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / ThemedComb2220712262012.psc / Forms / frmThemedComboBox.frm next >
Text File  |  2011-11-30  |  6KB  |  217 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmThemedComboBox 
  4.    AutoRedraw      =   -1  'True
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "Themed ComboBox Demo"
  7.    ClientHeight    =   4452
  8.    ClientLeft      =   36
  9.    ClientTop       =   420
  10.    ClientWidth     =   3972
  11.    Icon            =   "frmThemedComboBox.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   371
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   331
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.CheckBox chkEnable 
  20.       Caption         =   "Enable"
  21.       Height          =   192
  22.       Index           =   4
  23.       Left            =   3000
  24.       TabIndex        =   14
  25.       Top             =   3960
  26.       Value           =   1  'Checked
  27.       Width           =   852
  28.    End
  29.    Begin prjThemedComboBox.ThemedComboBox tcbComboBox 
  30.       Left            =   3480
  31.       Top             =   120
  32.       _ExtentX        =   445
  33.       _ExtentY        =   423
  34.       ButtonDisabled  =   "frmThemedComboBox.frx":08CA
  35.       ButtonNormal    =   "frmThemedComboBox.frx":0EDC
  36.       ButtonOver      =   "frmThemedComboBox.frx":14EE
  37.       ButtonPressed   =   "frmThemedComboBox.frx":1B00
  38.       ComboBoxBorderColor=   0
  39.       DriveListBoxBorderColor=   0
  40.    End
  41.    Begin MSComctlLib.ImageCombo imgCombo 
  42.       Height          =   300
  43.       Left            =   240
  44.       TabIndex        =   13
  45.       Top             =   3960
  46.       Width           =   2652
  47.       _ExtentX        =   4678
  48.       _ExtentY        =   529
  49.       _Version        =   393216
  50.       ForeColor       =   -2147483640
  51.       BackColor       =   -2147483643
  52.    End
  53.    Begin VB.CheckBox chkEnable 
  54.       Caption         =   "Enable"
  55.       Height          =   192
  56.       Index           =   3
  57.       Left            =   3000
  58.       TabIndex        =   11
  59.       Top             =   3240
  60.       Value           =   1  'Checked
  61.       Width           =   852
  62.    End
  63.    Begin VB.DriveListBox drvListBox 
  64.       Height          =   288
  65.       Left            =   240
  66.       TabIndex        =   10
  67.       Top             =   3240
  68.       Width           =   2652
  69.    End
  70.    Begin VB.CheckBox chkEnable 
  71.       Caption         =   "Enable"
  72.       Height          =   192
  73.       Index           =   2
  74.       Left            =   3000
  75.       TabIndex        =   8
  76.       Top             =   2520
  77.       Value           =   1  'Checked
  78.       Width           =   852
  79.    End
  80.    Begin VB.CheckBox chkEnable 
  81.       Caption         =   "Enable"
  82.       Height          =   192
  83.       Index           =   1
  84.       Left            =   3000
  85.       TabIndex        =   5
  86.       Top             =   1200
  87.       Value           =   1  'Checked
  88.       Width           =   852
  89.    End
  90.    Begin VB.ComboBox cmbDemo 
  91.       Height          =   912
  92.       Index           =   1
  93.       Left            =   240
  94.       Style           =   1  'Simple Combo
  95.       TabIndex        =   4
  96.       Top             =   1200
  97.       Width           =   2652
  98.    End
  99.    Begin VB.CheckBox chkEnable 
  100.       Caption         =   "Enable"
  101.       Height          =   192
  102.       Index           =   0
  103.       Left            =   3000
  104.       TabIndex        =   2
  105.       Top             =   480
  106.       Width           =   852
  107.    End
  108.    Begin VB.ComboBox cmbDemo 
  109.       Height          =   288
  110.       Index           =   2
  111.       ItemData        =   "frmThemedComboBox.frx":2112
  112.       Left            =   240
  113.       List            =   "frmThemedComboBox.frx":2114
  114.       Style           =   2  'Dropdown List
  115.       TabIndex        =   7
  116.       Top             =   2520
  117.       Width           =   2652
  118.    End
  119.    Begin VB.ComboBox cmbDemo 
  120.       Enabled         =   0   'False
  121.       Height          =   288
  122.       Index           =   0
  123.       Left            =   240
  124.       TabIndex        =   1
  125.       Top             =   480
  126.       Width           =   2652
  127.    End
  128.    Begin VB.Label lblInfo 
  129.       Caption         =   "ImageBox"
  130.       Height          =   252
  131.       Index           =   4
  132.       Left            =   240
  133.       TabIndex        =   12
  134.       Top             =   3720
  135.       Width           =   2652
  136.    End
  137.    Begin VB.Label lblInfo 
  138.       Caption         =   "DriveListBox"
  139.       Height          =   252
  140.       Index           =   3
  141.       Left            =   240
  142.       TabIndex        =   9
  143.       Top             =   3000
  144.       Width           =   2652
  145.    End
  146.    Begin VB.Label lblInfo 
  147.       Caption         =   "Style: Dropdown List"
  148.       Height          =   252
  149.       Index           =   2
  150.       Left            =   240
  151.       TabIndex        =   6
  152.       Top             =   2280
  153.       Width           =   2652
  154.    End
  155.    Begin VB.Label lblInfo 
  156.       Caption         =   "Style: Simple Combo"
  157.       Height          =   252
  158.       Index           =   1
  159.       Left            =   240
  160.       TabIndex        =   3
  161.       Top             =   960
  162.       Width           =   2652
  163.    End
  164.    Begin VB.Label lblInfo 
  165.       Caption         =   "Style: Dropdown Combo"
  166.       Height          =   252
  167.       Index           =   0
  168.       Left            =   240
  169.       TabIndex        =   0
  170.       Top             =   240
  171.       Width           =   2652
  172.    End
  173. End
  174. Attribute VB_Name = "frmThemedComboBox"
  175. Attribute VB_GlobalNameSpace = False
  176. Attribute VB_Creatable = False
  177. Attribute VB_PredeclaredId = True
  178. Attribute VB_Exposed = False
  179. Option Explicit
  180.  
  181. Private Sub chkEnable_Click(Index As Integer)
  182.  
  183.    Select Case Index
  184.       Case 4
  185.          imgCombo.Enabled = Not imgCombo.Enabled
  186.          
  187.       Case 3
  188.          drvListBox.Enabled = Not drvListBox.Enabled
  189.          
  190.       Case Else
  191.          cmbDemo.Item(Index).Enabled = chkEnable.Item(Index).Value
  192.    End Select
  193.  
  194. End Sub
  195.  
  196. Private Sub Command1_Click()
  197.  
  198.    Unload cmbDemo.Item(3)
  199.  
  200. End Sub
  201.  
  202. Private Sub Form_Load()
  203.  
  204. Dim intCount As Integer
  205.  
  206.    For intCount = 0 To 2
  207.       With cmbDemo.Item(intCount)
  208.          .AddItem "Demo 1"
  209.          .AddItem "Demo 2"
  210.          .AddItem "Demo 3"
  211.          .AddItem "Demo 4"
  212.          .ListIndex = 0
  213.       End With
  214.    Next 'intCount
  215.  
  216. End Sub
  217.