www.pudn.com > textmanager.rar > 复件 FRMVIEW.FRM, change:2005-04-12,size:1624b


VERSION 5.00 
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX" 
Begin VB.Form FrmView  
   BorderStyle     =   1  'Fixed Single 
   Caption         =   "试卷预览" 
   ClientHeight    =   6885 
   ClientLeft      =   45 
   ClientTop       =   330 
   ClientWidth     =   9615 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   6885 
   ScaleWidth      =   9615 
   StartUpPosition =   2  '屏幕中心 
   Begin RichTextLib.RichTextBox TXTView  
      Height          =   3375 
      Left            =   0 
      TabIndex        =   0 
      Top             =   0 
      Width           =   5640 
      _ExtentX        =   9948 
      _ExtentY        =   5953 
      _Version        =   393217 
      Enabled         =   -1  'True 
      ReadOnly        =   -1  'True 
      ScrollBars      =   2 
      Appearance      =   0 
      TextRTF         =   $"FrmView.frx":0000 
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}  
         Name            =   "宋体" 
         Size            =   12 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
   End 
End 
Attribute VB_Name = "FrmView" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
 
Private Sub Form_Resize() 
 TXTView.Width = FrmView.ScaleWidth 
 TXTView.Height = FrmView.ScaleHeight 
End Sub