【VB开源代码栏目提醒】：网学会员鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“Ex6_7.frm”一文，供大家参考学习

    VERSION 5.00
    Begin VB.Form Ex6_7 
       Caption         =   "Form1"
       ClientHeight    =   1950
       ClientLeft      =   60
       ClientTop       =   450
       ClientWidth     =   3675
       ForeColor       =   &H80000007&
       LinkTopic       =   "Form1"
       ScaleHeight     =   1950
       ScaleWidth      =   3675
       StartUpPosition =   3  '窗口缺省
       Begin VB.TextBox Text1 
          Height          =   375
          Left            =   360
          TabIndex        =   2
          Text            =   "Text1"
          Top             =   840
          Width           =   2775
       End
       Begin VB.CommandButton Command1 
          Caption         =   "Command1"
          Height          =   375
          Left            =   1200
          TabIndex        =   1
          Top             =   1440
          Width           =   1215
       End
       Begin VB.Label Label1 
          Caption         =   "Label1"
          Height          =   255
          Left            =   480
          TabIndex        =   0
          Top             =   360
          Width           =   2655
       End
    End
    Attribute VB_Name = "Ex6_7"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Sub Command1_Click()
        With Ex6_7
            .Caption = "使用With结构"  '设置窗体标题
            .Label1.Caption = "这是一个Label控件"  '设置Label控件标题
            .Command1.Caption = "显示"
            With .Text1
                .Text = "这是一个TextBox控件"  '设置控件文本
                .BorderStyle = 0  '设置控件边框格式
            End With
        End With
    End Sub
    

上一篇：Ex6_6.frm
下一篇：台湾海峡台风浪的数值模拟