f2view.frm

用VB6.0MapINfo绘等值线及表面图

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form F2View 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "数据浏览"
   ClientHeight    =   3192
   ClientLeft      =   48
   ClientTop       =   336
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3192
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin RichTextLib.RichTextBox RichTextBox1 
      Height          =   975
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   1455
      _ExtentX        =   2561
      _ExtentY        =   1715
      _Version        =   393217
      Enabled         =   -1  'True
      ReadOnly        =   -1  'True
      ScrollBars      =   3
      TextRTF         =   $"F2View.frx":0000
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   11.4
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
End
Attribute VB_Name = "F2View"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Activate()

RichTextBox1.Height = F2View.Height - 500
RichTextBox1.Width = F2View.Width

RichTextBox1.RightMargin = 2048 * Screen.TwipsPerPixelX
F2View.Caption = TheInPath + TheInFile
RichTextBox1.LoadFile TheInPath + TheInFile, rtfText

RichTextBox1.SelStart = 1
'F2View.Height = Screen.Height
'F2View.Width = Screen.Width
'F2View.WindowState = 2
End Sub

Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = 27) Then
    Unload Me
End If
End Sub