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

    VERSION 5.00
    Begin VB.Form frmFTType 
       BorderStyle     =   3  'Fixed Dialog
       Caption         =   "分摊类型选取"
       ClientHeight    =   1770
       ClientLeft      =   2760
       ClientTop       =   3750
       ClientWidth     =   2760
       ControlBox      =   0   'False
       Icon            =   "frmFTType.frx":0000
       LinkTopic       =   "Form1"
       LockControls    =   -1  'True
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   1770
       ScaleWidth      =   2760
       ShowInTaskbar   =   0   'False
       StartUpPosition =   1  '所有者中心
       Begin VB.Frame Frame1 
          Caption         =   "分摊类型"
          Height          =   1020
          Left            =   120
          TabIndex        =   2
          Top             =   45
          Width           =   2460
          Begin VB.OptionButton Option1 
             Caption         =   "多次分摊"
             Height          =   330
             Index           =   2
             Left            =   390
             TabIndex        =   4
             Top             =   615
             Width           =   1455
          End
          Begin VB.OptionButton Option1 
             Caption         =   "一次分摊"
             Height          =   330
             Index           =   1
             Left            =   390
             TabIndex        =   3
             Top             =   255
             Value           =   -1  'True
             Width           =   1455
          End
       End
       Begin VB.CommandButton CancelButton 
          Cancel          =   -1  'True
          Caption         =   "取消(&C)"
          Height          =   435
          Left            =   1380
          TabIndex        =   1
          Top             =   1215
          Width           =   1215
       End
       Begin VB.CommandButton OKButton 
          Caption         =   "确定(&O)"
          Default         =   -1  'True
          Height          =   435
          Left            =   120
          TabIndex        =   0
          Top             =   1215
          Width           =   1215
       End
    End
    Attribute VB_Name = "frmFTType"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    
    Option Explicit
    Dim mCanceled As Boolean
    Dim mFTType As Long
    Private Sub CancelButton_Click()
        mCanceled = True
        Unload Me
    End Sub
    Private Sub Form_Load()
        mCanceled = True
        mFTType = 1
        Option1(mFTType).Value = True
    End Sub
    Private Sub OKButton_Click()
        mCanceled = False
        Unload Me
    End Sub
    Private Sub Option1_Click(Index As Integer)
        mFTType = Index
    End Sub
    '返回是否取消
    Public Property Get IsCanceled() As Boolean
        IsCanceled = mCanceled
    End Property
    '返回分摊类型
    Public Property Get FTType() As Long
        FTType = mFTType
    End Property