我编的,界面已经够像的了吧?
以下是Frm文件的内容:
VERSION 5.00
Begin VB.Form Form1
Caption = 2+X课程系列
ClientHeight = 4500
ClientLeft = 120
ClientTop = 450
ClientWidth = 7380
LinkTopic = Form1
ScaleHeight = 4500
ScaleWidth = 7380
StartUpPosition = 3 '窗口缺省
Begin VB.ListBox List1
Height = 2580
Left = 5280
TabIndex = 14
Top = 1680
Width = 1935
End
Begin VB.CommandButton Command1
Caption = 确定
Height = 495
Left = 5280
TabIndex = 12
Top = 600
Width = 1335
End
Begin VB.Frame Frame2
Caption = 必修课程
Height = 1095
Left = 1080
TabIndex = 8
Top = 3240
Width = 3975
Begin VB.CheckBox Check6
Caption = 大学计算机基础
Enabled = 0 'False
Height = 255
Left = 1080
TabIndex = 11
Top = 720
Value = 1 'Checked
Width = 1575
End
Begin VB.OptionButton Option4
Caption = C/C++程序设计
Height = 255
Left = 2160
TabIndex = 10
Top = 360
Width = 1455
End
Begin VB.OptionButton Option3
Caption = VB.NET程序设计
Height = 255
Left = 240
TabIndex = 9
Top = 360
Value = -1 'True
Width = 1695
End
End
Begin VB.Frame Frame1
Caption = 限选课程
Height = 2295
Left = 240
TabIndex = 0
Top = 360
Width = 4815
Begin VB.CheckBox Check5
Caption = 多媒体技术与应用
Height = 255
Left = 2760
TabIndex = 7
Top = 1800
Width = 1770
End
Begin VB.CheckBox Check4
Caption = Web技术与应用
Height = 255
Left = 2760
TabIndex = 6
Top = 1320
Width = 1575
End
Begin VB.CheckBox Check3
Caption = 数据库技术与应用
Height = 255
Left = 2760
TabIndex = 5
Top = 840
Width = 1695
End
Begin VB.CheckBox Check2
Caption = 硬件技术基础
Height = 255
Left = 600
TabIndex = 4
Top = 1320
Width = 1695
End
Begin VB.CheckBox Check1
Caption = 软件开发技术基础
Height = 255
Left = 600
TabIndex = 3
Top = 840
Width = 1815
End
Begin VB.OptionButton Option2
Caption = 第二组
Height = 495
Left = 2280
TabIndex = 2
Top = 240
Width = 1215
End
Begin VB.OptionButton Option1
Caption = 第一组
Height = 495
Left = 360
TabIndex = 1
Top = 240
Width = 1095
End
End
Begin VB.Label Label1
Caption = 我的计算机学习计划:
Height = 255
Left = 5280
TabIndex = 13
Top = 1320
Width = 1935
End
End
Attribute VB_Name = Form1
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Option1.Value = True
List1.AddItem 大学计算机基础, List1.ListCount
List1.AddItem VB.NET程序设计, List1.ListCount
List1.AddItem Web技术与应用, List1.ListCount
List1.AddItem 多媒体技术与应用, List1.ListCount
End Sub
Private Sub Option1_Click()
Check1.Enabled = True
Check2.Enabled = True
Check1.Value = 1
Check2.Value = 1
Check3.Enabled = False
Check4.Enabled = False
Check5.Enabled = False
End Sub
Private Sub Option2_Click()
Check1.Enabled = False
Check2.Enabled = False
Check3.Enabled = True
Check4.Enabled = True
Check5.Enabled = True
End Sub
在程序中加入这个窗体,就可以了,代码也写好了,那些文字说明你就自己乱侃吧……