frmexample.frm

几个不错的VB例子

            TabIndex        =   10
            Top             =   1800
            Width           =   1335
         End
         Begin VB.CommandButton Command4 
            Caption         =   "Very good"
            Height          =   375
            Index           =   3
            Left            =   960
            Style           =   1  'Graphical
            TabIndex        =   9
            Top             =   1200
            Width           =   1335
         End
         Begin VB.CommandButton Command4 
            Caption         =   "Excellent"
            Height          =   375
            Index           =   1
            Left            =   960
            Style           =   1  'Graphical
            TabIndex        =   8
            Top             =   600
            Width           =   1335
         End
         Begin VB.Label Label8 
            BackStyle       =   0  'Transparent
            Caption         =   "Select an option:"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   120
            TabIndex        =   67
            Top             =   240
            Width           =   2535
         End
         Begin VB.Label Label4 
            BackStyle       =   0  'Transparent
            Caption         =   "Poor:"
            Height          =   255
            Index           =   7
            Left            =   120
            TabIndex        =   66
            Top             =   2400
            Width           =   735
         End
         Begin VB.Label Label4 
            BackStyle       =   0  'Transparent
            Caption         =   "Good:"
            Height          =   255
            Index           =   6
            Left            =   120
            TabIndex        =   65
            Top             =   1800
            Width           =   735
         End
         Begin VB.Label Label4 
            BackStyle       =   0  'Transparent
            Caption         =   "Very good: "
            Height          =   255
            Index           =   5
            Left            =   120
            TabIndex        =   64
            Top             =   1200
            Width           =   855
         End
         Begin VB.Label Label4 
            BackStyle       =   0  'Transparent
            Caption         =   "Excellent:"
            Height          =   255
            Index           =   4
            Left            =   120
            TabIndex        =   63
            Top             =   600
            Width           =   735
         End
      End
      Begin VB.PictureBox Picture4 
         Appearance      =   0  'Flat
         BorderStyle     =   0  'None
         ForeColor       =   &H80000008&
         Height          =   3255
         Left            =   0
         ScaleHeight     =   3255
         ScaleWidth      =   3735
         TabIndex        =   46
         Top             =   0
         Visible         =   0   'False
         Width           =   3735
         Begin VB.Frame Frame1 
            BackColor       =   &H00E0E0E0&
            Caption         =   "Information"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   1935
            Left            =   120
            TabIndex        =   47
            Top             =   240
            Width           =   3375
            Begin VB.TextBox Text10 
               Height          =   1125
               Left            =   240
               MultiLine       =   -1  'True
               TabIndex        =   12
               Top             =   600
               Width           =   2895
            End
            Begin VB.Label Label2 
               BackStyle       =   0  'Transparent
               Caption         =   "Comments:"
               Height          =   255
               Left            =   240
               TabIndex        =   48
               Top             =   360
               Width           =   1335
            End
         End
      End
      Begin VB.PictureBox Picture5 
         BorderStyle     =   0  'None
         Height          =   6615
         Left            =   0
         ScaleHeight     =   6615
         ScaleWidth      =   3735
         TabIndex        =   49
         Top             =   0
         Visible         =   0   'False
         Width           =   3735
         Begin VB.CommandButton Command10 
            Caption         =   "Command3"
            Height          =   375
            Left            =   120
            Style           =   1  'Graphical
            TabIndex        =   15
            Top             =   1080
            Width           =   1575
         End
         Begin VB.OptionButton Option1 
            Caption         =   "Option0"
            Height          =   255
            Index           =   0
            Left            =   120
            TabIndex        =   30
            Top             =   5160
            Width           =   915
         End
         Begin VB.OptionButton Option1 
            Caption         =   "Option1"
            Height          =   255
            Index           =   1
            Left            =   120
            TabIndex        =   31
            Top             =   5400
            Width           =   915
         End
         Begin VB.OptionButton Option1 
            Caption         =   "Option2"
            Height          =   255
            Index           =   2
            Left            =   120
            TabIndex        =   32
            Top             =   5640
            Width           =   915
         End
         Begin VB.OptionButton Option1 
            Caption         =   "Option3"
            Height          =   255
            Index           =   3
            Left            =   120
            TabIndex        =   33
            Top             =   5880
            Width           =   915
         End
         Begin VB.OptionButton Option1 
            Caption         =   "Option4"
            Height          =   255
            Index           =   4
            Left            =   1320
            TabIndex        =   34
            Top             =   5160
            Width           =   915
         End
         Begin VB.OptionButton Option1 
            Caption         =   "Option5"
            Height          =   255
            Index           =   5
            Left            =   1320
            TabIndex        =   35
            Top             =   5400
            Width           =   915
         End
         Begin VB.OptionButton Option1 
            Caption         =   "Option6"
            Height          =   255
            Index           =   6
            Left            =   1320
            TabIndex        =   36
            Top             =   5640
            Width           =   915
         End
         Begin VB.OptionButton Option1 
            Caption         =   "Option7"
            Height          =   255
            Index           =   7
            Left            =   1320
            TabIndex        =   37
            Top             =   5880
            Width           =   915
         End
         Begin VB.OptionButton Option1 
            Caption         =   "Option8"
            Height          =   255
            Index           =   8
            Left            =   2400
            TabIndex        =   38
            Top             =   5160
            Width           =   915
         End
         Begin VB.OptionButton Option1 
            Caption         =   "Option9"
            Height          =   255
            Index           =   9
            Left            =   2400
            TabIndex        =   39
            Top             =   5400
            Width           =   915
         End
         Begin VB.OptionButton Option1 
            Caption         =   "Option10"
            Height          =   255
            Index           =   10
            Left            =   2400
            TabIndex        =   40
            Top             =   5640
            Width           =   1035
         End
         Begin VB.OptionButton Option1 
            Caption         =   "Option11"
            Height          =   255
            Index           =   11
            Left            =   2400
            TabIndex        =   41
            Top             =   5880
            Width           =   1035
         End
         Begin VB.Frame Frame2 
            Caption         =   "Frame1"
            Height          =   975
            Left            =   120
            TabIndex        =   51
            Top             =   4080
            Width           =   3015
            Begin VB.TextBox Text20 
               Height          =   285
               Left            =   120
               TabIndex        =   29
               Text            =   "Text10"
               Top             =   600
               Width           =   735
            End
         End
         Begin VB.TextBox Text19 
            Height          =   285
            Left            =   1440
            TabIndex        =   28
            Text            =   "Text9"
            Top             =   3600
            Width           =   1815
         End
         Begin VB.TextBox Text18 
            Height          =   285
            Left            =   120
            TabIndex        =   19
            Text            =   "Text3"
            Top             =   1920
            Width           =   1575
         End
         Begin VB.ComboBox Combo1 
            Height          =   315
            Left            =   840
            TabIndex        =   27
            Text            =   "Combo1"
            Top             =   3120
            Width           =   2415
         End
         Begin VB.CheckBox Check2 
            Caption         =   "Check2"
            Height          =   255
            Left            =   480
            TabIndex        =   26
            Top             =   3120
            Width           =   255
         End
         Begin VB.CheckBox Check1 
            Caption         =   "Check1"
            Height          =   255
            Left            =   120
            TabIndex        =   25
            Top             =   3120
            Value           =   1  'Checked
            Width           =   255
         End
         Begin VB.TextBox Text17 
            Height          =   285
            Left            =   1800
            TabIndex        =   24
            Text            =   "Text8"
            Top             =   2640
            Width           =   1455
         End
         Begin VB.TextBox Text16 
            Height          =   285
            Left            =   120
            TabIndex        =   23
            Text            =   "Text7"
            Top             =   2640
            Width           =   1575
         End
         Begin VB.TextBox Text15