spotplace.frm

来自「一个交通专用的gis-T系统」· FRM 代码 · 共 121 行

VERSION 5.00
Begin VB.Form SpotPlace 
   Caption         =   "坐标定位"
   ClientHeight    =   1740
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   2430
   Icon            =   "SpotPlace.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   1740
   ScaleWidth      =   2430
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Cmdcancel 
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   1320
      TabIndex        =   4
      Top             =   1320
      Width           =   855
   End
   Begin VB.CommandButton CmdSpot 
      Caption         =   "定位(&S)"
      Default         =   -1  'True
      Enabled         =   0   'False
      Height          =   375
      Left            =   240
      TabIndex        =   3
      Top             =   1320
      Width           =   975
   End
   Begin VB.Frame Frame1 
      Caption         =   "输入有效的X/Y坐标"
      Height          =   1095
      Left            =   0
      TabIndex        =   0
      Top             =   120
      Width           =   2415
      Begin VB.TextBox Cor 
         Height          =   270
         Index           =   1
         Left            =   600
         TabIndex        =   2
         Top             =   720
         Width           =   1695
      End
      Begin VB.TextBox Cor 
         Height          =   270
         Index           =   0
         Left            =   600
         TabIndex        =   1
         Top             =   360
         Width           =   1695
      End
      Begin VB.Label Label1 
         Caption         =   "Y:"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   6
         Top             =   760
         Width           =   375
      End
      Begin VB.Label Label1 
         Caption         =   "X:"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   5
         Top             =   400
         Width           =   375
      End
   End
End
Attribute VB_Name = "SpotPlace"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*********************************************************************
'*
'*                本源码完全免费，共交通同仁学习参考                 *
'*                      www.tranbbs.com                              *
'*                   Developed by Yang Ming                          *
'*       Nanjing Institute of City Transportation Planning           *
'*                 请保留本版权信息，谢谢合作                        *
'*                      中国交通技术论坛                             *
'*                                                                   *
'*                                                                   *
'*********************************************************************
Private Sub Cmdcancel_Click()
    Unload Me
    
End Sub

Private Sub CmdSpot_Click()
    Dim CorX, CorY As Double
    If Cor(0).Text <> "" And Cor(1).Text <> "" Then
        
        CorX = Val(Cor(0).Text)
        CorY = Val(Cor(1).Text)

        Main.Mapshow.CenterX = CorX
        Main.Mapshow.CenterY = CorY
    Else
        MsgBox "请输入有效的坐标值！"
        Exit Sub
    End If
    
    Unload Me
End Sub

Private Sub Cor_Change(Index As Integer)
    
    For i = 0 To 1
        If Cor(i).Text <> "" Then
            CmdSpot.Enabled = True
        End If
    Next i
    
End Sub