form12.frm

一个商业软件的源码

VERSION 5.00
Begin VB.Form Form12 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "表格标题设置"
   ClientHeight    =   3690
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4860
   LinkTopic       =   "Form12"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3690
   ScaleWidth      =   4860
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text10 
      Height          =   375
      Left            =   2640
      TabIndex        =   11
      Top             =   2640
      Visible         =   0   'False
      Width           =   2175
   End
   Begin VB.TextBox Text9 
      Height          =   375
      Left            =   2640
      TabIndex        =   10
      Top             =   2040
      Visible         =   0   'False
      Width           =   2175
   End
   Begin VB.TextBox Text8 
      Height          =   375
      Left            =   2640
      TabIndex        =   9
      Top             =   1440
      Visible         =   0   'False
      Width           =   2175
   End
   Begin VB.TextBox Text7 
      Height          =   375
      Left            =   2640
      TabIndex        =   8
      Top             =   840
      Visible         =   0   'False
      Width           =   2175
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   2640
      TabIndex        =   7
      Top             =   240
      Visible         =   0   'False
      Width           =   2175
   End
   Begin VB.CommandButton Command1 
      Caption         =   "ok"
      Height          =   375
      Left            =   3240
      TabIndex        =   1
      Top             =   3240
      Width           =   1215
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H80000009&
      Height          =   3240
      Left            =   120
      ScaleHeight     =   29.7
      ScaleMode       =   0  'User
      ScaleWidth      =   21
      TabIndex        =   0
      Top             =   120
      Width           =   2445
      Begin VB.TextBox Text6 
         BorderStyle     =   0  'None
         Height          =   300
         Left            =   1440
         TabIndex        =   6
         Text            =   "右页脚"
         Top             =   2760
         Width           =   855
      End
      Begin VB.TextBox Text5 
         BorderStyle     =   0  'None
         Height          =   300
         Left            =   240
         TabIndex        =   5
         Text            =   "左页脚"
         Top             =   2760
         Width           =   855
      End
      Begin VB.TextBox Text4 
         BorderStyle     =   0  'None
         Height          =   180
         Left            =   240
         TabIndex        =   4
         Text            =   "左标题"
         Top             =   240
         Width           =   495
      End
      Begin VB.TextBox Text3 
         BorderStyle     =   0  'None
         Height          =   180
         Left            =   1080
         TabIndex        =   3
         Text            =   "副标题"
         Top             =   240
         Width           =   495
      End
      Begin VB.TextBox Text2 
         BorderStyle     =   0  'None
         Height          =   270
         Left            =   840
         TabIndex        =   2
         Text            =   "主标题"
         Top             =   0
         Width           =   1335
      End
      Begin VB.Line Line3 
         BorderStyle     =   3  'Dot
         X1              =   0
         X2              =   21.132
         Y1              =   24.657
         Y2              =   24.657
      End
      Begin VB.Line Line1 
         BorderStyle     =   3  'Dot
         DrawMode        =   10  'Mask Pen
         X1              =   17.962
         X2              =   17.962
         Y1              =   0
         Y2              =   30.26
      End
      Begin VB.Line Line4 
         BorderStyle     =   3  'Dot
         X1              =   2.113
         X2              =   2.113
         Y1              =   0
         Y2              =   30.26
      End
      Begin VB.Line Line2 
         BorderStyle     =   3  'Dot
         X1              =   0
         X2              =   21.132
         Y1              =   4.483
         Y2              =   4.483
      End
   End
End
Attribute VB_Name = "Form12"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
If Text2 <> "主标题" Then
a(0) = Text2.Text '设置报表标题
Else
a(0) = "一览表"
End If
If Text3.Text <> "副标题" Then
a(1) = Text3.Text
End If
If Text4.Text <> "左标题" Then
a(2) = Text4.Text
Else
a(2) = "部门：cad"
End If
If Text5.Text <> "左页脚" Then
a(3) = Text5.Text
Else
a(3) = "制表人：" & user
End If
If Text6.Text <> "右页脚" Then
a(4) = Text6.Text
Else
a(4) = VBA.Date
End If

YM = True
Unload Me
End Sub












Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub

Private Sub Text10_Change()
Text6.Text = Text10.Text
End Sub

Private Sub Text2_DblClick()
Text1.Visible = True
End Sub

Private Sub Text3_DblClick()
Text8.Visible = True
End Sub

Private Sub Text4_DblClick()
Text7.Visible = True
End Sub

Private Sub Text5_DblClick()
Text9.Visible = True
End Sub

Private Sub Text6_DblClick()
Text10.Visible = True
End Sub

Private Sub Text7_Change()
Text4.Text = Text7.Text
End Sub

Private Sub Text8_Change()
Text3.Text = Text8.Text
End Sub

Private Sub Text9_Change()
Text5.Text = Text9.Text
End Sub