07sstab.frm

vb编程+从基础到实践光盘代码

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5250
   ClientLeft      =   5955
   ClientTop       =   3960
   ClientWidth     =   4995
   LinkTopic       =   "Form1"
   ScaleHeight     =   5250
   ScaleWidth      =   4995
   Begin VB.ListBox List1 
      Height          =   1680
      Left            =   240
      TabIndex        =   11
      Top             =   2640
      Width           =   2055
   End
   Begin VB.PictureBox Picture1 
      Height          =   1455
      Left            =   1200
      ScaleHeight     =   1395
      ScaleWidth      =   2235
      TabIndex        =   10
      Top             =   720
      Width           =   2295
   End
   Begin VB.CommandButton Command5 
      Caption         =   "图案"
      Height          =   375
      Left            =   3840
      TabIndex        =   9
      Top             =   3720
      Width           =   855
   End
   Begin VB.CommandButton Command4 
      Caption         =   "设置"
      Height          =   375
      Left            =   2880
      TabIndex        =   8
      Top             =   3720
      Width           =   855
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   2880
      TabIndex        =   7
      Text            =   "Combo1"
      Top             =   2880
      Width           =   1695
   End
   Begin VB.Frame Frame3 
      Height          =   1935
      Left            =   2760
      TabIndex        =   6
      Top             =   2400
      Width           =   2055
   End
   Begin VB.Frame Frame2 
      Height          =   2055
      Left            =   120
      TabIndex        =   5
      Top             =   2400
      Width           =   2295
   End
   Begin VB.Frame Frame1 
      Height          =   1815
      Left            =   120
      TabIndex        =   4
      Top             =   480
      Width           =   4695
   End
   Begin VB.CommandButton Command3 
      Caption         =   "应用"
      Height          =   375
      Left            =   3600
      TabIndex        =   3
      Top             =   4800
      Width           =   1095
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取消"
      Height          =   375
      Left            =   1920
      TabIndex        =   2
      Top             =   4800
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   375
      Left            =   240
      TabIndex        =   1
      Top             =   4800
      Width           =   1095
   End
   Begin TabDlg.SSTab SSTab1 
      Height          =   4605
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5025
      _ExtentX        =   8864
      _ExtentY        =   8123
      _Version        =   393216
      Tabs            =   5
      TabsPerRow      =   5
      TabHeight       =   520
      BackColor       =   16777215
      TabCaption(0)   =   "背景"
      TabPicture(0)   =   "07SSTab.frx":0000
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).ControlCount=   0
      TabCaption(1)   =   "屏幕保护"
      TabPicture(1)   =   "07SSTab.frx":001C
      Tab(1).ControlEnabled=   0   'False
      Tab(1).ControlCount=   0
      TabCaption(2)   =   "外观"
      TabPicture(2)   =   "07SSTab.frx":0038
      Tab(2).ControlEnabled=   0   'False
      Tab(2).ControlCount=   0
      TabCaption(3)   =   "Web"
      TabPicture(3)   =   "07SSTab.frx":0054
      Tab(3).ControlEnabled=   0   'False
      Tab(3).ControlCount=   0
      TabCaption(4)   =   "设置"
      TabPicture(4)   =   "07SSTab.frx":0070
      Tab(4).ControlEnabled=   0   'False
      Tab(4).ControlCount=   0
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command2_Click()
    End
End Sub

Private Sub Form_Load()
    List1.AddItem "（无）"
    List1.AddItem "Bricks"
    List1.AddItem "Buttons"
    List1.AddItem "Cargo net"
    List1.AddItem "Circuits"
    List1.AddItem "Title"
    List1.AddItem "Draw mat"
    List1.AddItem "Red Blocks"
    List1.AddItem "Plus!"
    List1.AddItem "Windows98"
    List1.AddItem "安装程序"
    Combo1.AddItem "  平  铺"
    Combo1.AddItem "  拉  伸"
    Combo1.AddItem "  居  中"
    Command4.Caption = "设 置"
    Command5.Caption = "图 案"
    MsgBox "  对不起，本实例主要用于介绍“SSTab1”控件的用法。有关深层次的屏幕设置，本例不作探讨。"
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case SSTab1.Tab
Case 0
    List1.Clear
    List1.AddItem "（无）"
    List1.AddItem "Bricks"
    List1.AddItem "Buttons"
    List1.AddItem "Cargo net"
    List1.AddItem "Circuits"
    List1.AddItem "Title"
    List1.AddItem "Draw mat"
    List1.AddItem "Red Blocks"
    List1.AddItem "Plus!"
    List1.AddItem "Windows98"
    List1.AddItem "城堡"
    List1.AddItem "雪松"
    List1.AddItem "安装程序"
    Combo1.Clear
    Combo1.Text = "  平  铺"
    Combo1.AddItem "  平  铺"
    Combo1.AddItem "  拉  伸"
    Combo1.AddItem "  居  中"
    Command4.Caption = "设 置"
    Command5.Caption = "图 案"
Case 1
    List1.Clear
    List1.AddItem "滚动字幕"
    List1.AddItem "三维文字"
    List1.AddItem "三维迷宫"
    List1.AddItem "飞行的Windows"
    List1.AddItem "三维变形物"
    List1.AddItem "黄金时代"
    List1.AddItem "黑屏"
    List1.AddItem "科学"
    List1.AddItem "危险动物"
    List1.AddItem "海底世界"
    List1.AddItem "运动"
    Combo1.Clear
    Combo1.Text = " 1分钟"
    Combo1.AddItem " 1分钟"
    Combo1.AddItem " 3分钟"
    Combo1.AddItem " 10分钟"
    Command4.Caption = "设 置"
    Command5.Caption = "预 览"
End Select
End Sub