【VB开源代码栏目提醒】：以下是网学会员为您推荐的VB开源代码-Ex8_10.frm，希望本篇文章对您学习有所帮助。

    VERSION 5.00
    Begin VB.Form Ex8_10 
       Caption         =   "组合框控件的应用"
       ClientHeight    =   3315
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   6840
       LinkTopic       =   "Form1"
       ScaleHeight     =   3315
       ScaleWidth      =   6840
       StartUpPosition =   3  '窗口缺省
       Begin VB.CommandButton Command2 
          Caption         =   "取消"
          Height          =   375
          Left            =   5760
          TabIndex        =   10
          Top             =   2880
          Width           =   855
       End
       Begin VB.CommandButton Command1 
          Caption         =   "确定"
          Height          =   375
          Left            =   4680
          TabIndex        =   9
          Top             =   2880
          Width           =   975
       End
       Begin VB.ComboBox Combo4 
          Height          =   300
          Left            =   5280
          TabIndex        =   8
          Top             =   1440
          Width           =   1455
       End
       Begin VB.ComboBox Combo3 
          Height          =   300
          Left            =   3600
          Style           =   2  'Dropdown List
          TabIndex        =   7
          Top             =   1440
          Width           =   1455
       End
       Begin VB.ComboBox Combo2 
          Height          =   300
          Left            =   1920
          Style           =   2  'Dropdown List
          TabIndex        =   6
          Top             =   1440
          Width           =   1455
       End
       Begin VB.ComboBox Combo1 
          Height          =   1260
          Left            =   240
          Style           =   1  'Simple Combo
          TabIndex        =   5
          Top             =   1440
          Width           =   1455
       End
       Begin VB.Label Label5 
          Caption         =   "硬盘"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   12
             Charset         =   134
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Left            =   5400
          TabIndex        =   4
          Top             =   960
          Width           =   855
       End
       Begin VB.Label Label4 
          Caption         =   "内存"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   12
             Charset         =   134
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Left            =   3840
          TabIndex        =   3
          Top             =   960
          Width           =   855
       End
       Begin VB.Label Label3 
          Caption         =   "CPU主频"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   12
             Charset         =   134
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Left            =   2160
          TabIndex        =   2
          Top             =   960
          Width           =   1215
       End
       Begin VB.Label Label2 
          Caption         =   "机型"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   12
             Charset         =   134
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   255
          Left            =   360
          TabIndex        =   1
          Top             =   960
          Width           =   975
       End
       Begin VB.Label Label1 
          Caption         =   "微机配置子系统"
          BeginProperty Font 
             Name            =   "宋体"
             Size            =   18
             Charset         =   134
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
          Height          =   375
          Left            =   2040
          TabIndex        =   0
          Top             =   240
          Width           =   3015
       End
    End
    Attribute VB_Name = "Ex8_10"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Form_Load()
    Combo1.FontSize = 10
    Combo2.FontSize = 10
    Combo3.FontSize = 10
    Combo4.FontSize = 10
    
    Combo1.AddItem "IBM"
    Combo1.AddItem "联想"
    Combo1.AddItem "方正"
    Combo1.AddItem "实达"
    
    Combo2.AddItem "赛扬 2.4G"
    Combo2.AddItem "赛扬 2.5G"
    Combo2.AddItem "赛扬 2.8G"
    Combo2.AddItem "奔腾P4-2.4G"
    Combo2.AddItem "奔腾P4-2.8G"
    Combo2.AddItem "奔腾P4-3.2G"
    
    Combo3.AddItem "64MB"
    Combo3.AddItem "128MB"
    Combo3.AddItem "256MB"
    Combo3.AddItem "512MB"
    
    Combo4.AddItem "40G"
    Combo4.AddItem "60G"
    Combo4.AddItem "80G"
    Combo4.AddItem "120G"
    
    End Sub
    Private Sub Command1_Click()
        MsgBox "您所选择的微机配置为：" & _
        Chr(13) & "机型：" & Combo1.Text & _
        Chr(13) & "CPU：" & Combo2.Text & _
        Chr(13) & "内存：" & Combo3.Text & _
        Chr(13) & "硬盘：" & Combo4.Text
    End Sub
    
    Private Sub Command2_Click()
      End
    End Sub