practice10-6.frm

来自「深圳大学的vb上机与教学的课件」· FRM 代码 · 共 251 行

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "设置图形的属性"
   ClientHeight    =   2535
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3960
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2535
   ScaleWidth      =   3960
   StartUpPosition =   2  '屏幕中心
   Begin TabDlg.SSTab SSTab1 
      Height          =   2295
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   3735
      _ExtentX        =   6588
      _ExtentY        =   4048
      _Version        =   393216
      Tab             =   2
      TabHeight       =   520
      TabCaption(0)   =   "形状"
      TabPicture(0)   =   "practice10-6.frx":0000
      Tab(0).ControlEnabled=   0   'False
      Tab(0).Control(0)=   "Frame1(0)"
      Tab(0).Control(1)=   "Frame2"
      Tab(0).ControlCount=   2
      TabCaption(1)   =   "填充风格"
      TabPicture(1)   =   "practice10-6.frx":001C
      Tab(1).ControlEnabled=   0   'False
      Tab(1).Control(0)=   "Frame1(1)"
      Tab(1).Control(1)=   "Frame3"
      Tab(1).ControlCount=   2
      TabCaption(2)   =   "填充颜色"
      TabPicture(2)   =   "practice10-6.frx":0038
      Tab(2).ControlEnabled=   -1  'True
      Tab(2).Control(0)=   "Frame1(2)"
      Tab(2).Control(0).Enabled=   0   'False
      Tab(2).Control(1)=   "Frame4"
      Tab(2).Control(1).Enabled=   0   'False
      Tab(2).ControlCount=   2
      Begin VB.Frame Frame4 
         Height          =   1575
         Left            =   120
         TabIndex        =   12
         Top             =   480
         Width           =   1095
         Begin VB.OptionButton Option7 
            Caption         =   "红色"
            Height          =   375
            Left            =   120
            TabIndex        =   15
            Top             =   240
            Value           =   -1  'True
            Width           =   855
         End
         Begin VB.OptionButton Option8 
            Caption         =   "绿色"
            Height          =   375
            Left            =   120
            TabIndex        =   14
            Top             =   660
            Width           =   855
         End
         Begin VB.OptionButton Option9 
            Caption         =   "蓝色"
            Height          =   375
            Left            =   120
            TabIndex        =   13
            Top             =   1080
            Width           =   855
         End
      End
      Begin VB.Frame Frame3 
         Height          =   1575
         Left            =   -74880
         TabIndex        =   8
         Top             =   480
         Width           =   1095
         Begin VB.OptionButton Option4 
            Caption         =   "透明的"
            Height          =   375
            Left            =   120
            TabIndex        =   11
            Top             =   240
            Value           =   -1  'True
            Width           =   855
         End
         Begin VB.OptionButton Option5 
            Caption         =   "实心的"
            Height          =   375
            Left            =   120
            TabIndex        =   10
            Top             =   660
            Width           =   855
         End
         Begin VB.OptionButton Option6 
            Caption         =   "网格线"
            Height          =   375
            Left            =   120
            TabIndex        =   9
            Top             =   1080
            Width           =   855
         End
      End
      Begin VB.Frame Frame2 
         Height          =   1575
         Left            =   -74880
         TabIndex        =   4
         Top             =   480
         Width           =   1095
         Begin VB.OptionButton Option1 
            Caption         =   "矩形"
            Height          =   375
            Left            =   120
            TabIndex        =   7
            Top             =   240
            Value           =   -1  'True
            Width           =   735
         End
         Begin VB.OptionButton Option2 
            Caption         =   "圆形"
            Height          =   375
            Left            =   120
            TabIndex        =   6
            Top             =   660
            Width           =   735
         End
         Begin VB.OptionButton Option3 
            Caption         =   "椭圆"
            Height          =   375
            Left            =   120
            TabIndex        =   5
            Top             =   1080
            Width           =   735
         End
      End
      Begin VB.Frame Frame1 
         Caption         =   "预览"
         Height          =   1575
         Index           =   2
         Left            =   1300
         TabIndex        =   3
         Top             =   480
         Width           =   2290
         Begin VB.Shape Shape1 
            Height          =   855
            Index           =   2
            Left            =   480
            Top             =   360
            Width           =   1335
         End
      End
      Begin VB.Frame Frame1 
         Caption         =   "预览"
         Height          =   1575
         Index           =   1
         Left            =   -73700
         TabIndex        =   2
         Top             =   480
         Width           =   2290
         Begin VB.Shape Shape1 
            Height          =   855
            Index           =   1
            Left            =   480
            Top             =   360
            Width           =   1335
         End
      End
      Begin VB.Frame Frame1 
         Caption         =   "预览"
         Height          =   1575
         Index           =   0
         Left            =   -73700
         TabIndex        =   1
         Top             =   480
         Width           =   2290
         Begin VB.Shape Shape1 
            Height          =   855
            Index           =   0
            Left            =   480
            Top             =   360
            Width           =   1335
         End
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Option1_Click()
   For i = 0 To 2
      Shape1(i).Shape = 0
   Next i
End Sub

Private Sub Option2_Click()
   For i = 0 To 2
      Shape1(i).Shape = 3
   Next i
End Sub

Private Sub Option3_Click()
   For i = 0 To 2
      Shape1(i).Shape = 2
   Next i
End Sub

Private Sub Option4_Click()
   For i = 0 To 2
      Shape1(i).FillStyle = 1
   Next i
End Sub

Private Sub Option5_Click()
   For i = 0 To 2
      Shape1(i).FillStyle = 0
   Next i
End Sub

Private Sub Option6_Click()
   For i = 0 To 2
      Shape1(i).FillStyle = 7
   Next i
End Sub

Private Sub Option7_Click()
   For i = 0 To 2
      Shape1(i).FillColor = vbRed
   Next i
End Sub

Private Sub Option8_Click()
   For i = 0 To 2
      Shape1(i).FillColor = vbGreen
   Next i
End Sub

Private Sub Option9_Click()
   For i = 0 To 2
      Shape1(i).FillColor = vbBlue
   Next i
End Sub