坐标文件编辑.ebf

可以在pocketpc上进行坐标换带计算以及坐标转换等功能

VERSION 5.00
Object = "{A32A88B3-817C-11D1-A762-00AA0044064C}#1.0#0"; "mscecomdlg.dll"
Object = "{25C953A7-5464-11D1-A714-00AA0044064C}#1.0#0"; "MSCEFILE.DLL"
Begin VB.Form Form4 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "坐标编辑"
   ClientHeight    =   4140
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4350
   ForeColor       =   &H80000008&
   ScaleHeight     =   4140
   ScaleWidth      =   4350
   SIPBehavior     =   1  'vbSIPAutomatic
   SIPVisible      =   -1  'True
   Begin CEComDlgCtl.CommonDialog CommonDialog1 
      Left            =   600
      Top             =   3120
      _cx             =   847
      _cy             =   847
      CancelError     =   0   'False
      Color           =   0
      DefaultExt      =   ""
      DialogTitle     =   ""
      FileName        =   ""
      Filter          =   ""
      FilterIndex     =   0
      Flags           =   0
      HelpCommand     =   0
      HelpContext     =   ""
      HelpFile        =   ""
      InitDir         =   ""
      MaxFileSize     =   256
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   ""
      FontSize        =   10
      FontUnderline   =   0   'False
      Max             =   0
      Min             =   0
      FontStrikethru  =   0   'False
   End
   Begin FILECTLCtl.File File1 
      Left            =   2160
      Top             =   3120
      _cx             =   1000
      _cy             =   1000
   End
   Begin VBCE.CommandButton Command3 
      Height          =   375
      Left            =   1320
      TabIndex        =   4
      Top             =   2880
      Width           =   735
      _cx             =   1296
      _cy             =   661
      BackColor       =   12632256
      Caption         =   "返  回"
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Style           =   0
   End
   Begin VBCE.CommandButton Command2 
      Height          =   375
      Left            =   360
      TabIndex        =   3
      Top             =   0
      Width           =   1335
      _cx             =   2355
      _cy             =   661
      BackColor       =   12632256
      Caption         =   "打开文件"
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Style           =   0
   End
   Begin VBCE.Label Label1 
      Height          =   255
      Left            =   360
      TabIndex        =   2
      Top             =   480
      Width           =   3015
      _cx             =   5318
      _cy             =   450
      AutoSize        =   0   'False
      BackColor       =   -2147483643
      BackStyle       =   1
      BorderStyle     =   0
      Caption         =   "序号       ，         X          ，           Y"
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   -2147483640
      Alignment       =   0
      UseMnemonic     =   -1  'True
      WordWrap        =   0   'False
   End
   Begin VBCE.CommandButton Command1 
      Height          =   375
      Left            =   1920
      TabIndex        =   1
      Top             =   0
      Width           =   1335
      _cx             =   2355
      _cy             =   661
      BackColor       =   12632256
      Caption         =   "保存文件"
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Style           =   0
   End
   Begin VBCE.TextBox Text1 
      Height          =   1935
      Left            =   120
      TabIndex        =   0
      Top             =   840
      Width           =   3375
      _cx             =   5953
      _cy             =   3413
      BackColor       =   -2147483643
      BorderStyle     =   1
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   -2147483640
      Text            =   ""
      Alignment       =   0
      HideSelection   =   0   'False
      Locked          =   0   'False
      MaxLength       =   0
      MultiLine       =   -1  'True
      PasswordChar    =   ""
      ScrollBars      =   2
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
GetFileToSave
TxtFileWrite

End Sub

Private Sub Command2_Click()
   GetFileToOpen
   bstr = ""
   Set objfile1 = File1
   objfile1.Open GetFileOpenName, fsModeInput
   Do Until objfile1.EOF = True
    bstr = bstr & objfile1.LineInputString & Chr(13) & Chr(10)
   Loop
   objfile1.Close
   Text1.Text = bstr

End Sub

Private Sub Command3_Click()
Form1.Show
End Sub


Private Sub TxtFileWrite()
    File1.Open CommonDialog1.FileName, _
    fsModeOutput, fsAccessWrite, fsLockWrite
    File1.LinePrint Text1.Text
    File1.Close
End Sub

Public Function GetFileToSave()
    Dim fileflags As FileOpenConstants
    Dim filefilter As String, GetFileName As String
    CommonDialog1.CancelError = True
    CommonDialog1.DialogTitle = "Save File"
    CommonDialog1.FileName = ""
    filefilter = "Text (*.txt)|*.*"
    CommonDialog1.Filter = filefilter
    CommonDialog1.FilterIndex = 0
    CommonDialog1.ShowSave
    GetFileToSave = CommonDialog1.FileName
  
End Function


Private Function GetFileToOpen()
    CommonDialog1.DialogTitle = "Select File"
    filefilter = "Text (*.txt)|*.txt|All (*.*)|*.*"
    CommonDialog1.Filter = filefilter
    CommonDialog1.FilterIndex = 0
    CommonDialog1.ShowOpen
    GetFileOpenName = CommonDialog1.FileName
End Function

Private Sub Form_Load()

End Sub