frmoutputdump.frm

Data monkey是一个强大的是数据传输和转换应用程序。使用DataMonkey用户可以把复杂的文本文件格式

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmOutputDump 
   Caption         =   "Raw Output"
   ClientHeight    =   3192
   ClientLeft      =   60
   ClientTop       =   348
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   3192
   ScaleWidth      =   4680
   Begin RichTextLib.RichTextBox txtOutput 
      Height          =   2055
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   3375
      _ExtentX        =   5948
      _ExtentY        =   3620
      _Version        =   393217
      Enabled         =   -1  'True
      ScrollBars      =   3
      TextRTF         =   $"frmOutputDump.frx":0000
   End
End
Attribute VB_Name = "frmOutputDump"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' DataMonkey Data Conversion Application. Written by Theodore L. Ward
' Copyright (C) 2002 AstroComma Incorporated.
'
' This program is free software; you can redistribute it and/or
' modify it under the terms of the GNU General Public License
' as published by the Free Software Foundation; either version 2
' of the License, or (at your option) any later version.
'
' This program is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU General Public License for more details.
'
' You should have received a copy of the GNU General Public License
' along with this program; if not, write to the Free Software
' Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
' The author may be contacted at:
' [e-mail] or [e-mail]

Public Sub ShowFile(fileName As String)
    txtOutput.fileName = fileName
End Sub

Private Sub Form_Load()
    txtOutput.left = 0
    txtOutput.top = 0
End Sub

Private Sub Form_Resize()
    txtOutput.Width = ScaleWidth
    txtOutput.Height = ScaleHeight
End Sub